Низови приватног профила често се користе за складиштење специфичних података корисника изван апликације/документа за каснију употребу.
Можете, на пример, да сачувате информације о најновијем садржају у дијалогу/корисничком обрасцу,
колико је пута отворена радна свеска или последњи коришћени број рачуна за предложак фактуре.
Низови приватних профила за сваког корисника могу се чувати у Регистру. Такође можете користити ИНИ датотеку,
било на локалном чврстом диску или у дељеној мрежној фасцикли.
Ево примера макроа за писање и читање из приватних низова профила у регистру.
„доњи примери претпостављају да опсег Б3: Б5 у активном листу садржи„ информације о презимену, имену и датуму рођења Суб ВритеУсерИнфоТоРегистри () “чува информације у регистру у„ ХКЕИ_ЦУРРЕНТ_УСЕР \ Софтваре \ ВБ и ВБА програмске поставке \ ТЕСТАППЛИЦАТИОН о наставку грешке Следеће Подешавање чувања „ТЕСТАППЛИЦАТИОН“, „Лично“, „Презиме“, Опсег („Б3“). Вредност СавеСеттинг „ТЕСТАППЛИЦАТИОН“, „Персонал“, „Фирстнаме“, Ранге („Б4“). Валуе СавеСеттинг „ТЕСТАППЛИЦАТИОН“, „Персонал "," Биртхдате ", Ранге (" Б5 "). Валуе Он Еррор ГоТо 0 Енд Суб Суб РеадУсерИнфоФромРегистри () 'чита информације у Регистру из' ХКЕИ_ЦУРРЕНТ_УСЕР \ Софтваре \ ВБ и ВБА Програм Сеттингс \ ТЕСТАППЛИЦАТИОН Ранге (" Б3 ")). Формула = ГетСеттинг ("ТЕСТАППЛИЦАТИОН", "Персонал", "Ластнаме", "") Ранге ("Б4"). Формула = ГетСеттинг ("ТЕСТАППЛИЦАТИОН", "Персонал", "Фирстнаме", "") Ранге ("Б5" ) .Формула = ГетСеттинг ("ТЕСТАППЛИЦАТИОН", "Персонал", "Биртхдате", "") Енд Суб 'доњи пример претпоставља да опсег Д4 у активној схеми т садржи 'информације о јединственом броју Суб ГетНевУникуеНумберФромРегистри () Дим УникуеНумбер Ас Лонг УникуеНумбер = 0 Он Еррор Ресуме Нект УникуеНумбер = ЦЛнг (ГетСеттинг ("ТЕСТАППЛИЦАТИОН", "Персонал", "УникуеНумбер", "")) Он Еррор ГоТо 0 Ранге ("Д4"). Формула = УникуеНумбер + 1 СавеСеттинг "ТЕСТАППЛИЦАТИОН", "Персонал", "УникуеНумбер", Ранге ("Д4"). Валуе Енд Суб Суб ДелетеУсерИнфоФромРегистри () 'брише информације у регистру из' ХКЕИ_ЦУРРЕНТ_УСЕР \ Софтваре \ Подешавања програма ВБ и ВБА \ ТЕСТАППЛИЦАТИОН Он Грешка Настави Следеће ДелетеСеттинг "ТЕСТАППЛИЦАТИОН" 'делете алл информатион' ДелетеСеттинг "ТЕСТАППЛИЦАТИОН", "Персонал" 'делете оне сецтион' ДелетеСеттинг "ТЕСТАППЛИЦАТИОН", "Персонал", "Биртхдате" 'делете оне кеи Он Грешка ГоТо 0 Енд Суб