根据安全设置,已经禁用宏,若要运行宏,您需要重新打开此工作薄,然后选择“启用宏”。这是怎么回事啊。

 我来答
游戏放松小助手
高粉答主

2020-05-11 · 我是游戏小达人,乐于助人
游戏放松小助手
采纳数:32 获赞数:76911

向TA提问 私信TA
展开全部

根据安全设置,已经禁用宏,若要运行宏,需要重新打开此工作薄,是设置错误造成的,解决方法如下:

1、首先打开“文件”菜单下的“选项”。

2、找到左侧的“信任中心”。

3、然后在右侧找到“信任中心设置”选项。

4、接着在打开的对话框的左侧,找到“宏设置”。

5、最后在右侧找到“禁用所有宏,并且不通知”选项,选中后确定即可完成。

F6113舍长
2019-10-25
知道答主
回答量:7
采纳率:100%
帮助的人:2149
展开全部
  • 注意:此方法会删除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文件,烦人的弹窗消失了。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
TJUN2008
2012-08-28 · TA获得超过117个赞
知道答主
回答量:89
采纳率:0%
帮助的人:40.4万
展开全部
我也碰到同样问题,上网搜了半天没找到解决办法,自己想法解决了,但愿对你有所帮助:

左侧OFFICE徽标,Excel选项,信任中心,信任中心设置,受信任的位置,添加新位置,浏览,(文件所在文件夹),确认,勾选“同时信任此位置的子文件夹”,确认。

关闭Excel再打开,搞定。

不过安全性降低了,注意不要随便打开来源不明的Excel文件哦
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
dw...a@163.com
2021-03-24 · TA获得超过1038个赞
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
736维也纳
2012-07-13 · 超过28用户采纳过TA的回答
知道答主
回答量:96
采纳率:0%
帮助的人:67.6万
展开全部
OFFICE软件的安全设置问题
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式