¿como controlar acceso a nivel de usuario en un libro de excel?

28/10/2008 - 16:44 por ANGELES | Informe spam
TENGO EN UNA HOJA UNA BASE CON VARIOS NIVELES, DIRECTOR, SUBDIRECTOR, GERENTE
Y EJECUTIVOS, LO QUE QUIERO HACER ES QUE CADA UNO CON UNA CLAVE DE ACCESO AL
LIBRO SOLO PUEDA VER EL RESUMEN DE SU NIVEL
 

Leer las respuestas

#1 Héctor Miguel
28/10/2008 - 21:43 | Informe spam
hola, angeles "

... EN UNA HOJA UNA BASE CON VARIOS NIVELES, DIRECTOR, SUBDIRECTOR, GERENTE Y EJECUTIVOS
... QUE CADA UNO CON UNA CLAVE DE ACCESO AL LIBRO SOLO PUEDA VER EL RESUMEN DE SU NIVEL



el siguiente ejemplo (si las macros son habilitadas) al abrirse el libro solicita una clave...
si la clave coincide EXACTAMENTE con las claves de la matriz (3 en este ejemplo)...
solo cambia las lineas con los MsgBox(es) por las acciones que requieras ejecutar "segun la clave"

si no quieres que "se vea" la clave cuando la introducen, necesitaras de un formulario de usuario -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

' == en el modulo de codigo de tu libro (ThisWorkbook) ==Private Sub Workbook_Open()
Dim Claves As Variant, EstaClave As String, Clave As Integer, ClaveEsBuena As Boolean
Claves = Array("PassWord", "Clave Especial", "Otra clave")
EstaClave = Trim(InputBox("Indicame tu clave...", "Proceso especial"))
If EstaClave = "" Then
MsgBox "Clave omitida..." & vbCr & "Terminado proceso..."
Exit Sub
End If
For Clave = 0 To UBound(Claves)
If EstaClave = Claves(Clave) Then
ClaveEsBuena = True
Exit For
End If
Next
If ClaveEsBuena Then
Select Case Clave
Case 0
MsgBox "Proceso validado para la clave " & Claves(0)
Case 1
MsgBox "Proceso validado para la clave " & Claves(1)
Case 2
MsgBox "Proceso validado para la clave " & Claves(2)
End Select
Else
MsgBox "Clave NO valida !!!" & vbCr & "Proceso invalidado."
End If
End Sub

Preguntas similares