在创建Excel工作表后,有时希望禁止对工作簿的另存为操作。要实现这种操作,可以通过Workbook对象的BeforeSave事件来实现,本文介绍通过编程实现禁止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