Privātā profila virknes bieži izmanto, lai uzglabātu lietotājam specifisku informāciju ārpus lietojumprogrammas/dokumenta vēlākai lietošanai.
Piemēram, jūs varētu saglabāt informāciju par jaunāko saturu dialoglodziņā/UserForm,
cik reizes ir atvērta darbgrāmata vai pēdējais izmantotais rēķina veidnes rēķina numurs.
Katra lietotāja privātā profila virknes var saglabāt reģistrā. Varat arī izmantot INI failu,
vai nu lokālajā cietajā diskā, vai koplietotā tīkla mapē.
Šeit ir makro piemēri rakstīšanai reģistrā un privātā profila virkņu lasīšanai.
Turpmākajos piemēros tiek pieņemts, ka diapazonā B3: B5 aktīvajā lapā ir informācija par uzvārdu, vārdu un dzimšanas datumu Sub WriteUserInfoToRegistry () saglabā informāciju reģistrā uz “HKEY_CURRENT_USER \ Software \ VB un VBA Program Settings” TESTAPPLICATION On Error Resume Nākamais SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range ("B3"). Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal" "," Dzimšanas datums ", diapazons (" B5 "). Kļūdas vērtība GoTo 0 End Sub Sub ReadUserInfoFromRegistry ()" nolasa informāciju reģistrā no 'HKEY_CURRENT_USER \ Software \ VB un VBA programmas iestatījumi \ TESTAPPLICATION diapazona ("B3"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Uzvārds", "") diapazons ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5") ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthdate", "") End Sub 'zemāk esošajā piemērā tiek pieņemts, ka diapazons D4 aktīvajā shee t satur 'informāciju par unikālo numuru 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 () 'izdzēš reģistrā esošo informāciju no' HKEY_CURRENT_USER \ Software \ VB un VBA programmas iestatījumi \ TESTAPPLICATION Par kļūdu Atsākt nākamo dzēšanu Kļūda GoTo 0 End Sub