Cómo utilizar VBA para recuperar Microsoft Windows Usuario

Internet de banda ancha , fácil de configurar routers y equipos relativamente económicos han dado lugar a una explosión en el crecimiento de las redes domésticas y de pequeñas oficinas . La gente usa el poder de la conectividad para compartir el acceso y trabajar en todo tipo de archivos - sobre todo las creadas en los programas de Microsoft Office. Al compartir archivos creados en Office - sin importar si se ha creado con Access, Excel , PowerPoint o Word - a menudo es difícil determinar qué usuario crea un archivo . Sin embargo , con algunos relativamente simple código de VBA , se puede añadir el nombre de usuario actual de Windows - no el " Autor y Nombre del usuario registrado " en la oficina - del creador del documento, formulario de archivo de la presentación u hoja de cálculo en cuestión de minutos . Instrucciones
1

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

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

Abra un documento al que desea agregar el código de VBA. Abra una versión en blanco del documento, hoja de cálculo de forma o presentación - o uno que lo que los usuarios pueden personalizar - . Ya que debe guardar el objeto como plantilla

4 Haga clic en la ficha "Archivo " en la la barra de herramientas , luego " Guardar como". Seleccione la opción "Plantilla habilitada para macros " en la opción "Guardar como tipo" lista desplegable . Escriba un nombre para la plantilla y haga clic en " Guardar".
5

Haga clic en la pestaña de " revelado" en la barra de herramientas , haga clic en " Macros ". Tipo " CurrentWindowsUser " en el cuadro " Nombre de macro " , a continuación, haga clic en " Crear".
6

Copia y pega el siguiente código en la ventana " NewMacros ( código)" :

Sub CurrentWindowsUser ()

MyText dévil como secuencia

MyText = Environ ( "username" )

Selection.TypeText ( MyText )

End Sub
Página 7

clic en el icono " guardar" en la barra de herramientas de VBA.
8

clic en la ficha "Archivo" , luego guarde . Cierre el documento de plantilla .
9

Haga clic en " Archivo", " Nuevo" y luego " Mis plantillas " . Seleccione la nueva plantilla en la lista, haga clic en " Aceptar".
10

Coloque el cursor en el lugar donde desea insertar el nombre de usuario actual de Windows. Haga clic en la pestaña de " desarrolladores" , luego " Macros ".
11

Resaltar la macro " CurrentWindowsUser " , haga clic en el botón "Ejecutar " . El nombre del usuario actual de Windows aparece en el archivo de objetos de Microsoft en la posición seleccionada .