VBA mousemove鼠标事件 vba鼠标悬停事件_vba鼠标停留触发的事件

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容多是取至我的“VBA代码解决方案”教程中内容。NO.143-NO.145内容是：

NO. 143：禁用EXCEL工作簿右上角的关闭按钮

NO. 144：使用Workbook对象的Save方法保存工作簿的更改，如下面的代码所示。

NO.145：利用SAVECORYAS的方法保存工作薄的方法

VBA mousemove鼠标事件 vba鼠标悬停事件_VBA mousemove鼠标事件_02

VBA过程代码143：禁用EXCEL工作簿右上角的关闭按钮

Private BClose As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 If BClose = False Then
 Cancel = True

MsgBox "此功能已经被禁止，文件无法关闭!", vbExclamation, "提示"

END
End If
End Sub

代码的解析说明：上述过程在模块顶部声明变量BClose为Boolean类型，默认初始值为False。

工作簿的BeforeClose事件过程，通过变量BClose的当前值决定是否能够关闭工作簿，只有当BClose的值为True时，才允许关闭工作簿。如果变量BClose的值为False时将参数Cancel的值设置为True，以禁止关闭操作。

VBA mousemove鼠标事件 vba鼠标悬停事件_vba鼠标停留触发的事件_03

VBA过程代码144：使用Workbook对象的Save方法保存工作簿的更改，如下面的代码所示。

Sub mynz()
 ThisWorkbook.Save
 End Sub

代码的解析说明：上述过程在保存代码所在的工作簿的修改。

VBA mousemove鼠标事件 vba鼠标悬停事件_Boo_04

VBA过程代码145：利用SAVECORYAS的方法保存工作薄的方法

Sub mynz()
 ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "BOOK123.xlsx"
End Sub

代码的解析说明：上述过程使用SaveCopyAs方法保存代码所在的工作簿副本，并指定其名称。

VBA实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络分享。利用这些可以提高自己的编程效率。“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第二册的84讲。