vba鼠标停留触发的事件_利用VBA代码禁用触发事件及对工作薄修改的保存方案

7340901ab45ed50b8b0660d5b84eb2e2.png

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

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

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

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

daa51aa03dcfc6d37a942ad91ef85ddb.png

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,以禁止关闭操作。

7df74bc57d283704ae2189bc4e629d4b.png

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

Sub mynz()

ThisWorkbook.Save

End Sub

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

d3baa17aa39c8d90075158dba667b5a5.png

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

Sub mynz()

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "BOOK123.xlsx"

End Sub

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

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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值