Makroları Buton İle Devre Dışı Bırakmak

[mustafa1205]

Makro güvenlik seviyesini menüden değil de kod ile yüksek olarak ayaylayarak devre dışı bırakabilecek bir kod var mıdır acaba?

 

[Levent Menteşoğlu]

Evet vardır. Ancak etkin olabilmesi için Excelin kapatılıp tekrar açılması gerekir. İlgili kodlar bende mevcut değil. Sahip olan üyelerimiz paylaşırlarsa bende memnun olurum.

 

[mustafa1205]

Evet Levent Hocam bende makroları devre dışı bırakıp exceli kapattıracağım. Ancak kodlar lazım...

 

[Korhan Ayhan]

Aşağıdaki script ile bu işlemi yapabilirsiniz.

Boş bir notdefteri açın kodları içine uygulayın. Dosyaya isim verin ve uzantısını "Dosya.vbs" olarak ayarlayın. Sonra VBS dosyasına çift tıklayın. İşlemler otomatik yapılıyor.

Kırmızı dosya yolunu kendinize göre uyarlarsınız.

On Error Resume Next
Set WSS = CreateObject("WScript.Shell")
WSS.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\Level", 4, "REG_DWORD"
Set XLNesne = CreateObject("Excel.Application")
XLNesne.Visible = True
XLNesne.Workbooks.Open("[COLOR="red"]C:\Users\Kullanıcı_Adı\Desktop\Kitap1.xls[/COLOR]")
Set WSS = Nothing
Set XLNesne = Nothing

 

[mustafa1205]

Private Sub WorkBook_Open()
Dim tarih As Date

tarih = "28.04.2014"

If tarih <= Date Then

(Sayın Korhan Hocam ilginiz için çok teşekkür ederim. Kodları bu aralıkta kullanmak istemiştim. Malum bir çeşit lisanslama. Zaman dolduğunda makroları devre dışı bırakıp kaydedip kapatacak ve sadece veriler kullanılabilecek, program devre dışı kalacak...)

ActiveWorkbook.Close savechanges:=False
End If
ThisWorkbook.Worksheets("AÇILIŞ").Activate
Range("A4").Select
End Sub