[已解决]保存时删除个人信息

张雄友

保存时删除个人信息的解决办法，这个问题一直未解决。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-13 21:07

(, 下载次数: 68)

上传

点击文件名下载附件

跳转到最佳答案楼层

JLxiangwei

请按下面的步骤：
1.启动excel，将“工具——选项——安全性”里的“保存时从文件属性删除个人信息”的复选框取消
2.保存此工作簿，文件名为"Book.xlt"，关闭excel
3.将Book.xlt文件移动到：       C:\Documents and Settings\***\Application Data\Microsoft\Excel\XLSTART
这里星号位置替换为你的系统帐号名
重启excel，以后新建的工作簿都不会勾选这个复选框。

张雄友

JLxiangwei 发表于 2013-7-12 23:38
请按下面的步骤：
1.启动excel，将“工具——选项——安全性”里的“保存时从文件属性删除个人信息”的复选 ...

按照你的操作做了好几次还是会有的，而且打开EXCEL会慢了很多，有动画从头到尾做一次给我看吗？

hwc2ycy

Workbook.RemovePersonalInformation 属性
如果能从指定的工作簿中删除个人信息，则该值为 True。默认值为 False。Boolean 类型，可读写。
语法

表达式.RemovePersonalInformation

表达式   一个代表 Workbook 对象的变量。

示例


在本示例中，Microsoft Excel 判断是否能从指定的工作簿中删除个人信息，并通知用户。

Visual Basic for Applications
Sub UsePersonalInformation()

    Dim wkbOne As Workbook

    Set wkbOne = Application.ActiveWorkbook

    ' Determine settings and notify user.
    If wkbOne.RemovePersonalInformation = True Then
        MsgBox "Personal information can be removed."
    Else
        MsgBox "Personal information cannot be removed."
    End If

End Sub

hwc2ycy

10里貌似没有这项了，我没找到。
03的就一直有，还是跟你的设置有关。
但在10里打开03有设置这项属性的文件，只要RemovePersonalInformation=false一次就不会再提示了。

张雄友

hwc2ycy 发表于 2013-7-13 08:26
10里貌似没有这项了，我没找到。
03的就一直有，还是跟你的设置有关。
但在10里打开03有设置这项属性的文 ...

这么说就是03版的无法解决了，是个BUG？

hwc2ycy

这个提示是针对工作簿的，所以，你改的只是针对某个工作簿。
如果打开其他的文件还是会有的，那你就只有再手工关掉。

2楼的方法你可以试试。
另外还可以通过加载宏实现。

张雄友

hwc2ycy 发表于 2013-7-13 18:18
这个提示是针对工作簿的，所以，你改的只是针对某个工作簿。
如果打开其他的文件还是会有的，那你就只有再 ...

通过加载宏实现?做了一个加载宏，加载了，但是还是不能对所有工作簿都可以不提示。

Sub Macro1()
    ActiveWorkbook.RemovePersonalInformation = False
End Sub

hwc2ycy

你这还不是加载宏，这里写加载宏是应用程序级的事件，只有这样才能实现对所有打开的工作簿进行属性设置。

张雄友

hwc2ycy 发表于 2013-7-13 20:31
你这还不是加载宏，这里写加载宏是应用程序级的事件，只有这样才能实现对所有打开的工作簿进行属性设置。

版主可以做一个让我们分享？