Özel Profil Dizeleri genellikle kullanıcıya özel bilgileri daha sonra kullanmak üzere uygulama/belge dışında depolamak için kullanılır.
Örneğin, en son içerikle ilgili bilgileri bir iletişim kutusunda/KullanıcıFormu'nda saklayabilirsiniz,
bir fatura şablonu için bir çalışma kitabının kaç kez açıldığı veya son kullanılan fatura numarası.
Her kullanıcı için Özel Profil Dizeleri Kayıt Defterinde saklanabilir. Bir INI dosyası da kullanabilirsiniz,
ya yerel sabit diskte ya da paylaşılan bir ağ klasöründe.
Burada, Kayıt Defterindeki Özel Profil Dizelerine yazmak ve bu Dizelerden okumak için örnek makrolar verilmiştir.
Aşağıdaki örnekler, etkin sayfadaki B3:B5 aralığının ' Soyadı, Adı ve Doğum Tarihi Alt Bilgileri WriteUserInfoToRegistry() ' içerdiğini varsayar. Sonraki Kaydetme Ayarı "TESTAPLICATION", "Kişisel", "Soyadı", Aralık("B3").Değer KaydetmeAyarı "TESTAPLICATION", "Kişisel", "Ad", Aralık("B4").Değer KaydetmeAyarı "TESTAPPLICATION", "Kişisel ", "Birthdate", Range("B5").Value On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry() ' Kayıt defterindeki bilgileri ' HKEY_CURRENT_USER\Software\VB ve VBA Program Settings\TESTAPPLICATION Range("B3") okur. Formül = GetSetting("TESTAPPLICATION", "Kişisel", "Soyadı", "") Range("B4").Formül = GetSetting("TESTAPLICATION", "Kişisel", "Ad", "") Aralık("B5" .Formula = GetSetting("TESTAPPLICATION", "Kişisel", "Doğum tarihi", "") End Sub ' Aşağıdaki örnek, aktif sayfada D4 aralığının olduğunu varsayar. t benzersiz sayı hakkında bilgi içerir Sub GetNewUniqueNumberFromRegistry() UniqueNumber As Long UniqueNumber = 0 Hatada Devam Etme Sonraki UniqueNumber = CLng(GetSetting("TESTAPLICATION", "Personal", "UniqueNumber", "")) Hatada 0 Aralığına Git ("D4").Formula = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range("D4").Value End Sub Sub DeleteUserInfoFromRegistry() ' Kayıt defterindeki bilgileri ' HKEY_CURRENT_USER\Software\'den siler VB ve VBA Program Ayarları\TESTAPPLICATION Hatada Devam Et Sonraki DeleteSetting "TESTAPPLICATION" ' tüm bilgileri sil 'DeleteSetting "TESTAPPLICATION", "Kişisel" ' bir bölümü sil 'DeleteSetting "TESTAPLICATION", "Kişisel", "Doğum tarihi" ' bir anahtarı sil Açık Hata GoTo 0 End Sub