文档介绍：技巧 1禁用工作簿的关闭按钮一般情况下, 用户可以通过菜单“文件”→“关闭”、工作簿窗口右上角的“关闭窗口”按钮或者任务栏中图标右键菜单中的“关闭”菜单项关闭工作簿。如果希望禁用上述关闭工作簿的功能, 而只能通过代码关闭工作簿,则可以在相应的工作簿事件中实现,如下面的代码所示。#001 Dim BClose As Boolean #002 Private Sub Workbook_ BeforeClo se(Cancel As Boolean) #003 If BClose =False Then #004 Cancel =True #005 MsgBox " 此功能已经被禁止,请使用"" 关闭"" 按钮关闭工作簿!", vbExclama tion, " 提示"#006 End If #007 End Sub #008 Public Sub CloseWork book() #009 BClose =True #010 #011 End Sub 代码解析: 第1 行代码在模块顶部声明变量 BClose 为 Boolean 类型,默认初始值为 False 。第2 行到第 7 行代码工作簿的 BeforeClo se 事件过程, 通过变量 BClose 的当前值决定是否能够关闭工作簿,只有当 BClose 的值为 True 时, 才允许关闭工作簿。如果变量 BClose 的值为 False 时将参数 Cancel 的值设置为 True ,以禁止关闭操作。第8 行到第 11 行代码 CloseWor kbook 过程, 将变量 BClose 的当前值设置为 True 后使用 Close 方法关闭工作簿。关于 Close 方法请参阅技巧 45 -1。在添加以上代码后, 用户只能通过调用 CloseWor kbook 过程关闭工作簿。如果通过菜单“文件”→“关闭”或者单击工作簿窗口右上角的“关闭窗口”按钮关闭工作簿, 将显示如图 46 1所示的消息框。图 46 1禁用关闭按钮