Archive

Posts Tagged ‘Application.UserName’

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.

Categories: vba Tags: