根据安全设置,已经禁用宏,若要运行宏，您需要重新打开此工作薄，然后选择“启用宏”。我已经启用了宏。

Question

所有的网上说的方法都试过了
启用了宏，也弄了受信任位置

Answer 1

网上找了很久，终于找到有效的办法，亲测有效，不过此方法会删除Excel文件的所有宏，如果文件内含自己编辑使用的宏，请谨慎使用。

1关闭所有打开的Excel文件，新建一个空白Excel文档

2空白文档建好后，按ALT+11弹出VB编辑窗口

3找到插入标签，插入模块



请点击输入图片描述



请点击输入图片描述

4在弹出窗口内粘贴以下内容：（粘贴内容为从Sub RmvMacros到End Sub）（加粗部分改成一直跳提示的那个文件名）

Sub RmvMacros()

Dim wbk As Workbook

Dim strFilename As String

strFilename = Application.GetOpenFilename("Excel 文件 (*.xls;*.xlsx),*.xls;*.xlsx") '要删除宏的文件名

If strFilename = "False" Then Exit Sub

Application.EnableEvents = False '禁止在打开时触发事件

Application.DisplayAlerts = False

Set wbk = Workbooks.Open(strFilename)

For Each sht In wbk.Sheets

sht.Visible = True

If sht.Type = 3 Or sht.Type = 4 Then sht.Delete

Next

For i = wbk.Names.Count To 1 Step -1

If wbk.Names(i).Visible = False Then wbk.Names(i).Delete

Next i

wbk.Close savechanges:=True

Application.DisplayAlerts = True

Application.EnableEvents = True

End Sub



请点击输入图片描述

按F5，在弹出的窗口内找到想要清理的Excel文件，打开



请点击输入图片描述

6

等命令执行完毕后，关闭所有文档，重新打开一直跳提示的那个EXCEL文件，烦人的弹窗消失了。