Mengantisipasi Save As Excel

Cara ini dilakukan bagi  pengguna Excel agar hasil pekerjaan yang di  kerjakan tidak dapat di duplikasi dengan nama file yang berbeda namun isinya sama, oleh karena itu untuk mencegah para duplikator  yang  suka instan maka kita lakukan beberapa hal berikut ini :
1. Buka File Excel Anda
2. Tab Ribon Developper atau Tekan Alt + F11
3.  Klik View Code
4. Perhatikan Gambar Berikut

5. Double Klik Pada Thisworkbook
6. Copy dan Pastekan Kode Berikut ini Ke Dalam

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

7. Save As
8. Close File dan Silahkan Coba Save As
9. Selamat Mencoba Semoga Berhasil

Mengantisipasi Orang-Orang Yang Suka Plagiat, Semoga Anda Berhasil dalam menerapkan tutorial ini

Thanks for reading Mengantisipasi Save As Excel. Please share...!

About Fran Fallo

Related Posts