Privataus profilio eilutės dažnai naudojamos konkrečiai naudotojo informacijai saugoti ne programoje/dokumente, kad vėliau būtų galima naudoti.
Pavyzdžiui, galite išsaugoti informaciją apie naujausią turinį dialogo lange/„UserForm“,
kiek kartų buvo atidaryta darbaknygė arba paskutinis sąskaitos faktūros šablono sąskaitos faktūros numeris.
Kiekvieno vartotojo asmeninio profilio eilutės gali būti saugomos registre. Taip pat galite naudoti INI failą,
vietiniame standžiajame diske arba bendro tinklo aplanke.
Čia pateikiamos pavyzdinės makrokomandos, skirtos rašyti ir skaityti registro privataus profilio eilutes.
Toliau pateiktuose pavyzdžiuose daroma prielaida, kad aktyviojo lapo diapazone B3: B5 yra „informacija apie pavardę, vardą ir gimimo datą Sub WriteUserInfoToRegistry ()“ išsaugo informaciją registre registre „HKEY_CURRENT_USER \ Software \ VB“ ir VBA programos nustatymuose \ TESTAPPLICATION On Error Resume Kitas IšsaugotiNustatymas "TESTAPPLICATION", "Asmeninis", "Pavardė", Diapazonas ("B3"). Reikšmė Išsaugoti Nustatymas "TESTAPPLICATION", "Asmeninis", "Vardas", Diapazonas ("B4"). Reikšmė SaveSetting "TESTAPPLICATION", "Asmeninis "," Gimimo data ", diapazonas (" B5 "). Reikšmė On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry ()" nuskaito registro informaciją iš 'HKEY_CURRENT_USER \ Software \ VB and VBA Program Settings \ TESTAPPLICATION Range ("B3"). Formulė = „GetSetting“ („TESTAPPLICATION“, „Asmeninis“, „Pavardė“, „“) diapazonas („B4“). Formulė = „GetSetting“ („TESTAPPLICATION“, „Asmeninis“, „Vardas“, „“) Diapazonas („B5“) ) .Formula = GetSetting ("TESTAPPLICATION", "Asmeninis", "Gimtadienis", "") Pabaiga Toliau pateiktame pavyzdyje daroma prielaida, kad diapazonas D4 aktyviame lange t yra "informacija apie unikalų numerį Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 On Error Resume Next UniqueNumber = CLng (GetSetting (" TESTAPPLICATION "," Personal "," UniqueNumber "," ")) Apie klaidą GoTo 0 Range ("D4"). Formulė = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Diapazonas ("D4"). Vertė End Sub Sub DeleteUserInfoFromRegistry () 'ištrina registro informaciją iš' HKEY_CURRENT_USER \ Software \ VB ir VBA programos nustatymai \ TESTAPPLICATION Įvyko klaida Tęsti toliau IštrintiNustatymas "TESTAPPLICATION" 'ištrinti visą informaciją' IštrintiNustatymas "TESTAPPLICATION", "Personal" 'ištrinkite vieną skyrių' DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" 'ištrinti vieną raktą On Klaida „GoTo 0 End Sub“