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

excel文件改為工作簿模式 通過(guò)編程實(shí)現(xiàn)禁止Excel工作簿文件“另存為”的方法，在這個(gè)電腦辦公的時(shí)代，要是不掌握點(diǎn)office辦公軟件相關(guān)的知識(shí)那你簡(jiǎn)直就沒(méi)有晉升的機(jī)會(huì)了，excel文件改為工作簿模式這個(gè)問(wèn)題，不知道是否也困擾著你，關(guān)于excel文件改為工作簿模式 通過(guò)編程實(shí)現(xiàn)禁止Excel工作簿文件“另存為”的方法看完這篇文章你一定會(huì)有所收獲，我們一起了解下吧！

在創(chuàng)建Excel工作表后，有時(shí)希望禁止對(duì)工作簿的另存為操作。要實(shí)現(xiàn)這種操作，可以通過(guò)Workbook對(duì)象的BeforeSave事件來(lái)實(shí)現(xiàn)，本文介紹通過(guò)編程實(shí)現(xiàn)禁止Excel工作簿文件的“另存為”操作的方法。

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

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

提示

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

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

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