位置:首頁 > 軟件操作教程 > 辦公軟件 > Excel > 問題詳情

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

提問人:周麗平發(fā)布時(shí)間:2021-08-26

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

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,Cancel As Boolean)

If SaveAsUI=True Then

Cancel=True

MsgBox "當(dāng)前文檔禁止另存為操作!",vbOKOnly,"警告"

End If

End Sub

image.png

圖1 在“代碼”窗口中輸入程序代碼

提示

Workbook對(duì)象的BeforeSave事件在對(duì)工作簿進(jìn)行保存操作時(shí)觸發(fā),其中SaveAsUI參數(shù)指定保存工作簿時(shí)是否顯示“另存為”對(duì)話框,當(dāng)對(duì)工作簿進(jìn)行另存為操作時(shí),該參數(shù)值為True,否則為False。在BeforeSave事件過程中,將Cancel參數(shù)值設(shè)置為True,過程結(jié)束后將不保存工作簿。

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

image.png

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

繼續(xù)查找其他問題的答案?

回復(fù)(0)
返回頂部