Tips Macro Disable Alt+F11 Dilarang membuka jendeka VBE - Tak terasa sudah artikel ini menjadi artikel yang ke 99 bagi excelpro bukan bagi ruang excel (artikel ini copasan), meski banyak artikel hasil salinan dari iparengan.com. Untuk melengkapi artikel sebelumnya seputar non aktifkan disable saya akan kembali melengkapinya dengan Disable Alt+F11 Dilarang membuka jendeka VBE


Apa itu Disable Alt+F11 Dilarang membuka jendela VBE ? Jawabnya cari sendiri

Seperti yang telah kita ketahui bersama biasanya pengguna excel akan menggunakan One Key Alt + F11 untuk masuk kejendela VBE, sebagai pengembang excel yang profesional maka anda jangan kalah dari pengguna excel, sebelum pengguna excel membuka jendela VBE (Visual Basic Editor) mari kita proteksi jendela VBE/VBA terlebih dahulu, cukup kita saja yang didalam jendela tersebut

DISABLE ALT + F11
Sebelumnya silahkan baca artikel atau postingan seputar disable Disable Tombol Keluar "X" pada excel dan Disable dan mengganti fungsi klik kanan excel

Langsung buat module dengan kode macro dibawah ini, ada empat prosedur yang harus diketik

Private Declare Function apiPostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function apiFindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function apiIsWindow Lib "user32" Alias "IsWindow" _
(ByVal hwnd As Long) As Long

Function TutupVBE() As Boolean
Const cCVBE = "wndclass_desked_gsk"
Dim hwnd As Long
hwnd = apiFindWindow(cCVBE, Application.VBE.MainWindow.Caption)
If hwnd Then
Call apiPostMessage(hwnd, WM_CLOSE, 0, 0&)
TutupVBE = (apiIsWindow(hwnd) <> 0)
End If
Application.SendKeys "~"
End Function

Sub TolakF11()
Dim OperatorKey As Variant, i As Long
On Error Resume Next
For Each OperatorKey In Array("+", "^", "%", "+^", "+%", "^%", "+^%")
For i = 1 To 12
Application.OnKey OperatorKey & "{F" & i & "}", "KeluarAplikasi"
Next i
Next OperatorKey
For i = 1 To 12
Application.OnKey "{F" & i & "}"
Next i
End Sub

Sub KeluarAplikasi()
If TutupVBE = True Then
Exit Sub 'Application.Quit
End If
End Sub

Dan kode macro Thisworkbook

Private Sub Workbook_Open()
Call TolakF11
End Sub

Simpan kemudian silahkan dicoba tekan tombol Alt+F11

Saya kasih bocoran sedikit, kode macro yang ditulis diatas tidak hanya menon aktifkan ALT+F1, akan tetapi juga menon aktifkan ALT+F1, ALT+F2, ALT+F3 sampai ALT+F12 For i = 1 To 12

Baru taukan kalau hal seperti inipun bisa dilakukan oleh Excel Profesional, demikianlah Disable Alt+F11 Dilarang membuka jendeka VBE semoga berkah dan bermanfaat
No comments