Nizovi privatnih profila često se koriste za spremanje podataka o korisniku izvan aplikacije/dokumenta za kasniju upotrebu.
Na primjer, podatke o najnovijem sadržaju možete pohraniti u dijaloški okvir/korisnički obrazac,
koliko je puta otvorena radna knjiga ili posljednji korišteni broj računa za predložak računa.
Nizovi privatnih profila za svakog korisnika mogu se pohraniti u registar. Također možete koristiti INI datoteku,
bilo na lokalnom tvrdom disku ili u zajedničkoj mrežnoj mapi.
Evo primjera makronaredbi za pisanje i čitanje iz nizova privatnih profila u registru.
"donji primjeri pretpostavljaju da raspon B3: B5 u aktivnom listu sadrži" podatke o Prezime, Ime i Datum rođenja Pod WriteUserInfoToRegistry () "sprema podatke u Registar u" HKEY_CURRENT_USER \ Software \ VB i VBA Program Settings \ TESTAPPLICATION On Error Resume Sljedeća postavka spremanja "TESTAPPLICATION", "Osobno", "Prezime", Raspon ("B3"). Vrijednost Spremanje postavke "TESTAPPLICATION", "Osobno", "Ime", Raspon ("B4"). Vrijednost Spremanje postavke "TESTAPPLICATION", "Osobno" "," Datum rođenja ", Raspon (" B5 "). Vrijednost pri pogrešci Idi na 0 Završi sub PodčitajUserInfoFromRegistry ()" čita podatke u registru iz "HKEY_CURRENT_USER \ Softver \ VB i VBA programske postavke \ TESTAPPLICATION Raspon (" B3 "). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Lastname", "") Range ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Raspon ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'donji primjer pretpostavlja da raspon D4 u aktivnoj shemi t sadrži 'podatke o jedinstvenom broju 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 () 'briše podatke u registru iz' HKEY_CURRENT_USER \ Software \ VB i VBA programske postavke \ TESTAPPLICATION Uključeno Pogreška Nastavi Sljedeće BrisanjePostavka "TESTAPPLICATION" 'obriši sve informacije' BrisanjePostavka "TESTAPPLICATION", "Osobno" 'brisanje jednog odjeljka' BrisanjePostavljanje "TESTAPPLICATION", "Osobno", "Datum rođenja" 'brisanje jedne tipke Uključeno Pogreška GoTo 0 End Sub