WORKBOOK HANYA TERBUKA KETIKA ENABLE MACRO 6

Sebagai Informasi, segala pertanyaan yang saya terima, tidak menutup kemungkinan akan saya jadikan sebagai postingan, dan dalam postingan juga saya tidak akan menyebutkan nama atau instansi yang bertanya, jadi mohon maklum adanya.

Termasuk pertanyaan mengenai bagaimana caranya supaya user apabila membuka workbook yang ada macronya, harus dan mau tidak mau melakukan pilihan Enable Macro ?

Proses macro disini adalah melakukan Hide dan unhide sheet, apabila ada jendela peringatan pilihan enable atau disable macro, atau untuk level high security workbook.

Langsung saja ke caranya :

1. Pada aktif workbook, untuk mempermudah buka satu workbook excel saja, tambahkan atau insert worksheet, kemudian beri nama peringatan
2. Kemudian buka jendela Macro Visual Basic --> pada jendela Project --> VBAProject biasanya secara otomatis ada di sebelah pojok kanan atas, pilih atau double klik ThisWorkbook.
3. kemudian pastekan saja kode dibawah ini kedalam jendela macro VBA-nya.

'proses untuk disable macro
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Dim ws As Worksheet 'ws sebagai worksheet

Application.ScreenUpdating = False 'menonaktifkan update yang berulang-ulang
Worksheets("peringatan").Visible = xlSheetVisible  'hanya worksheet peringatan yang tampil

For Each ws In ThisWorkbook.Worksheets ' untuk setiap worksheet yang nama sheetnya tidak sama dengan peringatan akan di hide
If Not ws.Name = "peringatan" Then ws.Visible = xlSheetVeryHidden
Next ws

Application.DisplayAlerts = False 
ActiveWorkbook.Save 
Application.DisplayAlerts = True
End Sub

'proses untuk enable macro
Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = True
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "peringatan" Then ws.Visible = xlSheetVisible
Next ws

Worksheets("peringatan").Visible = xlSheetVeryHidden
End Sub

Nach mungkin cukup begitu saja postingan ini dibuat, dan seperti biasa untuk mempermudah mempelajarinya, file yang mengandung kode macro diatas, bisa langsung di download disini.