Ocultar hojas al iniciar libro de excel y mostrarlas mediante contraseñas.
Para Dante
Hola:
Me gustaría implementar esta función en mi proyecto e encontrado un código por internet pero no consigo que funcione te e enviado mi archivo para ver si me puedes ayudar a hacerlo funcionar.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Agrega este código a los eventos de Thisworkbook
Private Sub Workbook_OPEN()
'Por.Dante Amor
'Asignamos la propiedad xlVeryHidden para que las hojas no puedan
'mostrarse en el menú Mostrar hojas.
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(ThisWorkbook.FullName)
Sheets("INICIO").[C21] = f.DateLastModified
End SubAgrega lo siguiente en la macro volver:
Sub VOLVER() ' VOLVER Hoja1.Visible = xlSheetVisible ActiveSheet.Visible = xlVeryHidden End Sub
Sal u dos
