请问下有什么方法在EXCEL里选择禁用宏则关闭EXCEL只有启用宏才能打开文档

发布网友 发布时间：2022-04-26 17:03

我来回答

共3个回答

热心网友 时间：2023-10-15 23:57

已经在一个提问中有回答：
把sheet3作为一个提示的工作表，在关闭文档的时候，sheet3不隐藏，其他的设置为隐藏。
打开工作表如果禁用宏则只显示sheet3，其他的不显示。
打开工作表如果启用宏，则使用宏代码把所有工作表设置为显示，把sheet3隐藏。
调用其他的宏继续运行。
最后一步要把VBA设置密码防止修改工作表显示属性。
是参考别人的代码总结的思路，并且调试成功。
双击ThisWorkbook，粘贴下面的代码：
Private
Sub
Workbook_BeforeClose(Cancel
As
Boolean)
Dim
i
As
Integer
Application.DisplayAlerts
=
False
For
i
=
1
To
Sheets.Count
If
Sheets(i).Name
<>
"sheet3"
Then
Sheets(i).Visible
=
2
Else
Sheets(i).Visible
=
1
End
If
Next
Me.Save
Application.Quit
End
Sub
Private
Sub
Workbook_Open()
For
i
=
1
To
Sheets.Count
Sheets(i).Visible
=
1
Next
Sheets(3).Visible
=
2
'
Call
other
Mcro
End
Sub

热心网友 时间：2023-10-15 23:57

这个问题我想过，呵呵。
禁用宏则关闭Excel，我不懂，应该不可能吧。
启用宏才能打开文档，我是这样处理的，希望你能看得懂。
比如你想启用宏时才打开文件a.xls
Step1:把a.xls设置打开密码,如123456
Step2:新建一个b.xls,在b.xls里写宏代码来打开a.xls,然后把b.xls的宏代码加密了.
Step3:这样,如果不知道a.xls的密码的话,就得启用宏之后才能用b.xls来打开a.xls
Step4:把a.xls设置成隐藏文件,那外行人就不知道有a.xls这个文件了.

热心网友 时间：2023-10-15 23:58

打开没有宏的文件也会出现这个提示，说明机器感染了宏病毒。
一般用户只有依赖稳妥的杀毒软件，懂宏的人可以非常简单的解决：设置excel宏安全性为高，禁止运行一切宏，然后删除加载宏、个人宏文件就能正常（位置见下面），对于已经感染了病毒的表格，打开之后打开vb编辑器，删除宏代码即可。
加载宏文件夹：c:\users\用户名\appdata\roaming\microsoft\addins\*
个人宏文件夹：c:\users\用户名\appdata\roaming\microsoft\excel\xlstart\*