如何处理禁用宏后关闭的excel

报价

打开EXCEL时，将弹出一个窗口，通知用户工作簿中有一个4.0宏不能禁止. 该工作簿中可能存在宏病毒.

首先简要讨论这种宏病毒的原理. 它由两部分组成. 一种是利用EXCEL2003版本及更低版本的缺陷，即不能禁止EXCEL4.0宏强制用户“启用宏”，然后传递ToDOLE模块. 程序中的VBA代码执行病毒程序（某些自动运行的宏病毒代码也出现在ThisWorkbook模块中）

——————————显示隐藏表——————————————

Sub show hidden table（）

Dim i AsInteger

对于i = 1 ToSheets.Count

Sheets（i）.Visible = True

下一步

结束子

——————————如果被禁用excel禁用宏 关闭，则关闭宏————————————

子abc（）

“在运行之前通过“禁用宏并关闭”打开此工作簿

t = InputBox（“输入工作簿的名称* .xls”）

设置a =工作簿（t）

a. 激活

“显示宏工作表

s = 0

对于Excel4MacroSheets中的每个sh

sh.Visible = 1'显示宏表

sh.Delete'Delete

s = s + 1

下一步

MsgBox“已删除”excel禁用宏 关闭，“ s”和“宏表”

'删除每个表中自动操作的“名称”

错误恢复下一个

对于i = 1到Sheets.Count

Sheets（i）.Names（“ Auto_Activate”）. Delete

下一步

MsgBox“完成，请保存此工作簿”

结束子

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/jisuanjixue/article-234798-1.html