Excel - AYUDA URGENTE POR FAVOR !!! NOMBRE DE USUARIO EXCEL !!!

   
Vista:

AYUDA URGENTE POR FAVOR !!! NOMBRE DE USUARIO EXCEL !!!

Publicado por Giancarlo Jose (46 intervenciones) el 14/04/2016 19:59:13
Buenas tardes a todos !!!

Tengo un código que al abrir el excel muestra el nombre de usuario que a iniciado seción en esa maquina que es este:

Private Sub Workbook_Open()
On Error Resume Next
Usuario = Application.UserName
MsgBox "Bienvenido al Sistema de Control de Atención al Usuario, " & Usuario
End Sub

Lo que quiero es que ese nombre de usuario una ves que se muestre se coloque en la CELDA A1, es posible eso ?? POR FAVOR AYUDENME !!! y de ser posible podría aparecer el nombre de usuario luego de llenar CIERTO CAMPO: por ejemplo al escribir algo en el CAMPO A2, que automaticamente en el campo A1 me jale el nombre de usuario.

AYUDA POR FAVOR !!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA URGENTE POR FAVOR !!! NOMBRE DE USUARIO EXCEL !!!

Publicado por agustin (149 intervenciones) el 15/04/2016 02:53:48
Puedes hacerlo así:
En la parte de codigo de ThisWorkbook pones esto:
1
2
3
4
5
6
7
8
9
Public ShowNameUser As Boolean
Public Usuario As String
 
Private Sub Workbook_Open()
    ShowNameUser = True
    On Error Resume Next
    Usuario = Application.UserName
    MsgBox "Bienvenido al Sistema de Control de Atención al Usuario, " & Usuario
End Sub
Y en la parte de codigo de la hoja que desees que pase esto pones esto:
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    If ThisWorkbook.ShowNameUser = True And Target.Address = "$A$2" Then
        ThisWorkbook.ShowNameUser = False
        Cells(1, 1).Value = ThisWorkbook.Usuario
    ElseIf ThisWorkbook.ShowNameUser = True And Target.Address = "$A$1" Then
        ThisWorkbook.ShowNameUser = False
        Cells(1, 1).Value = ThisWorkbook.Usuario
    Else
        ThisWorkbook.ShowNameUser = True
    End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar