|
Hola Abrahan, ante todo gracias por el ejemplo, efectivamente no tengo muy claro como funciona y observándolo se ve bastante sencillo, en este caso estoy tratando de insertarlo dentro de una serie de macros en la que estoy trabajando, pero lo que no te he comentado es que estoy trabajando directamente en el editor de Visual que contiene excel, no se si varia la rutina el que lo este ejecutando de esta manera, disculpa mi ignorancia en relación al tema.
En este caso lo que quiero es que una vez que se abra el libro el mismo lea una variable que contiene una cadena de caracateres en la que se encuentra los diferentes usuarios que he incluido,
Private Sub Workbook_Open()
Usuario_Administrador = "user01,user02,user03"
y una vez que los tenga los separe, para que posteriormente los revise contra el usuario que inicio sesión (Application.UserName)
Usuario_Administrador = SPLIT(LCase(Usuario_Administrador), ",")
usuario = LCase(Application.UserName)
En caso de no sonseguirlo oculto la hoja de excell en este caso Hoja3.
For i = 0 To UBound(Usuario_Administrador)
posicion = posicion + InStr(usuario, Usuario_Administrador(i))
Next
If posicion = 0 Then
Hoja3.Visible = xlSheetVeryHidden
Else
Hoja3.Visible = xlSheetVisible
End If
ActiveWorkbook.Save
End Sub
la verdad no se si es la manera o sencillamente no aplica la función para lo que quiero hacer,
Gracias nuevamente por el apoyo que me puedas brindar al respecto
K.D.
|