在創(chuàng)建Excel工作表后，有時希望禁止對工作簿的另存為操作。要實現(xiàn)這種操作，可以通過Workbook對象的BeforeSave事件來實現(xiàn)。以下是學習啦小編為您帶來的關于通過編程實現(xiàn)禁止Excel工作簿文件“另存為”，希望對您有所幫助。

　　通過編程實現(xiàn)禁止Excel工作簿文件“另存為”

　　1、啟動Excel并打開Visual Basic編輯器，在工程資源管理器中雙擊"ThisWorkbook"選項打開“代碼”窗口，在其中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：

　　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事件在對工作簿進行保存操作時觸發(fā)，其中SaveAsUI參數(shù)指定保存工作簿時是否顯示“另存為”對話框，當對工作簿進行另存為操作時，該參數(shù)值為True，否則為False。在BeforeSave事件過程中，將Cancel參數(shù)值設置為True，過程結束后將不保存工作簿。

　　2、切換到Excel，在快速訪問工具欄中單擊“另存為”按鈕，程序給出提示對話框，如圖2所示。關閉該對話框后另存為操作被取消。

　　圖2　程序給出提示對話框禁止另存為操作

猜你喜歡：

1.Excel中只讀或副本方式打開工作簿的操作方法

2.Excel2010中使用共享工作簿進行協(xié)作的操作方法

3.Excel怎么創(chuàng)建指定名稱的工作簿

4.excel工作簿怎么單獨提取一個表單

5.Excel如何共享工作簿