Súkromné profilové reťazce sa často používajú na ukladanie informácií o používateľoch mimo aplikácie/dokumentu na neskoršie použitie.
Môžete napríklad uložiť informácie o najnovšom obsahu do dialógového okna/UserForm,
koľkokrát bol otvorený zošit alebo posledné použité číslo faktúry pre šablónu faktúry.
Reťazce súkromného profilu pre každého používateľa je možné uložiť do registra. Môžete tiež použiť súbor INI,
buď na lokálnom pevnom disku, alebo v zdieľanom sieťovom priečinku.
Tu sú príklady makier na zápis a čítanie zo súkromných profilových reťazcov v registri.
„nižšie uvedené príklady predpokladajú, že rozsah B3: B5 v aktívnom liste obsahuje„ informácie o priezvisku, krstnom mene a dátume narodenia Sub WriteUserInfoToRegistry () “ukladá informácie do registra do„ HKEY_CURRENT_USER \ Software \ VB a VBA Program Settings \ TESTAPPLICATION On Error Resume Ďalej SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range ("B3"). Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal "," Dátum narodenia ", rozsah (" B5 "). Hodnota pri chybe GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'číta informácie v registri z' HKEY_CURRENT_USER \ Software \ VB a 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 'v nižšie uvedenom príklade predpokladá, že rozsah D4 v aktívnom zobrazení t obsahuje informácie o jedinečnom čísle 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 () 'vymaže informácie v registri z' HKEY_CURRENT_USER \ Software \ Nastavenia programu VB a VBA \ TESTAPPLICATION Pri chybe Pokračovať Ďalej DeleteSetting "TESTAPPLICATION" "zmazať všetky informácie" DeleteSetting "TESTAPPLICATION", "Personal" "vymazať jednu sekciu" DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" 'vymazať jeden kľúč Zapnuté Chyba GoTo 0 End Sub