Tabla de contenido
Las cadenas de perfiles privados se utilizan a menudo para almacenar información específica del usuario fuera de la aplicación / documento para su uso posterior.
Por ejemplo, podría almacenar información sobre el contenido más reciente en un cuadro de diálogo / formulario de usuario,
cuántas veces se ha abierto un libro de trabajo o el último número de factura utilizado para una plantilla de factura.
Las cadenas de perfiles privados de cada usuario se pueden almacenar en el registro. También puede utilizar un archivo INI,
ya sea en el disco duro local o en una carpeta de red compartida.
A continuación, se muestran macros de ejemplo para escribir y leer cadenas de perfiles privados en el Registro.
'los ejemplos a continuación asumen que el rango B3: B5 en la hoja activa contiene' información sobre Apellido, Nombre y Fecha de Nacimiento Sub WriteUserInfoToRegistry () 'guarda información en el Registro en' HKEY_CURRENT_USER \ Software \ VB and VBA Program Settings \ TESTAPPLICATION On Error Resume Siguiente Guardar Configurando "APLICACIÓN DE PRUEBA", "Personal", "Apellido", Rango ("B3"). Guardar Valor Configurando "APLICACIÓN DE PRUEBA", "Personal", "Nombre", Rango ("B4"). Guardar Valor Configurando "APLICACIÓN DE PRUEBA", "Personal "," Fecha de nacimiento ", Rango (" B5 "). Valor en error Ir a 0 End Sub Sub ReadUserInfoFromRegistry () 'lee información en el Registro de' HKEY_CURRENT_USER \ Software \ VB y VBA Program Settings \ TESTAPPLICATION Range (" B3 "). Fórmula = GetSetting ("TESTAPPLICATION", "Personal", "Apellido", "") Rango ("B4"). Fórmula = GetSetting ("TESTAPPLICATION", "Personal", "Nombre", "") Rango ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'el siguiente ejemplo asume que el rango D4 en el shee activo t contiene 'información sobre el número único Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 On Error Resume Next UniqueNumber = CLng (GetSetting ("TESTAPPLICATION", "Personal", "UniqueNumber", "")) En caso de error Ir a rango 0 ("D4"). Fórmula = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Rango ("D4"). Value End Sub Sub DeleteUserInfoFromRegistry () 'elimina información en el Registro de' HKEY_CURRENT_USER \ Software \ Configuración del programa VB y VBA \ APLICACIÓN DE PRUEBA En caso de error Reanudar Siguiente Eliminar Configuración de "APLICACIÓN DE PRUEBA" 'eliminar toda la información' Eliminar Configuración de "APLICACIÓN DE PRUEBA", "Personal" 'eliminar una sección' Eliminar Configuración de "APLICACIÓN DE PRUEBA", "Personal", "Fecha de nacimiento" 'eliminar una tecla Encendido Error Ir a 0 End Sub
