Ciągi profili prywatnych są często używane do przechowywania informacji specyficznych dla użytkownika poza aplikacją/dokumentem do późniejszego wykorzystania.
Możesz na przykład przechowywać informacje o najnowszej zawartości w oknie dialogowym/Formularzu użytkownika,
ile razy skoroszyt został otwarty lub ostatnio użyty numer faktury dla szablonu faktury.
Ciągi profili prywatnych dla każdego użytkownika mogą być przechowywane w Rejestrze. Możesz także użyć pliku INI,
na lokalnym dysku twardym lub w udostępnionym folderze sieciowym.
Oto przykładowe makra do zapisywania i odczytywania ciągów profili prywatnych w Rejestrze.
' poniższe przykłady zakładają, że zakres B3:B5 w aktywnym arkuszu zawiera ' informacje o Nazwisku, Imieniu i Dacie urodzenia Sub WriteUserInfoToRegistry() ' zapisuje informacje w Rejestrze w ' HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TESTAPPLICATION Przy wznowieniu błędu Dalej SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range("B3").Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range("B4").Value SaveSetting "TESTAPPLICATION", "Personal" ", "Data urodzenia", Range("B5").Value On Error GoTo 0 End Sub ReadUserInfoFromRegistry() ' odczytuje informacje w rejestrze z ' HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TESTAPPLICATION Range("B3"). Formuła = GetSetting("TESTAPPLICATION", "Osobiste", "Nazwisko", "") Range("B4").Formula = GetSetting("TESTAPPLICATION", "Osobiste", "Imię", "") Range("B5" ).Formula = GetSetting("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub ' w poniższym przykładzie przyjęto, że zakres D4 w aktywnym arkuszu t zawiera informacje o unikalnym numerze Sub GetNewUniqueNumberFromRegistry() Dim UniqueNumber As Long UniqueNumber = 0 W przypadku błędu Wznów Następne UniqueNumber = CLng(GetSetting("TESTAPPLICATION", "Personal", "UniqueNumber", "")) W przypadku błędu GoTo 0 Range ("D4").Formula = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range("D4").Value End Sub DeleteUserInfoFromRegistry() ' usuwa informacje z rejestru z ' HKEY_CURRENT_USER\Software\ Ustawienia programów VB i VBA\TESTAPPLICATION Przy błędzie Wznów Dalej DeleteSetting "TESTAPPLICATION" ' usuń wszystkie informacje 'DeleteSetting "TESTAPPLICATION", "Personal" ' usuń jedną sekcję 'DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" ' usuń jeden klucz Wł. Błąd Przejdź do 0 Koniec Sub