Macro con password para varios usuario

Te escribo nuevamente para solicitar tu ayuda, te cuento:
Tengo un cuaderno en excel con datos y necesito realizar una macro de inicio que solicite contraseña, pero debe ser para cinco usuario distintos.

2 respuestas

Respuesta
3
Acabo de leer una respuesta a una consulta similar, y ojalá ese usuario vea ésta para que sepa que sí se puede, y es de la siguiente manera;
1-Crear una hoja de inicio y ocultar las demás.
2-¿Al abrir el libro mostrará solamente esta hoja de? ¿Bienvenida? Y pedirá la contraseña.
3-Si es alguna de la lista mostrará la hoja que le corresponda a ese usuario o todo el libro, eso depende de lo que le asignes.
4-Cuando se cierre el libro volverá a ocultar esta o todas las hojas dejando solamente la de inicio
5-Hay que proteger también las macros para que no tengan acceso a las claves
Hecho el resumen ahora pasamos a las rutinas:
En ThisworkBook copia las siguientes, reemplazando las claves y nombres de hojas:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Unprotect "TUCLAVE"
For Each mihoja In Sheets
If mihoja.Name <> "INICIO" And mihoja.Visible Then mihoja.Visible = xlVeryHidden
Next mihoja
ActiveWorkbook.Protect "TUCLAVE"
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.Unprotect "TUCLAVE"
clave1 = InputBox("Ingrese contraseña")
If clave1 <> "" Then
Select Case clave1
'aquí irian todas las claves y las hojas que se abren para cada una de ellas
Case "HIS"
Sheets("Hoja3").Visible = True
Case "ELSA"
Sheets("Hoja2").Visible = True
'otras claves
End Select
End If
End Sub
Luego, estando en el Editor, menú Herramientas, Propiedades del proyecto, pestaña Protección, tildá la opción Bloquear proyecto y colócale una contraseña.
ATENCIÓN: desconozco cómo recuperar esta contraseña en caso de olvido :::: :)
Esto es todo por mi parte.
Respuesta

Si con Sheets("Hoja3").Visible = True dan acceso a una pestaña

¿Cómo habilitan el acceso a todo le libro?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas