Mencegah workbook disimpan dengan nama lain

Agar tidak banyak workbook sama tetapi dengan nama yang berbeda - beda, kita perlu mencegah agar workbook bisa disimpan dengan nama lain. Atau dengan kata lain, Fitur Save As dimatikan, walaupun Menu save As masih bisa diklik, tetapi menu ini tidak akan bisa digunakan lagi. Setiap kali digunakan, akan selalu memberi informasi bahwa workbook tidak boleh disimpan dengan nama lain.

Berikut kode VBA nya:

Klik show untuk melihat

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean,[RETURN] Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Maaf, anda dilarang untuk menyimpan" & _
"workbook dengan nama lain. Masih ingin menyimpan" & _
"workbook dengan nama sama?", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If

End Sub

Masukkan kode VBA di atas ke Visual Basic Editor, cara memasukkan kodenya sama dengan prosedur di sini
jangan lupa untuk mengaktifkan fitur Enable VBA