在創建Excel工作表后，有時希望禁止對工作簿的另存為操作。要實現這種操作，可以通過Workbook對象的BeforeSave事件來實現，本文介紹通過編程實現禁止Excel工作簿文件的“另存為”操作的方法。
1、啟動Excel并打開Visual Basic編輯器，在工程資源管理器中雙擊"ThisWorkbook"選項打開“代碼”窗口，在其中輸入程序代碼，。具體的程序代碼：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel As Boolean)
If SaveAsUI=True Then
Cancel=True
MsgBox "當前文檔禁止另存為操作!",vbOKOnly,"警告"
End If
End Sub
圖1 在“代碼”窗口中輸入程序代碼
提示
Workbook對象的BeforeSave事件在對工作簿進行保存操作時觸發，其中SaveAsUI參數指定保存工作簿時是否顯示“另存為”對話框，當對工作簿進行另存為操作時，該參數值為True，否則為False。在BeforeSave事件過程中，將Cancel參數值設置為True，過程結束后將不保存工作簿。
2、切換到Excel，在快速訪問工具欄中單擊“另存為”按鈕，程序給出提示對話框，。關閉該對話框后另存為操作被取消。
圖2 程序給出提示對話框禁止另存為操作
