Function GetAppVersion() As String
    Select Case Fix(Val(Application.Version))
        'Case 14.01 And 14.99 'Office 2011 - MAC
            '
        Case 14
            GetAppVersion = "Office 2010"
        Case 12 '13 versiyonu yayınlanmadı/atlandı.
            GetAppVersion = "Office 2007"
        Case 11
            GetAppVersion = "Office 2003"
        Case 10
            GetAppVersion = "Office 2002"
        Case 9
            GetAppVersion = "Office 2000"
        Case 8
            GetAppVersion = "Office 97"
        Case 7
            GetAppVersion = "Office 95"
        Case Else
            GetAppVersion = "Çok eski versiyon"
    End Select
End Function
 
Sub SetOfficeSecurity()
'-------------------------------------------------------------------------
' ~~~ AŞAĞIDAKİ "CONST" SABİTLERİ İLGİLİ REGISTRY' DAKİ DİZE ADLARIDIR ~~~
'-------------------------------------------------------------------------
'Office Security Registry ayarları:
regExc = "HKCU\Software\Microsoft\Office\XX.X\Excel\Security\"
regAcc = "HKCU\Software\Microsoft\Office\XX.X\Access\Security\"
 
'VBA güvenlik seviyesi (2007 öncesi) REG_DWORD
'Düşük=1, Orta=2, Yüksek=3, ÇokYüksek=4
Const Level As Integer = 1
 
'VBA güvenlik seviyesi (2007 ve üzeri) REG_DWORD
'Tümü Etkin=1, İmzasızlar Pasif=2, Bildirimli Tümü Pasif=3, Bildirimsiz Tümü Pasif=4
Const VBAWarnings As Integer = 1
 
'Tüm Eklenti ve Yüklü Şablonlara Güven (2007 öncesi) REG_DWORD
'İşaretli=0, İşaretsiz=1
Const DontTrustInstalledFiles As Integer = 0 'İşaretli
 
'VBA Projesi nesne modeli erişimine güven (Tüm versiyonlar) REG_DWORD
'İşaretli=1, İşaretsiz=0
Const AccessVBOM As Integer = 1
 
'Tüm eklentileri devre dışı bırak (2007 ve üzeri) REG_DWORD
'İşaretli=1, İşaretsiz=0
Const DisableAllAddins As Integer = 0
 
'Eklenti imza gerektirir (2007 ve üzeri) REG_DWORD
'İşaretli=1, İşaretsiz=0
Const RequireAddinSig As Integer = 0
 
'İmzasız eklenti bildirimini devre dışı bırak (2007 ve üzeri) REG_DWORD
'İşaretli=1, İşaretsiz=0
Const NoTBPromptUnsignedAddin As Integer = 0
 
'****************************************************************************
'****************************************************************************
'*** Aşağıdaki Registry ayarı Common anahtarı altındadır ***
regCommon = "HKCU\Software\Microsoft\Office\Common\Security\"
 
'ActiveX ayarı (2007 ve üzeri) REG_DWORD
'Bildirimsiz Tümü devre dışı=0, diğer durumda=1
Const DisableAllActiveX As Integer = 1
 
'Güvenli Mod ActiveX çentiği ile ve yukarıdaki dize=1 durumunda(2007 ve üzeri) REG_DWORD
'İşaretli=Çift sayı, İşaretsiz=Tek sayı
Const UFIControls As Integer = 3 'UFI ve SFI denetimleri önce sor.(Bkz.tek sayı)
'Const UFIControls As Integer = 4 'UFI ve SFI denetimleri önce sor.(Bkz.çift sayı)
'Const UFIControls As Integer = 5 'Çok az kısıtlamayla önce sor.(Bkz.tek sayı)
'Const UFIControls As Integer = 6 'Çok az kısıtlamayla önce sor.(Bkz.çift sayı)
'Const UFIControls As Integer = 1 'Kısıtsız, sormadan etkinleştir.(Bkz.tek sayı)
'Const UFIControls As Integer = 2 'Kısıtsız, sormadan etkinleştir.(Bkz.çift sayı)
'******************************************************************************
'******************************************************************************
End Sub