TpG6BSAiBUYlBUY5TUr5GfriGi==

Belajar VBA Excel : Macro Untuk Disable Alt+F11

 Selamat datang kembali di MlatenMania.com, Hallo Sobat Blogger semua, terimakasih Saya ucapkan kepada Anda yang sudah mengunjungi blog sederhana Saya ini. Pada kesempatan ini Saya akan berbagi tutorial mengenai VBA Excel, dan sesuai dengan judul artikel ini yang akan Saya bahas adalah Kode Macro Untuk Men-disable Alt+F11. Berikut merupakan pembahasan lengkapnya:

Belajar VBA Excel : Macro Untuk Disable Alt+F11

Shortcut Alt+F11

Seperti yang kita ketahui bersama, bahawa untuk membuka halaman Visual Basic pada aplikasi Excel kita bisa menggunakan kombinasi tombol Alt+F11 pada keyboard. Meskipun sebenarnya ada sebuah Menu yang bisa kita gunakan untuk membuka halaman (lembar kerja) Visual Basic pada aplikasi Excel yang kita gunakan.

Menu yang bisa kita gunakan untuk membuka halaman (lembar kerja) Visual Basic pada aplikasi Excel adalah Menu Developer, yang mana Menu ini tidak muncul secara otomatis di Ribbon Menu aplikasi Excel itu sendiri, dan bagi yang di lembar kerja aplikasi Excel-nya belum ada Menu Developer, bisa menbaca artikel Saya sebelumnya yang berjudul Cara Untuk Menampilkan Tab Menu Developer Di Ms. Excel.

Kode/Script Macro Untuk Mendisable Alt+F11 Pada Excel

Berikut kode/script Macro yang bisa kita gunakan untuk mendisable Alt+F11:

Kode/Script Macro 1

Option Explicit
Public Const INFOmore As String = "More Info:"
Public Const MoreInfoMe1 As String = "MlatenMania"
Public Const MoreInfoMe2 As String = "https://mlatenmania.com"
Public Const CPMe As String = "0831 4472 1387"
Const dCustomize As Double = 797
Const dVbEditor As Double = 1695
Const dMacros As Double = 186
Const dRecordNewMacro As Double = 184
Const dViewCode As Double = 1561
Const dDesignMode As Double = 1605
Const dAssignMacro As Double = 859
Sub DisMyVBE()
On Error Resume Next
Application.VBE.MainWindow.Visible = False
CmdControl dCustomize, False
CmdControl dVbEditor, False
CmdControl dMacros, False
CmdControl dRecordNewMacro, False
CmdControl dViewCode, False
CmdControl dDesignMode, False
CmdControl dAssignMacro, False
Application.CommandBars("ToolBar List").Enabled = False
Application.ShowDevTools = False
Application.OnKey "%{F11}", "MyVBEZone"
Application.OnKey "%{F8}", "MyVBEZone"
End Sub
Sub EnMyVBE()
On Error Resume Next
Application.VBE.MainWindow.Visible = True
CmdControl dCustomize, True
CmdControl dVbEditor, True
CmdControl dMacros, True
CmdControl dRecordNewMacro, True
CmdControl dViewCode, True
CmdControl dDesignMode, True
CmdControl dAssignMacro, True
Application.OnDoubleClick = vbNullString
Application.CommandBars("ToolBar List").Enabled = True
Application.ShowDevTools = True
Application.OnKey "%{F11}"
Application.OnKey "%{F8}"
End Sub
Sub MyVBEZone()
MsgBox "Disable Alt+F11" & Chr(13) & _
"VBA Excel" & Chr(13) & _
"MlatenMania.com" & Chr(13) & Chr(13) & _
INFOmore & Chr(13) & _
LCase(MoreInfoMe1) & Chr(13) & _
LCase(MoreInfoMe2) & Chr(13) & _
CPMe, vbExclamation, "Info"
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
Set C = Nothing
End Sub

Kode/Script Macro 2

Private Sub Workbook_Activate()
Call DisMyVBE
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
Call EnMyVBE
End Sub

Menyisipkan Kode/Script Macro 

Untuk menyisipkan kode/script Macro di atas, berikut merupakan langkah-langkahnya:

  • Masuk ke halaman Visual Basic, kemudian sisipkan sebuah module dan silahkan copy kode/script Macro 1 ke dalam Module tersebut.
  • Buka ThisWorkbook, kemudian copy kode/script Macro 2 ke dalamnya. 
  • Simpan file dalam format *.xlsm atau *xlsb
Dan jika pada saat file tersebut dibuka dan kita menekan tombol Alt+F11, maka akan tampil sebuah notofikasi seperti pada gambar di bawah ini:

Belajar VBA Excel : Macro Untuk Disable Alt+F11


Demikian artikel mengenai Belajar VBA Excel : Macro Untuk Disable Alt+F11, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih dan selamat mencoba.

Komentar0

Tinggalkan komentar Anda disini:

Type above and press Enter to search.