Catetan

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.

6 comments:

Anonim

23 Des 2010 18.37.00
ka, bisa tolong buatkan macro/vbs jika kita akan membuka word/excel ada jendela peringata yg muncul, yang isi peringatannya sesuai keinginan kita, harap kk mau membantu.. cheers.. :D
Karsono

27 Des 2010 10.46.00
cobain kode dibawah ini dimana ketika workbook terbuka, akan muncul jendela mesage box, dengan message sesuai keinginan. Taruh kodenya pada Thisworkbook, pilihannya ada pada jendela VBA Project sebelah kiri atas.

Private Sub Workbook_Open()
'ganti message Ada peringatan, sesuai keinginan
MsgBox "Ada peringatan"
End Sub
Vivi Dewi

10 Mar 2014 11.20.00
Mas, aku coba codingnya ini, tapi tidak jalan di workbookku kenapa ya?
Quzt

21 Jan 2016 15.11.00
Mas, kalau saya buka 2 workbook kemudian saya hanya mau tutup salah 1 workbook saja. macro nya gimana ya...?
terima kasih sebelumnya...
rustam effendy

7 Mar 2016 09.16.00
Assalaamu Alaaikum,,, maaf mas dgn sgl krndahan hatu mau tanya: bgm cara merubah, mengedit tampilan pembuka aplikasi enable worksheet mksdx ketika sy masuk ada muncul selamat datang di aplikasi ini.... dst.... di kiri bawa ada tutup n lanjutkan.. sy mau hilangkan lembaran pembuka ini mas.. mksh mas atas bantuannya
purnawanto maksum

25 Des 2016 07.45.00
Assalamu'alaikum wrwb

Maaf Mas saya bertanya bagaimana cara menyembunyikan vba project

Terima kasih

Posting Komentar