Private profilstrenge bruges ofte til at gemme brugerspecifikke oplysninger uden for applikationen/dokumentet til senere brug.
Du kan f.eks. Gemme oplysninger om det nyeste indhold i en dialog/brugerform,
hvor mange gange en projektmappe er blevet åbnet eller det sidst anvendte fakturanummer til en fakturaskabelon.
Private profilstrenge for hver bruger kan gemmes i registreringsdatabasen. Du kan også bruge en INI-fil,
enten på den lokale harddisk eller på en delt netværksmappe.
Her er eksemplerne på makroer til at skrive til og læse fra private profilstrenge i registreringsdatabasen.
'nedenstående eksempler forudsætter, at området B3: B5 i det aktive ark indeholder' information om efternavn, fornavn og fødselsdato Sub WriteUserInfoToRegistry () 'gemmer oplysninger i registreringsdatabasen til' HKEY_CURRENT_USER \ Software \ VB og VBA Programindstillinger \ TESTAPPLICATION ved fejloptagelse Næste SaveSetting "TESTAPPLICATION", "Personal", "Efternavn", Range ("B3"). Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal "," Fødselsdato ", Område (" B5 "). Værdi ved fejl GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'læser oplysninger i registreringsdatabasen fra' HKEY_CURRENT_USER \ Software \ VB og VBA -programindstillinger \ TESTAPPLICATION -område ('B3'). Formel = GetSetting ("TESTAPPLICATION", "Personal", "Efternavn", "") Område ("B4"). Formel = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'nedenstående eksempel antager, at intervallet D4 i den aktive shee t indeholder 'information om det unikke nummer Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 Ved fejl Genoptag Næste 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 oplysninger i registreringsdatabasen fra' HKEY_CURRENT_USER \ Software \ Software \ VB- og VBA -programindstillinger \ TESTAPPLICATION Ved fejl Genoptag Næste SletSæt "TESTAPPLICATION" 'slet alle oplysninger' DeleteSetting 'TESTAPPLICATION', 'Personal' 'delete one section' DeleteSetting 'TESTAPPLICATION', 'Personal', 'Birthdate' 'delete one key On Fejl GoTo 0 End Sub