VBA Gözükmesin

[ertan7]

Merhabalar,

Kullanıcının VBA sayfasına ulaşması engelenebilirmi? ALT F11 tusu disable yapılabilirmi ve yapılabilirse nasıl yapılırve bu yeterli olurmu ? bunu öğrenmek istiyordum. Yardımcı olacak arkadaslara simdiden tesekkurler,

 

[Levent Menteşoğlu]

Sanırım amacınız makroların görünmemesini sağlamak, bunun için makrolarınızı şifreleyerek korumaya alabilirsiniz. Þifreleme ile ilgili olarak aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/viewtopic.php?t=2353&highlight=vba+%FEifre

 

[ertan7]

Cevabınız için teşekkürler. yalnız benim istediğim bu değil...Makrolarımı şifreledim ve toolbars komutlarınıda disable yaptım fakat ALT F11 tuşu ile vba sayfasına ulasılabiliyor. (Her ne kadar kodlarım şifrelide olsa) buraya ulaşmasını nasıl engellerim.Yani hiç VBA sayfasına erişim olmamalı.
Ayırdığınız zaman içinde ayrıca Teşekkür ederim.

 

[ALPEN]

1. alt +f11 i yasaklamak.

[vb:1:3a01902a88]Application.CommandBars("Visual BaSIC").Enabled = False
Application.CommandBars.DisableCustomize = True
Application.OnKey "%{F11}", ""[/vb:1:3a01902a88]


birde Ivan F. Moala'nın biraz daha kulanışlı bir kodu

aşağıdaki kodlar kitabınıza bir değişiklik yapılmasına izin vermez.

[vb:1:3a01902a88]Private Sub Workbook_Open()





Application.VBE.MainWindow.Visible = False '// Close ALL windows 1st!


CmdControl 1695, False '// Visual basics Editor


CmdControl 186, False '// Macros...


CmdControl 184, False '// Record New Macro...


CmdControl 1561, False '// View Code


CmdControl 1605, False '// Design Mode


Application.OnDoubleClick = "Dummy"


Application.CommandBars("ToolBar List").Enabled = False


Application.OnKey "%{F11}", "Dummy"


Workbooks.Open "C:\" 'add your stuff here


ActiveWorkbook.RunAutoMacros xlAutoOpen


End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)


CmdControl 1695, True '// Visual basics Editor


CmdControl 186, True '// Macros...


CmdControl 184, True '// Record New Macro...


CmdControl 1561, True '// View Code


CmdControl 1605, True '// Design Mode


Application.OnDoubleClick = ""


Application.CommandBars("ToolBar List").Enabled = True 'thisone


Application.OnKey "%{F11}", ""





End Sub


Sub CmdControl(Id As Integer, TF As Boolean)


Dim CBar As CommandBar


Dim C As CommandBarControl


On Error Resume Next


For Each CBar In Application.CommandBars


Set C = CBar.FindControl(Id:=Id, recursive:=True)


If Not C Is Nothing Then C.Enabled = TF


Next


End Sub[/vb:1:3a01902a88]

 

[danersin]

Bende kötü bir tecrübemi aktarayım, bir defasında Ivan F .Moala'nın makrolarından Private Sub Workbook_Open() kısmını denemiştim, sonra benim çalışmalarım için gereksiz olduğuna karar verip bırakmıştım. Daha sonra ki 3-4 gün excel'imin niye tuhaf şeyler yaptığını, bazı tuşların çalışmadığını arayıp durmuştum.
Not : Kodun tamamını kullanırsanız, excel'i kapatırken yaptığı değişiklikleri eski haline düzeltip kapatıyor, yani sorun olmaz.

 

[ertan7]

Alt F11 kodu çalıştı..ancak Ivan isimli şahsın kodunda hata verdi

Yardımlarınız için teşekkürler,