Visual Basic Project Erişimine Güven Çekbox'ını True yapmak.

[Orion1]

Merhabalar.
Makro ile ,Visual Basic Project Erişimine Güven Çekbox'ını True yapmak istiyorum.Teşekkür ederim.İyi çalışmalar.

 

[Haluk]

Benim kullandığım Office2000' de böyle bir seçenek olmadığı için deneme şansım yok.

Aşağıdaki kodu çalıştırdıktan sonra yeni ayarın geçerli olabilmesi için Excel'i kapatıp, tekrar açmanız gerekebilir.

Sub Test()
    Dim WSH_Shell As Object
    Dim MyVer As String, RegKey As String
    Dim MySetting As Integer
    MyVer = Application.Version
    RegKey = "HKCU\Software\Microsoft\Office\" & MyVer & "\Excel\Security\Level"
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegWrite RegKey, 4, "REG_DWORD"
End Sub

 

[Orion1]

Merhabalar.
Yanıtınız için teşekkür ederim.
Bu kodlar Makro Güvenlik Düzeyini Yüksek seviyeye getiriyor.Ve makrolar çalışmıyor.

 

[Haluk]

Dediğim gibi, deneme şansım yok.

Kodlarda aşağıdaki satırda işaretlenen kırmızı değerle oynamak lazım.

[vb:1:e56e18a6b6] WSH_Shell.RegWrite RegKey, 4, "REG_DWORD" [/vb:1:e56e18a6b6]

 

[Haluk]

Bir de aşağıdakini deneyin...

Sub Test2()
    Dim WSH_Shell As Object
    Dim MyVer As String, RegKey As String
    Dim MySetting As Integer
    MyVer = Application.Version
    RegKey = "HKCU\Software\Microsoft\Office\" & MyVer & "\Excel\Security\AccessVBOM"
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"
End Sub

Kodu çalıştırdıktan sonra, Exceli kapatıp tekrar açmanız gerekebilir.

Eğer yine olmazsa, bir de bunu deneyin ...

Sub Test3()
    Dim WSH_Shell As Object
    Dim MyVer As String, RegKey As String
    Dim MySetting As Integer
    MyVer = Application.Version
    RegKey = "HKLM\Software\Microsoft\Office\" & MyVer & "\Excel\Security\AccessVBOM"
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegWrite RegKey, 1, "REG_DWORD"
End Sub

 

[Haluk]

Sayın Sezar,

Merak ettim, yukarıdaki önerilerim işinize yaradı mı ?

 

[Orion1]

Merhabalar.
Sayın Haluk Hocam teşekkür ederim.
Test3 makrosu İstediğimi yaptı.Ama Şimdi bir sorun oldu.
Güvenilen Yayımcılık ta ki checkbox artık Enable=false olmuş durumda.
Onu seçemiyorum.
Checkbox'ın Seçilebilir durumda olması, tekrar enable=true olması mümkünmü acaba?
Ayriyetten şunuda belirtmeliyim.
Dosyayı açıp kapatmak gerekmiyor.Hemen Uygulanıyor işlem.
Hocam birde Bir deneme yaptım.
Sizin kodlarınızda vermiş olduğunuz 1 değerini 0 yaparak Tekrar Güvenilen yayımcılık devre dışı bırakılabliyor
Teşekkür ederim.
:hey:

 

[Haluk]

....
Güvenilen Yayımcılık ta ki checkbox artık Enable=false olmuş durumda.
Onu seçemiyorum.
Checkbox'ın Seçilebilir durumda olması, tekrar enable=true olması mümkünmü acaba?

Durumu düzeltmek için aşağıdaki kodu kullanın.

Sub PanZehir()
    Dim WSH_Shell As Object
    Dim MyVer As String, RegKey As String
    Dim MySetting As Integer
    MyVer = Application.Version
    RegKey = "HKLM\Software\Microsoft\Office\" & MyVer & "\Excel\Security\AccessVBOM"
    Set WSH_Shell = CreateObject("WScript.Shell")
    WSH_Shell.RegDelete RegKey
End Sub

 

[Orion1]

Merhabalar.
Sayın haluk hocam şimdi durum düzeldi.
Önce Test3 makrosunu çalıştırıp.Sonra panzehir makrosunu çalıştırıp.Bu işlemi yapabilirim.Diye Düşünüyorum.
Sizin bir tavsiyeniz varmı?

 

[Haluk]

Benim tavsiyem şu olur;

Bu tip kodlarla, kullanıcının haberi olmadan Excel ve / veya Windows ayarlarını değiştirmek prensip olarak bana biraz yanlış gibi geliyor.

Eğer bir şekilde işler ters gider de, kullanıcın bilgisayarında bir sorun çıkarsa ve bu sorunu nasıl gidereceğini de bulamaz ise ..... kullanıcı zor durumda kalacaktır. ...:mrgreen: ....

Aslında bunları belki size başta söylemem lazımdı ama neyse, en azından nasıl yapılabileceğini öğrenmiş oldunuz.

Kodları kullanıp, kullanmamak artık size kalmış.