Terkadang, kita tidak ingin user memanfaatkan penggunaan Save As pada workbook yang kita buat. Hal ini dilakukan jika workbook digunakan oleh beberapa orang, dan kita tidak ingin terjadi duplikasi file yang isinya sama, namun nama filenya berbeda.
Untuk mencegah user menggunakan fasilitas Save As pada suatu workbook, maka langkahnya adalah sbb:
1. Buka workbook
2. Tekan Alt + F11
3. Klik kanan objek ThisWorkbook, pilih View Code
4. Tuliskan code berikut:
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
Untuk mencegah user menggunakan fasilitas Save As pada suatu workbook, maka langkahnya adalah sbb:
1. Buka workbook
2. Tekan Alt + F11
3. Klik kanan objek ThisWorkbook, pilih View Code
4. Tuliskan code berikut:
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
5. Tekan Alt + Q untuk kembali ke Excel
6. Selesai
Selanjutnya, jika user mencoba mengakses Save As, maka akan muncul peringatan seperti ini:
File contoh bisa didownload di sini atau pada boxnet di samping