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 ?
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
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....)
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.
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.