根据安全设置,已经禁用宏,若要运行宏,需要重新打开此工作薄,是设置错误造成的,解决方法如下:
1、首先打开“文件”菜单下的“选项”。
2、找到左侧的“信任中心”。
3、然后在右侧找到“信任中心设置”选项。
4、接着在打开的对话框的左侧,找到“宏设置”。
5、最后在右侧找到“禁用所有宏,并且不通知”选项,选中后确定即可完成。
注意:此方法会删除Excel文件的所有宏,如果文件内含自己编辑使用的宏,请谨慎使用。(亲测有效)
1
关闭所有打开的Excel文件,新建一个空白Excel文档
2
空白文档建好后,按ALT+11弹出VB编辑窗口
3
找到插入标签,插入模块
4
在弹出窗口内粘贴以下内容:(加粗部分改掉,改成要删除宏的文件名)
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
等命令执行完毕后,点右上角X,关闭文档。
重新打开EXCEL文件,烦人的弹窗消失了。
我也碰到同样问题,上网搜了半天没找到解决办法,自己想法解决了,但愿对你有所帮助:
左侧OFFICE徽标,Excel选项,信任中心,信任中心设置,受信任的位置,添加新位置,浏览,(文件所在文件夹),确认,勾选“同时信任此位置的子文件夹”,确认。
关闭Excel再打开,搞定。
不过安全性降低了,注意不要随便打开来源不明的Excel文件哦
OFFICE软件的安全设置问题