Spreadsheet hata mesajı hakkında

[BG]

Arkadaşlar bir türlü hatırlayamadım, userforma spreadsheet nesnesi ekledim userform ilk açıldığında ekte gönderdiğim hatayı veriyor nasıl bu hatayı iptal ediyorduk??

 

[ockucukay]

bu hata bende de var öğrenebilirsem çok iyi olacak. sanırım sayın levent menteşoğlu'nun bir kodu vardı bununla ilgili ama forumda bulamamıştım.

 

[Levent Menteşoğlu]

Kod aşağıdaki gibidir. Sadece bir kez çalıştırılması yeterlidir.

[LEFT]Sub regolustur()
Dim deg As Object
anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"
Set deg = CreateObject("WScript.Shell")
deg.RegWrite anahtar, 1, "REG_DWORD"
End Sub

[/LEFT]

 

[BG]

Sayın Levent Menteşoğlu

Kod aşağıdaki gibidir. Sadece bir kez çalıştırılması yeterlidir.

[LEFT]Sub regolustur()
Dim deg As Object
anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"
Set deg = CreateObject("WScript.Shell")
deg.RegWrite anahtar, 1, "REG_DWORD"
End Sub

[/LEFT]

Hocam ilginize çok teşekkür ederim, iyi çalışmalar dilerim.

 

[bulentkars]

calıstırdım benım bılgısayarımda oldu fakat bazı bılgısayarlarda Anahtar= satırına hata verıyor.