WORKBOOK HANYA TERBUKA KETIKA ENABLE MACRO

WORKBOOK HANYA TERBUKA KETIKA ENABLE MACRO

Mush-bro.co.cc - Potsing kali ini akan membahas 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.

Ini adalah coding untuk macro VB-nya :

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Dim ws As Worksheet 'ws sebagai worksheet

Application.ScreenUpdating = False
Worksheets("peringatan").Visible = xlSheetVisible
For Each ws In ThisWorkbook.Worksheets 
If Not ws.Name = "peringatan" Then ws.Visible = xlSheetVeryHidden
Next ws

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

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 untuk mempermudah mempelajarinya, file yang berisi kode macro diatas, bisa langsung di download disini.