[已解决]如何去除多工作簿的工具选项安全性中那个从文件属性中删除个人信息前面方框中那个勾？

小雨饰品

如何将一个文件夹中多个工作簿中的这个勾去除（如图片中的那个勾：当工作簿存在代码时，在EXCEL的表格中工具--选项--安全性--个人信息选项下面的那个勾［即保存时从文件属性中删除个人信息前方框中那个勾］）？用VBA在工作簿“操作表”中操作！谢谢各位老师

最佳答案

月排行榜 / 总排行榜

suye1010

2014-8-27 15:24

1. Sub RPI()
   
2. '申明变量
   
3. Dim MyPath, MyName, AWbName
   
4. Dim Wb As Workbook
   
5. MyPath = ActiveWorkbook.Path
   
6. '获取当前目录下所有excel文件
   
7. MyName = Dir(MyPath & "" & "*.xls")
   
8. '获取活动excel名称
   
9. AWbName = ActiveWorkbook.Name
   
10. 
    
11. Do While MyName <> ""
    
12.     If MyName <> AWbName Then
    
13.         Set Wb = Workbooks.Open(MyPath & "" & MyName)
    
14.         Wb.RemovePersonalInformation = False
    
15.         Wb.Close True
    
16.     End If
    
17.     MyName = Dir
    
18. Loop
    
19. End Sub

复制代码

跳转到最佳答案楼层

香川群子

ActiveWorkbook.RemovePersonalInformation = False

suye1010

1. Sub RPI()
   
2. '申明变量
   
3. Dim MyPath, MyName, AWbName
   
4. Dim Wb As Workbook
   
5. MyPath = ActiveWorkbook.Path
   
6. '获取当前目录下所有excel文件
   
7. MyName = Dir(MyPath & "" & "*.xls")
   
8. '获取活动excel名称
   
9. AWbName = ActiveWorkbook.Name
   
10. 
    
11. Do While MyName <> ""
    
12.     If MyName <> AWbName Then
    
13.         Set Wb = Workbooks.Open(MyPath & "" & MyName)
    
14.         Wb.RemovePersonalInformation = False
    
15.         Wb.Close True
    
16.     End If
    
17.     MyName = Dir
    
18. Loop
    
19. End Sub

复制代码

小雨饰品

suye1010 发表于 2014-8-27 15:24

谢谢版主，达到效果。