ExcelVBA实例教程044：禁用宏则关闭工作簿.pdf

Excel VBA实例教程044：禁用宏则关闭工作簿 本资源摘要信息将详细介绍如何使用Microsoft Excel 4.0版的宏实现禁用宏则关闭工作簿的功能。该功能可以在Excel VBA中使用 Macro1 宏表来实现。 一、禁用宏安全性设置 在 Excel 中，可以对宏安全性进行设置。在安全级别设置为“中”时，打开包含Microsoft Excel 4.0版的宏的工作簿时，会显示安全警告对话框。如果用户选择“禁用宏”，则会显示警告消息框。如果用户选择“否”，不能打开该工作簿；如果用户选择“是”，打开该工作簿，但VBA 宏被禁止，而Microsoft Excel 4.0版的宏未被禁止。 二、使用Microsoft Excel 4.0版的宏实现禁用宏则关闭工作簿 可以利用禁用VBA 宏不能禁止Microsoft Excel 4.0版的宏这个特点，使用 Microsoft Excel 4.0版的宏来实现禁用宏则关闭工作簿的功能。 步骤 1：新建或打开需要添加此项功能的工作簿文件。 步骤 2：按<Ctrl+F11> 组合键为工作簿添加一个宏表，添加的宏表名称默认为“Macro1”。 步骤 3：在宏表 “Macro1”的 A1 至 A7 单元格中输入以下内容。 禁用宏则关闭工作簿 1.=ERROR(FALSE) 2.=IF(ERROR.TYPE(RUN("TestMacro"))=4) 3.= ALERT("因禁用了宏功能 , 文件将被关闭 !",3) 4.= FILE.CLOSE(FALSE) 5.=END.IF() 6.=RETURN() 步骤 4：为每个表添加工作表级别的名称“ Auto_Activate”，并将引用都指向宏表“Macro1”的 A2 单元格。 步骤 5：运行下面的代码，隐藏宏表工作表： 1.Sub HideMacroSheet() 2. ThisWorkbook.Excel4MacroSheets(1).Visible = xlSheetHidden 3.End Sub 步骤 6：保存工作簿。 三、实现禁用宏则关闭工作簿的功能 当应用程序的宏安全性的安全级设置为“中”时，如果用户打开该工作簿文件并选择“禁用宏”，将显示警告消息框。当用户选择“是”时，活动工作表上的自动宏“Auto_Activate”将被执行，执行结果显示警告消息框，当用户选择“确定”按钮后，将强制关闭该工作簿文件。 四、使用VBA隐藏名称 可以使用VBA来隐藏名称，以避免名称被删除或修改。代码如下： 1.Sub AddPrivateNames() 2. Dim sht As Object 3. For Each sht In Sheets 4. ThisWorkbook.Names.Add sht.Name & "!Auto_Activate", _ 5. "=Macro1!$A$2", False 6. Next 7.End Sub 五、总结 本资源摘要信息详细介绍了如何使用Microsoft Excel 4.0版的宏实现禁用宏则关闭工作簿的功能。该功能可以在Excel VBA中使用 Macro1 宏表来实现，并且可以使用VBA隐藏名称，以避免名称被删除或修改。