[ÇÖZÜLDÜ] Makro Güvenlik Seviyesini Hücreye Yazdırmak

[baydeniro]

Merhaba arkadaşlar. Makro güvenlik seviyesini hücreye yazdırmak mümkün mü ?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub guvenlikseviyesi()
Set deg = CreateObject("WScript.Shell")
anahtar = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\level"
ayar = deg.Regread(anahtar)
Select Case ayar
Case 1: MsgBox "Düşük"
Case 2: MsgBox "Orta"
Case 3: MsgBox "Yüksek"
Case 4: MsgBox "Çok Yüksek"
End Select
End Sub

Not: Aynı soruyu 2007 yılındada sormuşsunuz.

http://www.excel.web.tr/showthread.php?t=39658&highlight=Security%5Clevel

 

[baydeniro]

Evet çok haklısınız sayın Levent Menteşoğlu. Ayrıca tebrik ederim, müthiş bir hafıza ve takipçilik. Tekrar sorma gereği duyma nedenim, o makro maalesef her durumda çalışmıyor !!!

İlginiz için çok teşekkür ederim.

 

[hsayar]

merak edip denemeye kalşktım ama excel 2007 kullanıyorum.

Sub guvenlikseviyesi()
Set deg = CreateObject("WScript.Shell")
anahtar = "HKEY_CURRENT_USER\Software\Microsoft\Office[COLOR=red]\12.0[/COLOR]\Excel\Security\level"
ayar = deg.Regread(anahtar)
Select Case ayar
Case 1: MsgBox "Düşük"
Case 2: MsgBox "Orta"
Case 3: MsgBox "Yüksek"
Case 4: MsgBox "Çok Yüksek"
End Select
End Sub

şeklinde değiştirdim.
ayar = deg.Regread(anahtar)

satırından ... anahtarı okunmak için açılmaıyor hatası verdi.
Ayrıca makro güvenlik seviyesi düşük olan makinelerde nasıl çalışacak onu merak ettim.

 

[Levent Menteşoğlu]

merak edip denemeye kalşktım ama excel 2007 kullanıyorum.

Sub guvenlikseviyesi()
Set deg = CreateObject("WScript.Shell")
anahtar = "HKEY_CURRENT_USER\Software\Microsoft\Office[COLOR=red]\12.0[/COLOR]\Excel\Security\level"
ayar = deg.Regread(anahtar)
Select Case ayar
Case 1: MsgBox "Düşük"
Case 2: MsgBox "Orta"
Case 3: MsgBox "Yüksek"
Case 4: MsgBox "Çok Yüksek"
End Select
End Sub

şeklinde değiştirdim.
ayar = deg.Regread(anahtar)

satırından ... anahtarı okunmak için açılmaıyor hatası verdi.
Ayrıca makro güvenlik seviyesi düşük olan makinelerde nasıl çalışacak onu merak ettim.

Hatanın nedenini bulmak için registerdeki anahtara bakmak gerekir. Bunun dışında office 2007 ile bir alakası varmı fikrim yok. Makro seviyesi düşük derken sanıyorum yüksek olmasını kasdettiniz. Bu durumda elbette kod çalışmayacaktır. Çalışıyor olsaydı makro virüslerine karşı güvenliğin hiç bir önemi kalmayacaktır.