Password diferentes usuarios excel 2010
Hola espero me puedas ayudar con lo siguiente
En excel 2010 tengo un libro que tiene varias hojas este libro debe ser accedido por varios usuariuos y cada usuario podrá tener acceso solo a algunas hojas especificas, la hoja inicial la tengo diseñada como un menu con imágenes prediseñadas de excel y cada imagen tiene el nombre de la hoja y un hypervinculo que al darle click lleva al usuario a la hoja especificada, lo que necesito (si es que es posible) es que cada vez que se intente ingresara a una hoja especifica del libro este pida una contraseña para poder trabajar en esa hoja, esto sin que las hojas estén ocultas pues la información de cada hoja se copia en otras y he diseñado algunas macros (muy sencillas) para copiar la información necesaria en las otras hojas por lo tanto si las hojas las oculto las macros que he hecho me dan error.
Espero haberme explicado bien y espero que puedas ayudarme.
En excel 2010 tengo un libro que tiene varias hojas este libro debe ser accedido por varios usuariuos y cada usuario podrá tener acceso solo a algunas hojas especificas, la hoja inicial la tengo diseñada como un menu con imágenes prediseñadas de excel y cada imagen tiene el nombre de la hoja y un hypervinculo que al darle click lleva al usuario a la hoja especificada, lo que necesito (si es que es posible) es que cada vez que se intente ingresara a una hoja especifica del libro este pida una contraseña para poder trabajar en esa hoja, esto sin que las hojas estén ocultas pues la información de cada hoja se copia en otras y he diseñado algunas macros (muy sencillas) para copiar la información necesaria en las otras hojas por lo tanto si las hojas las oculto las macros que he hecho me dan error.
Espero haberme explicado bien y espero que puedas ayudarme.
1 Respuesta
Respuesta de bacter582
1
Como estas amigo
Creo que algo así te puede ayudar
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim password As String
If Sh.Name <> "Hoja_base" Then
password = InputBox("introduzca su contraseña")
If password = Sh.Name Then
Sh.Activate
Else
MsgBox "No tiene permiso para ver esa hoja"
Sheets("Hoja_base").Select
End If
End If
End Sub
Pruébalo y me avisas.
Creo que algo así te puede ayudar
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim password As String
If Sh.Name <> "Hoja_base" Then
password = InputBox("introduzca su contraseña")
If password = Sh.Name Then
Sh.Activate
Else
MsgBox "No tiene permiso para ver esa hoja"
Sheets("Hoja_base").Select
End If
End If
End Sub
Pruébalo y me avisas.
