Kumpulan Source Kode VBA Excel untuk Menonaktifkan Fungsi-Fungsi Tertentu Secara Cepat

Cukup lama kami tidak posting artikel tentang VBA Excel. Masih inget doang apa itu VBA dalam Microsoft Office?. Ya, VBA akronim dari Visual Basic for Applications yang tersematkan dalam aplikasi microsoft office seperti Microsoft Word, Excel, dan powerpoint.



Untuk mengakses halaman VBA office maka kita harus mengaktifkan Tab Developer yang ada di dalamnya. Biasanya Tab Developer tidak ditampilkan secara default. Jadi kita harus mengaktifkannya sendiri ya.


Baca juga : Menghapus Password Sheet Excel dengan VBA Excel


Materi lebih banyak tentang Visual Basic dapat anda baca dari tautan berikut.

• Panduan VBA Excel
• Panduan VBA Powerpoint

Postingan kali ini mengulas tentang VBA Excel. Kami akan berbagi kumpulan source kode vba excel yang digunakan untuk menonaktifkan fungsi-fungsi tertentu seperti copy, paste, klik kanan, drag and drop dan lainnya.


Baca juga : Membuat Popup Message yang Berjalan Otomatis Saat Membuka Excel dengan Message Box

Kumpulan Source Kode VBA Excel untuk Menonaktifkan Fungsi-Fungsi Tertentu Secara Cepat

Sorce kode yang akan kami bagikan ini dapat anda taruh di dalam Sheet atau Workbook. Nah berikut ini source Kode VBA Excel tersebut.

1. Menonaktifkan Klik Kanan (Right Click)

Source Kode VBA Excel

' for disable right click
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

2. Menonaktifkan Fungsi Cut, Copy dan Paste pada Cells Tertentu

Source Kode VBA Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A3:A9")) Is Nothing Then Exit Sub
    Application.CutCopyMode = False
End Sub

Kode di atas akan mematikan fungsi pada cell A3 s.d A9. Anda bisa merubah refensi cell ini sesuai kebutuhan anda.


Baca juga : Kesalahan Besar pada Aplikasi Raport K13 SD Revisi 2019 yang dikunci dengan Password

3. Menonaktifkan Fungsi Drag and Drop

Source Kode VBA Excel

' for disable drag and drop
Application.CellDragAndDrop = False

4. Menyembunyikan Recent Documents

Source Kode VBA Excel

' for hide recent document
Dim MinNumberofFiles As Integer
With Application.RecentFiles
    miNumberofFiles = .Maximum
    .Maximum = 0
End With

Baca juga : Kurang dari 5 Menit Untuk Membuka Password Aplikasi Raport K13 SD Revisi 2019 yang Terkunci

5. Menonaktifkan Fungsi Tombol Seperti Ctrl+x dan Ctrl+V

Source Kode VBA Excel

Private Sub Workbook_Activate()
      ' for disable ctrl+x

      ' Turn off the menu
      Application.CommandBars("Edit").Controls(3).Enabled = False
      Application.CommandBars("Edit").Controls(4).Enabled = False
      Application.CommandBars("Edit").Controls(5).Enabled = False
      Application.CommandBars("Edit").Controls(6).Enabled = False
      ' Turn off the toolbar:
      Application.CommandBars("Standard").Controls(7).Enabled = False
      Application.CommandBars("Standard").Controls(8).Enabled = False
      Application.CommandBars("Standard").Controls(9).Enabled = False
      Application.CommandBars("Standard").Controls(10).Enabled = False
      ' turn off shortcutkeys:
      Application.OnKey "^x", ""
      Application.OnKey "^v", ""
      Application.OnKey "^{INSERT}", ""
      Application.OnKey "+{INSERT}", ""

End Sub

Private Sub Workbook_Deactivate()
      ' for disable ctrl+x
   
      ' Enable the menu:
      Application.CommandBars("Edit").Controls(3).Enabled = True
      Application.CommandBars("Edit").Controls(4).Enabled = True
      Application.CommandBars("Edit").Controls(5).Enabled = True
      Application.CommandBars("Edit").Controls(6).Enabled = True
      ' Enable the commandbar:
      Application.CommandBars("Standard").Controls(7).Enabled = True
      Application.CommandBars("Standard").Controls(8).Enabled = True
      Application.CommandBars("Standard").Controls(9).Enabled = True
      Application.CommandBars("Standard").Controls(10).Enabled = True
      ' Enable the shortcut keys:
      Application.OnKey "^x"
      Application.OnKey "^v"
      Application.OnKey "^{INSERT}"
      Application.OnKey "+{INSERT}"
End Sub

Jika kami mendapat source kode vba excel lainnya maka akan kami update di postingan ini.

6. Menonaktifkan fungsi SaveAs pada Workbook

Masukkan kode ini pada 'ThisWorkbook' di dalam Visual Basic Editor. Klik kanan pada 'ThisWorkbook' lalu pilih View Code.

Source Kode VBA Excel

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' for disable saveAs
Dim lReply As Long
 If SaveAsUI = True Then
lReply = MsgBox("Maaf, Fungsi ini tidak diperbolehkan. Anda hanya diijinkan untuk melakukan Fungsi Save. Jika ingin melakukan SaveAs dengan nama lain, anda dapat melakukan copy-paste pada file xlsm - nya!" _
& vbCrLf & "" _
& vbCrLf & "Anda ingin menyimpan perubahan pada aplikasi ini? ", vbOKOnly + vbExclamation, "Aplikasi Rapor SD 2019")
     Cancel = (lReply = vbCancel)
   If Cancel = False Then Me.save
    Cancel = True
  End If
End Sub

Demikian Kumpulan Source Kode VBA Excel untuk Menonaktifkan Fungsi-Fungsi Tertentu Secara Cepat. Semoga bermanfaat.