Privaatprofiili stringe kasutatakse sageli kasutajapõhise teabe salvestamiseks väljaspool rakendust/dokumenti hilisemaks kasutamiseks.
Näiteks võite salvestada teavet uusima sisu kohta dialoogi/UserForm,
mitu korda töövihikut on avatud või arve malli jaoks viimati kasutatud arve number.
Registrisse saab salvestada iga kasutaja privaatprofiili stringe. Võite kasutada ka INI-faili,
kas kohalikul kõvakettal või jagatud võrgu kaustas.
Siin on näidismakrod, mida saab kasutada registri privaatprofiili stringidesse kirjutamiseks ja sealt lugemiseks.
Alltoodud näited eeldavad, et aktiivse lehe vahemik B3: B5 sisaldab teavet perekonnanime, eesnime ja sünnikuupäeva alamkirjutuste kohtaUserInfoToRegistry () salvestab registris oleva teabe kausta „HKEY_CURRENT_USER \ Software \ VB ja VBA Program Settings” TESTAPPLICATION On Error Resume Järgmine salvestamineSätte "TESTAPPLICATION", "Isiklik", "Perekonnanimi", vahemik ("B3"). Väärtuse salvestamineSätte "TESTAPPLICATION", "Isiklik", "Eesnimi", vahemik ("B4"). Väärtuse salvestamineSätte "TESTAPPLICATION", "Isiklik" "," Sünnikuupäev ", vahemik (" B5 "). Väärtus vea korral GoTo 0 End Sub Sub ReadUserInfoFromRegistry ()" loeb registrist teavet jaotisest 'HKEY_CURRENT_USER \ Software \ VB ja VBA programmi seaded \ TESTAPPLICATION Range ("B3"). Valem = GetSetting ("TESTAPPLICATION", "Isiklik", "Perekonnanimi", "") Vahemik ("B4"). Valem = GetSetting ("TESTAPPLICATION", "Isiklik", "Eesnimi", "") Vahemik ("B5") ) .Formula = GetSetting ("TESTAPPLICATION", "Isiklik", "Sünnikuupäev", "") Lõpu alam "Allolevas näites eeldatakse, et vahemik D4 aktiivses kihis t sisaldab teavet unikaalse numbri kohta Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 Viga Jätka Järgmine UniqueNumber = CLng (GetSetting ("TESTAPPLICATION", "Isiklik", "UniqueNumber", "")) vea GoTo 0 vahemikus ("D4"). Valem = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Vahemik ("D4"). Väärtus End Sub Sub DeleteUserInfoFromRegistry () 'kustutab registrist teabe' HKEY_CURRENT_USER \ Software \ VB- ja VBA -programmi seaded \ TESTAPPLICATION Vigade korral Jätkake järgmisel Viga GoTo 0 Sub Sub