我用做了一个Excel Vba小程序，程序的工程属性的查看、代码的查看都加密了。如下图。
设置有关闭工作簿时的事件，本来一直关闭都是直接关闭的，相安无事，但是最近每次关闭时需要输入vba工程的密码，不输入密码的话则需要取消N次才能关闭。
我调试过程序，是在运行完工作簿事件所有代码后产生的，和代码的关系不大。
有的电脑上无提示，而有的电脑上有提示。
请问该问题如何解决呢？
Excel VBA如何取消关闭时的工程密码输入框？
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
分享- 邀请回答
-
2条回答 默认 最新
lyhsdy 2019-01-29 13:19关注试下在你的工作簿关闭事件上增加
Application.DisplayAlerts = False
关闭弹出所有提示框解决 无用评论 打赏举报 分享
- 2021-05-12 21:01回答 2 已采纳 默认黑色的，直接设置成黑色就行了吧 Sheets(1).Cells(2, "A").Font.Color = vbBlack
- 2022-02-13 15:07回答 1 已采纳 Range("A#").Value = i-------cells(a,1).valueRange("B#").Value = i-------cells(a,2).valuecells可以接受两个变
- 2016-06-22 02:38回答 2 已采纳 哎！！！！！大神都去哪里了！
- 2019-04-21 20:40独行侠_阿涛的博客 都说office，似乎大家都知道office，甚至可以说都懂得office。真的懂嘛？ 其实，我们只是用了office的1%不到的功能， 这不，扫地僧最近应公司同事的需求，帮他...2、vba编程入口需要口令才能进入 3、基于口...
- 2018-04-12 07:20回答 1 已采纳 代码实现重新构建所有链接,如果要单独刷新某文件夹的文件链接，可仿效代码（可不用单独刷新，如有增删，重新全部构建）。 Sub test() Dim fso, fp, ar, ar1, sub
- 2022-12-28 05:04回答 1 已采纳 写多个if呀
- 2022-06-16 06:18回答 1 已采纳 Sub splitvolt() Set reg2 = CreateObject("vbscript.regexp") '正则表达式，想要取V后面的两位数字 reg2.Patte
- 2024-01-28 22:59STARBLOCKSHADOW的博客 从开发者角度看，Excel VBA应用程序由工作表、用户窗体、模块和类模块等部分构成。工作表：用于保存和显示程序的数据，是程序的主体部分。一般先在工作表中制作出特定表格的格式，并设置好样式，再通过VBA代码获取...
- 2022-06-06 09:24回答 3 已采纳 通过vba可以实现
- 2022-06-02 09:40回答 3 已采纳 有可能是编码格式的问题，查看一下数据库使用哪种编码格式，查询的时候也使用这种编码格式!
- 2017-04-06 07:06回答 1 已采纳 There's a good article on your problem at Techrepublic - quoting the necessary part: When the
- 2017-03-13 16:10回答 3 已采纳 Dim IE As New SHDocVw.InternetExplorer 'Set IE = New SHDocVw.InternetExplorer IE.Visible = Tru
- 2022-06-01 15:05Excel_VBA创维大表格จุ๊บ的博客 Excel VBA 编程，在表格做自动筛选的功能下面的例子是自动筛选85列的内容，筛选内容为处方
- 2022-02-16 14:03hannah2sah的博客 第1部分 单元格选择技巧与选区统计 第1章 单元格与区域选择技巧 实例1选择A列最后一个非空...（2）Range(“a1048576”)：Excel 2003升级至2007后，可用行数从65536行提升至1048576行，所以表示A列最大行数时使用Range
- 没有解决我的问题, 去提问
悬赏问题
- ¥15 如何在scanpy上做差异基因和通路富集？
- ¥20 关于#硬件工程#的问题，请各位专家解答！
- ¥15 关于#matlab#的问题：期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707，使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错，维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯：Person is not mapped，如何解決？
- ¥15 c++头文件不能识别CDialog