Headline
Loading...

Mengantisipasi Save As Pada Excel

Berbagai macam cara 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 agar hasil karya kita mendapat perhatian dan penghargaan dari orang yang menggunakan hasil karya kita, ada - ada saja yang dilakukan oleh orang yang tidak bertanggungjawab terhadap hasil karya orang lain :
  • Buka File Excel Anda
  • Tab Ribon Developper atau Tekan Alt + F11
  • Klik View Code
  • Perhatikan Gambar Berikut

  •  Double Klik Pada Thisworkbook
  • 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

  • Save As
  • Close File dan Silahkan Coba Save As
  • Selamat Mencoba Semoga Berhasil
Mengantisipasi Orang-Orang Yang Suka Plagiat, Semoga Anda Berhasil dalam menerapkan tutorial ini
di 10.29

1. Berikan Komentar Anda Sesuai dengan Judul Artikel.
2. Komentar yang menyertakan link aktif, iklan, atau titip link, akan dimasukan ke folder SPAM.
3. Untuk pertanyaan Out Of Topic ( OOT ) silahkan klik Forum

Konversi KodeEmotionForum

Back to Top