Ayuda con acceso a Libro Excel en funcion del usuario

"Raimundo Planes" wrote in
news:#:

Estimado Grupo estoy intentando hacer un libro Excel con
varias Hojas. Este Libro será utilizado por distintos
usuarios. 1º Desde el Excel, ¿se puede saber el usuario que
ha iniciado sesión en Windows?
2º Como el Libro tiene varias Hojas con distintas
funcionalidades, lo que intento es que según el usuario,
que el Libro se le abra en una determinada Hoja y también,
si se puede, ocultar o bloquear otras Hojas..

En teoria en excell si puedes saber el usuario, por ejemplo
con esta sencilla funcion

Function devolverusuario() As String
devolverusuario = Application.UserName
End Function

te devuelve el nombre del usuario.

El resto seria programar una macro que se ejecute al abrir el
archivo, como por ejemplo:

Sub auto_open() 'asi la macro se ejecuta cuando abres el libro
devolveruser = Application.UserName
Select Case devolveruser
Case Is = "user1"
Sheets("Hoja1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("hoja2").Select
Case Is = "user2"
Sheets("Hoja2").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("hoja3").Select
Case Else
Sheets("Hoja3").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("hoja1").Select
End Select
End Sub

Con esto si inicia el user1 oculta la hoja1 y selecciona la
hoja2. Puedes añadir todo lo que quieras. Ademas deberias
incluir otro modulo llamado Auto_close que haga visible el
resto de hojas cuando la abras.

Saludos y suerte.