Nizki zasebnih profilov se pogosto uporabljajo za shranjevanje podatkov o uporabniku zunaj aplikacije/dokumenta za kasnejšo uporabo.
Podatke o najnovejši vsebini lahko na primer shranite v pogovornem oknu/uporabniškem obrazcu,
kolikokrat je bil odprt delovni zvezek ali zadnja uporabljena številka računa za predlogo računa.
Niz zasebnega profila za vsakega uporabnika je mogoče shraniti v register. Uporabite lahko tudi datoteko INI,
bodisi na lokalnem trdem disku ali v omrežni mapi v skupni rabi.
Tu so primeri makrov za pisanje in branje iz nizov zasebnih profilov v registru.
"Spodnji primeri predvidevajo, da obseg B3: B5 v aktivnem listu vsebuje" informacije o priimku, imenu in datumu rojstva Sub WriteUserInfoToRegistry () "shrani podatke v register v" HKEY_CURRENT_USER \ Software \ VB in VBA Program Settings \ TESTAPPLICATION On Error Resume Naslednja nastavitev shranjevanja "TESTAPPLICATION", "Osebno", "Priimek", Razpon ("B3"). Vrednost Shranjevanje nastavitve "TESTAPPLICATION", "Osebno", "Ime", Obseg ("B4"). Vrednost Shranjevanje nastavitve "TESTAPPLICATION", "Osebno" "," Birthdate ", Range (" B5 "). Value On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'bere podatke v registru iz' HKEY_CURRENT_USER \ Software \ VB in 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 'spodnji primer predpostavlja, da obseg D4 v aktivni shemi t vsebuje 'informacije o edinstveni številki Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 On Error Resume Next UniqueNumber = CLng (GetSetting ("TESTAPPLICATION", "Personal", "UniqueNumber", "")) Napaka GoTo 0 Range ("D4"). Formula = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range ("D4"). Value End Sub Sub DeleteUserInfoFromRegistry () 'izbriše podatke v registru iz' HKEY_CURRENT_USER \ Software \ Nastavitve programa VB in VBA \ TESTAPPLICATION On Napaka Nadaljuj Naprej DeleteSetting "TESTAPPLICATION" 'delete all information' DeleteSetting "TESTAPPLICATION", "Personal" 'delete one section' DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" 'delete one key On Napaka GoTo 0 End Sub