As strings de perfil privado são freqüentemente usadas para armazenar informações específicas do usuário fora do aplicativo / documento para uso posterior.
Você poderia, por exemplo, armazenar informações sobre o conteúdo mais recente em uma caixa de diálogo / formulário de usuário,
quantas vezes uma pasta de trabalho foi aberta ou o último número de fatura usado para um modelo de fatura.
As Strings de Perfil Privado de cada usuário podem ser armazenadas no Registro. Você também pode usar um arquivo INI,
no disco rígido local ou em uma pasta de rede compartilhada.
Aqui estão os exemplos de macros para gravar e ler strings de perfil privado no registro.
'os exemplos abaixo assumem que o intervalo B3: B5 na planilha ativa contém' informações sobre Sobrenome, Nome e Data de Nascimento Sub WriteUserInfoToRegistry () 'salva informações no Registro em' HKEY_CURRENT_USER \ Software \ VB e VBA Program Settings \ TESTAPPLICATION On Error Resume Próximo SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range ("B3"). Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal "," Data de nascimento ", intervalo (" B5 "). Valor no erro GoTo 0 End Sub ReadUserInfoFromRegistry () 'lê informações no Registro de' HKEY_CURRENT_USER \ Software \ VB e VBA Program Settings \ TESTAPPLICATION Range (" B3 "). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Lastname", "") Range ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'o exemplo abaixo assume que o intervalo D4 na folha ativa t contém 'informações sobre o número exclusivo Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 On Error Resume Next UniqueNumber = CLng (GetSetting ("TESTAPPLICATION", "Personal", "UniqueNumber", "")) On Error GoTo 0 Range ("D4"). Formula = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range ("D4"). Value End Sub Sub DeleteUserInfoFromRegistry () 'exclui informações no Registro de' HKEY_CURRENT_USER \ Software \ Configurações do programa VB e VBA \ TESTAPPLICATION On Error Resume Next DeleteSetting "TESTAPPLICATION" 'excluir todas as informações' DeleteSetting "TESTAPPLICATION", "Pessoal" 'excluir uma seção' DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" 'excluir uma chave On Erro GoTo 0 End Sub