取消宏则关闭工作簿

lagssl

求助老师，如何取消宏则关闭工作簿。

在网上搜索了代码，利用宏表，但是禁用了宏还是能打开。提示：“禁用了宏，本表格无法运行。”
测试了网上和论坛中的很多版本，都达不到效果。
Office版本：365

饮冰e士

1. '强制启用宏
   
2. '====================================================
   
3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
4.   Windows(Windows.Count).Visible = False
   
5.   ThisWorkbook.Save
   
6. End Sub
   
7. 
   
8. Private Sub Workbook_Open()
   
9.   Windows(Windows.Count).Visible = True
   
10. End Sub

复制代码

lagssl

饮冰e士 发表于 2024-7-28 17:47

谢谢饮冰e士 老师。测试了一下，没有启用宏的话，表格不显示，启用的话可以显示表格。
虽然表格不显示，但是还可以通过设计模式进入到VBA工程页面。虽然可以设置VBA密码，隐藏菜单来解决，但我希望不启用宏就关闭工作簿，这样省事。

cai2532

这个取消宏代码刚关闭的学习了。

饮冰e士

lagssl 发表于 2024-7-28 20:35
谢谢饮冰e士 老师。测试了一下，没有启用宏的话，表格不显示，启用的话可以显示表格。
虽然表格不显示， ...

这种怕是实现不了吧。要想关闭工作簿，就得通过宏代码；但是打开文件时，又没有启用宏，这就不可能通过宏代码来关闭工作簿了。
没有启用宏，又想通过宏来发挥作用。这应该是不可调和的矛盾吧？

lagssl

我上传的附件，在之前的2003（32位）版本中，是可以做到的。插入宏表，代码放在A列，然后定义名称，强制触发宏表。但是现在office365（64位）的版本就不行了。

aman1516

6楼所说正解，关键是楼主强制启用宏后第二步的目的是什么？说明一下，或许看下有没别的方式实现

lss001

https://club.excelhome.net/forum.php?mod=viewthread&tid=395683&highlight=%B3%A3%D3%C3%BC%BC%C7%C9&mobile=2&_dsign=d9c63cac
参考一下以上链接218楼

lagssl

lss001 发表于 2024-7-29 19:30
https://club.excelhome.net/forum.php?mod=viewthread&tid=395683&highlight=%B3%A3%D3%C3%BC%BC%C7%C9&mo ...

感谢lss001老师！218楼看过了，测试了一下，和其他的贴子没什么区别。之前老版本office2003用这种方法可行。现在的OFFICE365不行了。