Ejecutar macro dependiendo del nombre de usuario de Excel
Si lo que queremos es ejecutar alguna macro, pero dependiendo del nombre de usuario, el siguiente código nos permitirá realizarlo.
Option Explicit
Private Sub Workbook_Open()
‘declaramos la variable del usuario
Dim usuario As String
usuario = Application.UserName
If usuario = "Usuario1" Then
MsgBox "Aquí el va el código para Usuario1"
Else
If usuario = "Usuario2" Then
MsgBox "Aquí va el código para Usuario2"
End If
End If
‘se podrán utilizar todos los Else If necesarios
End Sub
En caso de que queramos saber cuál es el nombre de usuario
Sub ObtenerNombreUsuario()
Dim usuario As String
usuario = Application.UserName
MsgBox "El nombre de usuario actual es: " & usuario
End Sub
Para saber a qué dato estamos apuntando, lo podrás saber entrando a las opciones de Excel en el apartado Nombre de usuario de la ficha General.
