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

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhabalar.
Makro ile ,Visual Basic Project Erişimine Güven Çekbox'ını True yapmak istiyorum.Teşekkür ederim.İyi çalışmalar.
:D
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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.

Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Bir de aşağıdakini deneyin...

Kod:
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 ...

Kod:
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Sayın Sezar,

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

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Sezar' Alıntı:
....
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.

Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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ı?
:D
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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ış.
 
Üst