Hallo Hallo Sobat Blogger semuanya, selamat datang kembali di Blog Aplikasi Excelku, Alhamdulillah pada kesempatan kali ini Saya bisa untuk kembali menyapa Sobat Blogger semuanya, tak lupa Saya ucapkan banyak-banyak terimakasih kepada Anda semua yang sudah berkunjung ke Blog Sederhana Saya ini.
Dan pada kesempatan kali ini, kembali Saya akan memberikan sebuah tutorial sederhana mengenai VBA Excel. Dan yang akan Saya bagikan pada kesempatan kali ini yakni mengenai Cara Untuk Disable Alt+F11 di Ms. Excel menggunakan code/script Macro tentunya.
Seperti yang sudah kita ketahui bersama, bahwa tombol kombinasi Alt+F11 merupakan sebuah Shorcut untuk mengakses/membuka halaman VBA Project di Aplikasi Ms. Excel. Tentu saja tombol kombinasi ini terdapat pada keyboard yang ada di PC/Laptop kita ya,.. 😂😂😂
Kemudian kenapa kita harus mendisable fungsi dari kombinasi tombol tersebut? jawabannya adalah tergantung dari kita masing-masing, bagi Sobat Blogger yang suka membuat aplikasi berbasis MS. Excel pastinya tidak mau jika si pengguna aplikasi yang Sobat Blogger buat melihat isi dari code/script Macro yang Sobat Blogger gunakan didalam file (aplikasi) yang Sobat Blogger buat tersebut.
Nah untuk itulah Saya membuat artikel/postingan ini, dan berikut merupakan langkah-langkahnya :
Pada contoh ini Saya menggunakan Aplikasi Ms. Excel 2010, dan menggunakan lembar kerja kosong.
1. Buka Aplikasi Ms. Excelnya;
2. Silahkan buka lembar kerja/halaman VBA Projectnya, bisa dengan cara klik pada Menu Developer kemudian klik pada Sub Menu Visual Basic, atau dengan cara tekan tombol Alt+F11 pada keyboard;
3. Didalam lembar kerja/halaman VBA Project silahkan Sobat Blogger sisipkan sebuah module baru, dengan cara klik pada Menu Insert kemudian klik pada Sub Menu Module;
4. Selanjutnya adalah copy code/script Macro di bawah ini :
Option Explicit
Public Const INFOmore As String = "More Info:"
Public Const MoreInfoMe1 As String = "Aplikasi Excelku"
Public Const MoreInfoMe2 As String = "https://masoperator.blogspot.com"
Public Const CPMe As String = "https://facebook.com/aplikasiexcelku"
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 "Contoh Disable Alt+F11 Di Excel" & Chr(13) & _
"By Aplikasi Excelku" & Chr(13) & _
"..........." & Chr(13) & Chr(13) & _
INFOmore & Chr(13) & _
LCase(MoreInfoMe1) & Chr(13) & _
LCase(MoreInfoMe2) & Chr(13) & _
CPMe, vbExclamation, "INFORMASI"
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
Public Const INFOmore As String = "More Info:"
Public Const MoreInfoMe1 As String = "Aplikasi Excelku"
Public Const MoreInfoMe2 As String = "https://masoperator.blogspot.com"
Public Const CPMe As String = "https://facebook.com/aplikasiexcelku"
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 "Contoh Disable Alt+F11 Di Excel" & Chr(13) & _
"By Aplikasi Excelku" & Chr(13) & _
"..........." & Chr(13) & Chr(13) & _
INFOmore & Chr(13) & _
LCase(MoreInfoMe1) & Chr(13) & _
LCase(MoreInfoMe2) & Chr(13) & _
CPMe, vbExclamation, "INFORMASI"
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
Paste/tempel code/script Macro di atas kedalam module yang tadi telah kita sisipkan, sehingga akan seperti pada gambar di bawah ini :
5. Jika sudah, sekarang double click/klik ganda pada ThisWorkbook atau bisa juga dengan klik kanan pada ThisWorkBook kemudian pilih view code. Kemudian silahkan Sobat Blogger copy lagi code/script Macro di bawah ini dan paste/tempelkan ke dalam lembar/halaman ThisWorkBook tersebut :
Private Sub Workbook_Activate()
Call DisMyVBE
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call EnMyVBE
ThisWorkbook.Save
end sub
Call DisMyVBE
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call EnMyVBE
ThisWorkbook.Save
end sub
Sehingga akan seperti pada gambar di bawah ini :
6. Jangan lupa, simpan atau save dulu lembar kerja Excel kita, berinama bebas dan ingat ya pilih pada opsi Save As Type menjadi Excel Macro-Enabled Workbook. Kemudian tutup lembar kerjanya, lanjutkan dengan membukanya lagi. Dan pastikan Sobar Blogger klik pada opsi Enable Content jika muncul di lembar kerja Ms. Excelnya.
Kemudian silahkan Sobat Blogger tekan tombol kombinasi Alt+F11, jika berhasil maka akan muncul sebuah pop up seperti gambar di bawah ini :
Demikian pembahasan mengenai Cara Disable Alt+F11 Excel VBA, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya. Dan bagi Sobat Blogger yang ingin Mendownload sample/contoh dari filenya bisa di Download melalui link di bawah artikel/postingan ini. Sekian dan terimakasih.
Post a Comment for "Cara Disable Alt+F11 Excel VBA"
Tinggalkan komentar Anda pada kolom komentar di bawah ini :