Code Macro Anti Save As Di Excel

 Mas Operator - Assalamu'alaikum Wr. Wb. Salam sejahtera untuk kita semuanya, selamat datang kembali di blog sederhana Saya ini. Pada kesempatan ini kembali Saya akan berbagi mengenai VBA Excel. Berikut pembahasan lengkapnya.

Code Macro Untuk Mencegah Save As

Code/kode macro ini bisa kita manfaatkan agar nantinya pengguna (user) tidak bisa menyimpan ulang (Save As) file yang sudah kita buat, dan pastinya kode ini dibutuhkan bagi Anda yang suka membuat aplikasi berbasis Excel.

1. Buka file Excel kita;

2. Silahkan klik kanan pada ThisWorkBook kemudian pilih View Code, dan tempel/paste kode di bawah ini ke dalamnya:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim lReply As Long

  If SaveAsUI = True Then

lReply = MsgBox("Maaf, Anda tidak diperkenankan menyimpan workbook ini dengan nama lain. Anda ingin menyimpan workbook ini?", vbQuestion + vbOKCancel)

     Cancel = (lReply = vbCancel)

   If Cancel = False Then Me.Save

     Cancel = True

  End If

End Sub

3. Silahkan simpan file Excel Anda dengan type Excel Macro-Enabled Workbook (*.xlsm).

Dengan demikian pada saat pengguna (user) ingin menyimpan ulang (Save As) file tersebut akan muncul sebuah notifikasi seperti pada gambar di bawah ini:

Video Tutorial:

Mungkin hanya itu saja artikel mengenai Code Macro Anti Save Di Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih dan Wassalamu'alaikum Wr. Wb.

Salam Mas Operator!!!.

Share :