08/03/2006, 08:44
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 5 meses Puntos: 1 | |
| Para lo que pides sería una cosa así:
Private Sub Worksheet_Activate()
Cells.EntireColumn.Hidden = True
contra = InputBox("Debes introducir la contraseña correcta o estás despedido", "CONTRASEÑA")
If contra = "Ingresos" Then
Sheets("Hoja2").Visible = True
Cells.EntireColumn.Hidden = False
Range("A1").Select
Else
Sheets("Hoja2").Visible = False
Sheets("Hoja1").Activate
End If
End Sub
Colocalo en el código de VBA perteneciente a la hoja2 (en mi ejemplo).
Haz los cambios precisos en el nombre de la hoja y en la contraseña y ya lo tienes. Sin embargo, ¿no sería más sencillo ocultar todas las columnas y proteger la celda con una clave?
Bueno, aquí tienes un código que te puede servir, pero si quieres algún cambio no tienes mas que comentarlo.
Un saludo.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |