Makro Güvenlik Düzeyi

[baydeniro]

Merhaba arkadaşlar. Makro ile Username, Pc name, HDD no gibi verileri excel dosyaı içine çağırabiliyoruz. Peki Makro güvenlik düzeyi nedir ? bu bilgiyi de çağırabiliyor muyuz ?

 

[Haluk]

http://www.excel.web.tr/showthread.php?t=11301

http://www.excel.web.tr/showthread.php?t=11378

 

[baydeniro]

Teşekkürler

Sayın Haluk ilginiz için çok çok teşekkürler. Dosya açıldığı anda mevcut Güvenlik seviyesini A1 hücresine yazdırmak için bir kod olur mu ?

 

[Haluk]

1nci linkte yer alan dosyada UserForm_Initialize prosedüründeki MySetting değişkeni makro güvenlik seviyesidir.

Bunu artık A1 hücresine herhalde yazdırırsınız....

1 = Düşük

2 = Orta

3 = Yüksek

olduğunu da hatırlatmakta fayda var ....

Tabii, kullanıcı makroları etkinleştirmeden açarsa, bu kodlar da çalışmaz .... :mrgreen:

 

[baydeniro]

Sayın Haluk çok teşekkürler. Bahsettiğiniz kod şu değil mi :

Private Sub UserForm_Initialize()
Dim MyVer As String
Dim MySetting As Integer
On Error GoTo ErrHand:
ResumeSub:
MyVer = Application.Version
RegKey = "HKCU\Software\Microsoft\Office\" & MyVer & "\Excel\Security\Level"
Set WSH_Shell = CreateObject("WScript.Shell")
MySetting = WSH_Shell.RegRead(RegKey)
Select Case MySetting
Case 1
OptionButton3 = True
Case 2
OptionButton2 = True
Case 3
OptionButton1 = True
Case Else
MsgBox "Bir sorun var ... Guvenlik Seviyesi = " & MySetting _
& "olarak belirlendi, lutfen Windows ve Office versiyonu ile birlikte foruma bildirin....", vbCritical, "Kullanıcın dikkatine !"
Unload Me
End Select
Exit Sub
ErrHand:
WSH_Shell.RegWrite RegKey, 2, "REG_DWORD"
GoTo ResumeSub:
End Sub

 

[Haluk]

Evet, bunu kendinize göre uyarlarsınız ...

 

[baydeniro]

Sayın Haluk, buraya A1 hücresine güvenlik seviyesini yaz (dosya açılırken) kodunu eklemeyi beceremiyorum. Yardımcı olursanız çok memnun olurum.

 

[Haluk]

Sayın serdarokan;

Yanlış anlamanızı istemem ama, sorunuz hakkında size fazlasıyle yetecek kadar malzeme yukarıdaki mesajlarda verildi. Dikkatlice okumanızı öneririm.

Tekrar etmek istiyorum, yanlış anlamanızı istemem ancak;

Eğer o kodları bahsettiğiniz gibi düzenleyemiyorsanız o zaman yanlış işler yaparak sizin dosyanızı açmaya çalışan kişilerin Excel'ini bozabilirsiniz.

Eğer mutlaka böyle bir proje elde etmek istiyorsanız o zaman profosyonel yardım almayı deneyin. (Ben sadece amatörüm....)

 

[baydeniro]

Sayın Haluk yardımlarınız ve ilginiz için çok çok teşekkürler. Böylesine elit yazılmış bir uyarıyı yanlış anlamak mümkün değil. Ama yine de ince düşünceniz ayrıca teşekkürler.

 

[baydeniro]

Söz konusu olan başkaları ile ilgisi olan bir dosya olmadığı için o tarz bir risk yok zaten. Gerçi siz kendinize amatör diyorsanız (eminim çok alçak gönüllüsünüz) o zaman benim 80 fırın ekmek yemem lazım. Yani ben gerçekten amatörüm, zaten o yüzden bu kadar veri varken son vuruşu yapamıyorum. Ama sizler gibi ustalar ile hasbıhal ede ede biz de biraz gelişeceğiz. Çok teşekkürler, sağlıcakla kalın.

 

[Haluk]

Sayın serdarokan;

Ben de anlayışınız için size teşekkür ederim.

Bu durumda, eğer işinize yararsa ekteki dosyayı kullanabilir veya kendinize göre geliştirebilirsiniz.

Kodlar Win2000 + Office2000 ile hazırlanmış olup, diğer versiyonlarda denenmemiştir.


.

 

[baydeniro]

Sayın Haluk ne kadar teşekkür etsem azdır. Doğrusu bu kadar sabır büyük kişiliklerde olur. Elleriniz dert görmesin, sağlıcakla kalın.