Private profilstrenger brukes ofte til å lagre brukerspesifikk informasjon utenfor applikasjonen/dokumentet for senere bruk.
Du kan for eksempel lagre informasjon om det siste innholdet i en dialog/brukerform,
hvor mange ganger en arbeidsbok har blitt åpnet eller det siste brukte fakturanummeret for en fakturamal.
Private profilstrenger for hver bruker kan lagres i registret. Du kan også bruke en INI-fil,
enten på den lokale harddisken eller på en delt nettverksmappe.
Her er eksempler på makroer for å skrive til og lese fra private profilstrenger i registret.
'eksemplene nedenfor forutsetter at området B3: B5 i det aktive arket inneholder' informasjon om etternavn, fornavn og fødselsdato Sub WriteUserInfoToRegistry () 'lagrer informasjon i registret til' HKEY_CURRENT_USER \ Software \ VB og VBA Programinnstillinger \ TESTAPPLICATION On Error Resume Neste SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range ("B3"). Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal "," Birthdate ", Range (" B5 "). Value On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'leser informasjon i registret fra' HKEY_CURRENT_USER \ Software \ VB og VBA Program Settings \ TESTAPPLICATION Range (" B3 "). Formel = GetSetting ("TESTAPPLICATION", "Personal", "Lastname", "") Range ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'i eksemplet nedenfor forutsetter at området D4 i den aktive arket t inneholder 'informasjon om det unike nummeret Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 På feil Resume Next 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 () 'sletter informasjon i registret fra' HKEY_CURRENT_USER \ Software \ Software \ VB- og VBA -programinnstillinger \ TESTAPPLICATION Ved feil Gjenoppta Neste DeleteSetting "TESTAPPLICATION" 'delete all information' DeleteSetting "TESTAPPLICATION", "Personal" 'delete one section' DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" 'delete one key On Feil GoTo 0 End Sub