[分享]解决弹出[安全警告]和[隐私问题报告]的方法总结

zgj0729

解决打开EXCEL弹出[安全警告]和关闭EXCEL弹出[隐私问题报告]的方法总结

1、打开EXCEL弹出[安全警告]

解决方法如图
工具==>选项==>安全性==>宏安全性，设置低（此操作有安全风险，使用请谨慎）
同时把个人信息选项的框框选上，以备后患

2、关闭EXCEL弹出[隐私问题报告]

解决方法如图

用ALT+F11打开VB窗口，输入代码（说明：本代码来自此链接，山菊花）

请把代码加入Workbook_BeforeSave事件中：

QUOTE:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.RemovePersonalInformation = False
End Sub

 

题外话：

谢谢大家帮助！我在EH学到了很多东西！
对于我们初学EXCEL宏和VB的菜鸟们来说，每天最痛苦的事情之一就是:频繁而重复的关闭弹出对话框！

把这个总结分享，也算是给自己日后查阅提供方便！如版面错误请斑竹协调！

[此贴子已经被作者于2008-8-5 20:52:39编辑过]

forrest

清晰的总结,用心的插图,给楼主鼓掌加油.奥运加油,LZ加油!

forrest

1.2 保存与关闭

一、保存

Workbooks("文件.xls").Save

二、另存对话框的使用

Application.GetSaveAsFilename(fileFilter:="Excel files(*.xls),*.xls,All files(*.*),*.*")

示例：

flag=False
Do while Not flag                '循环要求必须输入文件名或选择文件名
  fm=Application.GetSaveAsFilename(fileFilter:="Excel files(*.xls),*.xls,All files(*.*),*.*")
  If fm<>False Then
     activeworkbook.SaveAs fm    '当前活动工作簿另存
     flag=True
  End If
Loop

三、关闭

1.单个文件关闭
  Workbooks("filename.xls").Close

2. 所有该EXCEL程序打开的文件都关闭
   Workbooks.Close

如果文件使用中改动过内容,那么该命令使用时会提示对话框,询问是否保存。
如果要想不弹出提示对话框，可以使用第三或第四种文件关闭方法，或者如下示例。

示例：

关闭工作簿“Book1.xls",但不提示用户保存所作修订。“Book1.xls"中的所有修订都不会保存。
Application.DisplayAlerts=False     '信息警告关闭
Workbooks("Book1.xls").Close
Application.DisplayAlerts=True

四、关闭同时保存
  Workbooks("filename.xls").Close savechanges:=True

五、关闭同时不保存
  Workbooks("filename.xls").Close savechanges:=False

六、EXCEL程序的关闭
  Application.Quit

说明：

使用本方法时，如果有未保存的工作簿处于打开状态，则EXCEL将弹出一个对话框，询问是否要保存所作修改。

为防止这一情况出现，可在使用Quit方法前保存所有的工作簿或将DisplayAlerts 属性设置为False。如果该属性为False,则EXCEL退出进，即使存在未保存的工作簿退出，也不会显示对话框，而且不保存就退出。如果将一个工作簿的Saved属性设置为True,但是并没有将其保存到磁盘上，则EXCEL在退出进不会提示保存该工作簿。

chenhuafu

每天不断学习，不断总结，不断提高。

谢谢各位分享！

ngnet888999

在EH的每一天，每一刻，总能给人一种感觉，那就是——总觉得自己像一块海绵，吸吮着无穷的营养和力量。真的很感谢EH！大家的EH......

zgj0729

forrest 的方法太高级，我就能看明白两句close哈哈，大家多多学习交流，发展壮大EH

lsftest

如果是下面的单纯对ActiveX 控件的警告呢？

excel文件里有vba代码，有ActiveX 控件，都是自己写的，每次打开文件就跳这个警告出来，烦。

已经在信任中心里把一切都信任、一切都启动，并把excel文件的路径设为受信任的位置还是不行，各位有什么好办法？

是excel2007.

“此应用程序要初始化可能不安全的ActiveX 控件。如果你信任文件来源，请选择确定，应用程序将使用当前的工作区设置初始化控件。”

wocuola

隐私报告的问题可以这样几种方法处理
1.点击“工具栏”菜单下“选项”对话框“安全性”选项卡
将其中的“保存时从文件属性中删除个人信息”不要选取(即取消打勾)

2保存前使用下面的代码就不会出现提示：
VBScript code    Application.DisplayAlerts = False
保存后要记得恢复：
VBScript code    Application.DisplayAlerts = True
3 动态修改选项来达到目的(保存时从文件属性中删除个人信息)：
VBScript code    ActiveWorkbook.RemovePersonalInformation = True

zzz123

學習了,謝謝.

sanculans

{:soso_e116:}学习啦