Șirurile de profil privat sunt adesea folosite pentru a stoca informații specifice utilizatorului în afara aplicației / documentului pentru utilizare ulterioară.
De exemplu, puteți stoca informații despre cel mai recent conținut într-un dialog / UserForm,
de câte ori a fost deschis un registru de lucru sau ultimul număr de factură utilizat pentru un șablon de factură.
Șirurile de profil privat pentru fiecare utilizator pot fi stocate în registru. De asemenea, puteți utiliza un fișier INI,
fie pe harddisk-ul local, fie pe un folder de rețea partajat.
Iată exemplele de macrocomenzi pentru scrierea și citirea din șirurile de profil privat din registru.
„exemplele de mai jos presupune că intervalul B3: B5 din foaia activă conține„ informații despre Prenume, Prenume și Data nașterii Sub WriteUserInfoToRegistry () ”salvează informații în registru în„ HKEY_CURRENT_USER \ Software \ VB și VBA Program Settings \ TESTAPPLICATION On Error Resume Următorul SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range ("B3"). Valoare SaveSetting "TESTAPPLICATION", "Personal", "Prenume", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal "," Data nașterii ", intervalul (" B5 "). Valoare la eroare GoTo 0 End Sub Sub ReadUserInfoFromRegistry () 'citește informații din registru din' HKEY_CURRENT_USER \ Software \ VB și 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 'exemplul de mai jos presupune că intervalul D4 în Shee activ t conține informații despre numărul unic 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 = Număr unic + 1 Salvare Setare "TESTAPPLICATION", "Personal", "Număr unic", Interval ("D4"). Valoare Sfârșit Sub Sub DeleteUserInfoFromRegistry () 'șterge informații din registru din' HKEY_CURRENT_USER \ Software \ Setările programului VB și VBA \ TESTAPPLICATION La eroare Reluare Următorul Șterge Setarea "TESTAPPLICATION" 'șterge toate informațiile' DeleteSetting "TESTAPPLICATION", "Personal" 'șterge o secțiune' DeleteSetting "TESTAPPLICATION", "Personal", "Data nașterii" 'șterge o tastă On Eroare GoTo 0 End Sub