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
Labels:
Microsoft Excel
at
10:29 AM
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