|
hola Davikox , para el primer requerimiento te aconsejo:
en el codigo de la Hoja , no en un modulo.
Private Sub Workbook_Open()
Worksheets("Portada").Visible = True ' muestras la portada
'repetir para las otras hojas
Worksheets("detalle").Visible = xlSheetVeryHidden ' ocultas las demas hojas
Worksheets("datos").Visible = xlSheetVeryHidden
Worksheets("Ficha1").Visible = xlSheetVeryHidden
Worksheets("cartaPF").Visible = xlSheetVeryHidden
Worksheets("contrasenas").Visible = xlSheetVeryHidden
End Sub
Al utilizar este comando = xlSheetVeryHidden, las hojas del libro quedan ocultas, y solo se pueden liberar por medio de codigo, no funciona la opcion del menu Formato / hoja /mostrar..
Para el asunto de la contraseñas se puede realizar de varios metodos, la mas facil es crear una hoja de contraseñas que mantengas ocultas con el codigo anterior
Supongamos que llamas a la hoja contrasenas y dentro de la celda a1 guardas la contraseña.
Para el ingreso de contraseña puedes crear un userform que sea llamado de la macro anterior
Private Sub Workbook_Open()
Worksheets("Portada").Visible = True
Worksheets("contrasenas").Visible = xlSheetVeryHidden
call userform
End Sub
Para obtener la contraseña puedes utilizar la instruccion dentro del userform creado
Dim contraseña as string
contraseña = Sheets("pendientes").cells(1,1).value
y luego la comparas con la la ingresada por el usuario con un IF.-
|
