Private Profile Strings worden vaak gebruikt om gebruikersspecifieke informatie op te slaan buiten de applicatie/het document voor later gebruik.
U kunt bijvoorbeeld informatie over de nieuwste inhoud opslaan in een dialoogvenster/UserForm,
hoe vaak een werkmap is geopend of het laatst gebruikte factuurnummer voor een factuursjabloon.
Private Profile Strings voor elke gebruiker kunnen worden opgeslagen in het register. U kunt ook een INI-bestand gebruiken,
ofwel op de lokale harde schijf of op een gedeelde netwerkmap.
Hier zijn de voorbeeldmacro's voor het schrijven naar en lezen van Private Profile Strings in het register.
' de onderstaande voorbeelden gaan ervan uit dat het bereik B3:B5 in het actieve blad ' informatie over achternaam, voornaam en geboortedatum Sub WriteUserInfoToRegistry()' bevat slaat informatie in het register op in ' HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TESTAPPLICATION On Error Resume Volgende OpslaanInstelling "TESTAPPLICATIE", "Persoonlijk", "Achternaam", Range("B3").Waarde OpslaanInstelling "TESTAPPLICATIE", "Persoonlijk", "Voornaam", Bereik("B4").Waarde OpslaanInstelling "TESTAPPLICATIE", "Persoonlijk ", "Birthdate", Range("B5").Value On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry() ' leest informatie in het register van ' HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TESTAPPLICATION Range("B3"). Formula = GetSetting("TESTAPPLICATION", "Persoonlijk", "Achternaam", "") Range("B4").Formula = GetSetting("TESTAPPLICATION", "Persoonlijk", "Voornaam", "") Range("B5" ).Formula = GetSetting("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub ' in het onderstaande voorbeeld wordt ervan uitgegaan dat het bereik D4 in het actieve blad t bevat ' informatie over het unieke nummer 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() ' verwijdert informatie in het register van ' HKEY_CURRENT_USER\Software\ VB- en VBA-programma-instellingen\TESTAPPLICATIE Aan Fout Hervatten Volgende VerwijderenInstelling "TESTAPPLICATIE" ' verwijder alle informatie 'VerwijderInstelling "TESTAPPLICATIE", "Persoonlijk" ' verwijder één sectie 'VerwijderInstelling "TESTAPPLICATIE", "Persoonlijk", "Geboortedatum" ' verwijder één sleutel Aan Fout GoTo 0 End Sub