[EXCEL] Hoja invisible / contraseña

Hola, he encontrado 2 trucos interesantes para pedir una contraseña al abrir una hoja.

1ra posibilidad: oculto mi hoja

a escribir en el módulo hoja
'-----------------------------------------------------
Private Sub Worksheet_Activate()
AFFICHER_TDB_ASSO
End Sub

a escribir en el módulo clásico
'------------------------------------------------------
Sub AFFICHER_TDB_ASSO()
Dim REP As String
REP = InputBox("PASSWORD", "APERTURA HOJA RECAP ASSO")
If REP = "YOURPASSWORD" Then
Worksheets("TDB_ASSO").Visible = True
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
'------------------------------------------------------
End Sub
Sub MASQUER_TDB_ASSO()
Columns("A:XFD").EntireColumn.Hidden = True
Worksheets("TDB_ASSO").Visible = False
End Sub


2da posibilidad: solo lo hago cuando activo la hoja (pero en mi opinión, esto puede volverse muy difícil si trabajo regularmente con varias hojas, incluida esta...)

a escribir en el módulo hoja
'-----------------------------------------------------
Private Sub Worksheet_Activate()
Dim REP As String
Columns("A:XFD").EntireColumn.Hidden = True
REP = InputBox("PASSWORD", "APERTURA HOJA RECAP ASSO")
If REP = "YOURPASSWORD" Then
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
End Sub


POR SUPUESTO, ESTOS CÓDIGOS SON PARA ADAPTAR A TU HOJA ;)

¡Hasta luego! ;)