ubiquitour.com

Cómo utilizar VBA para recuperar nombre de usuario de Microsoft Windows

Internet de banda ancha, fácil de configurar routers y equipos relativamente económicos han llevado a una explosión en el crecimiento de las redes domésticas y de pequeña oficina. Personas utilizan el poder de la conectividad para compartir acceso y trabajar en todos los tipos de archivos, especialmente los creados en programas de Microsoft Office. Compartiendo archivos creados en Office--sin importar si creado con Access, Excel, PowerPoint o Word, es a menudo difícil de determinar que el usuario crea un archivo. Sin embargo, con código VBA relativamente simple, puede Agregar el usuario de Windows actual--no el "autor o registrado nombre de usuario" en oficina - del Creador para el documento, el archivo de presentación del formulario o la hoja de cálculo en cuestión de minutos.

Instrucciones

1 Abra la aplicación Microsoft Office que desee agregar el código de macro VBA necesario para mostrar el nombre de usuario actual. Haga clic en la pequeña flecha hacia abajo situado junto al icono de globo o programa de Office en la esquina superior derecha de la ventana. Haga clic en el enlace "Más comandos".

2 Haga clic en "Personalizar cinta de opciones," y haga clic en habilitar la opción "Developer" en el panel derecho de la ventana. Haga clic en el botón "OK".

3 Abrir un documento al que desee agregar el código de VBA. Abra una versión en blanco del documento, hoja de cálculo de forma o presentación o que los usuarios puede personalizar--como debe guardar el objeto como una plantilla.

4 La ficha "Archivo" en la barra de herramientas, haga clic en "Guardar como". Seleccione la opción "Plantilla habilitado para macros" en la lista desplegable de "Guardar como tipo". Introduzca un nombre para la plantilla, a continuación, haga clic en "Guardar".

5 La ficha "Programador" en la barra de herramientas, haga clic en "Macros". Tipo "CurrentWindowsUser" en el cuadro "Nombre de Macro", luego haga clic en "Crear."

6 Copie y pegue el código siguiente en la ventana de "NewMacros(Code)":

Sub CurrentWindowsUser()

Dim MiTexto como cadena

MyText = Environ("username")

Selection.TypeText (MiTexto)

End Sub

7 Haga clic en el icono "Guardar" en la barra de herramientas VBA.

8 La pestaña "Archivo", haga clic en guardar. Cierre el documento de plantilla.

9 Haga clic en "Archivo," "Nuevo", luego "Mis plantillas". Resalte la nueva plantilla en la lista, luego haga clic en "Aceptar".

10 Coloque el cursor en el punto donde desee insertar el nombre de usuario actual de Windows. Haga clic en la ficha "Programador", luego "Macros".

11 Seleccione la macro "CurrentWindowsUser", y haga clic en el botón "Ejecutar". El nombre de usuario actual de Windows aparece en el archivo de objeto de Microsoft en la posición seleccionada.

Consejos y advertencias

  • También puede utilizar el botón de "Personalizar cinta de opciones" en el área de configuración de aplicación de Microsoft Office para agregar un botón para la macro y el código de VBA a la barra de herramientas. Esto le permite ejecutar el código de macro con un solo clic. Haga clic en "Más comandos," "Personalizar cinta de opciones," luego seleccionar "Macros" en la lista desplegable con la etiqueta "Elegir comandos de". Seleccione la macro "CurrentWindowsUser" y haga clic en "Agregar" para agregar la macro a una de las fichas de aplicación.