Privata profilsträngar används ofta för att lagra användarspecifik information utanför applikationen/dokumentet för senare användning.
Du kan till exempel lagra information om det senaste innehållet i en dialogruta/UserForm,
hur många gånger en arbetsbok har öppnats eller det senast använda fakturanumret för en fakturamall.
Privata profilsträngar för varje användare kan lagras i registret. Du kan också använda en INI-fil,
antingen på den lokala hårddisken eller på en delad nätverksmapp.
Här är exempelmakron för att skriva till och läsa från privata profilsträngar i registret.
'exemplen nedan antar att intervallet B3: B5 i det aktiva bladet innehåller' information om efternamn, förnamn och födelsedatum Sub WriteUserInfoToRegistry () 'sparar information i registret till' HKEY_CURRENT_USER \ Software \ VB och VBA Programinställningar \ TESTAPPLICATION Vid felåterupptagning Nästa SaveSetting "TESTAPPLICATION", "Personal", "Efternamn", Range ("B3"). Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal "," Födelsedatum ", intervall (" B5 "). Värde vid fel GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'läser information i registret från' HKEY_CURRENT_USER \ Software \ VB och VBA Program Settings \ TESTAPPLICATION Range (" B3 "). Formel = GetSetting ("TESTAPPLICATION", "Personal", "Efternamn", "") Område ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'exemplet nedan antar att intervallet D4 i den aktiva sheen t innehåller information om det unika numret Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 Vid fel Återuppta nästa UniqueNumber = CLng (GetSetting ("TESTAPPLICATION", "Personal", "UniqueNumber", "")) On Error GoTo 0 Range ("D4"). Formel = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range ("D4"). Value End Sub Sub DeleteUserInfoFromRegistry () 'raderar information i registret från' HKEY_CURRENT_USER \ Software \ Software \ VB- och VBA -programinställningar \ TESTAPPLICATION Vid fel Återuppta Nästa Radera Inställning "TESTAPPLICATION" 'radera all information' RaderaSätt "TESTAPPLICATION", "Personal" "radera en sektion" DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" 'delete one key On Fel GoTo 0 End Sub