You are reading a single comment by @salmonchild and its replies.
Click here to read the full conversation.
-
I've used a macro to do it before. There are probably specific add-ins or programmes that do it but then I'd have had to get IT to install it. This should remove all metadata from files in a folder.
Sub ProcessFiles4() Dim Filename, Pathname, As String Dim wb As Workbook, acount As Double acount = 0 oldStatusBar = Application.DisplayStatusBar Application.DisplayStatusBar = True With Application.FileDialog(msoFileDialogFolderPicker) .Show Pathname = .SelectedItems(1) & "\" End With Filename = Dir(Pathname & "*.xlsx") Do While Filename <> "" Set wb = Workbooks.Open(Pathname & Filename) DoWork4 wb acount = acount + 1 Application.StatusBar = "Progress: " & acount wb.Close SaveChanges:=False Filename = Dir() Loop Application.StatusBar = False Application.DisplayStatusBar = oldStatusBar End Sub Sub DoWork4(wb As Workbook) Dim wbname As String, With wb Application.ScreenUpdating = False Application.DisplayAlerts = False 'Do your work here ActiveWorkbook.RemoveDocumentInformation (xlRDIPrinterPath) ActiveWorkbook.RemoveDocumentInformation (xlRDIDocumentProperties) ActiveWorkbook.RemoveDocumentInformation (xlRDIPrinterPath) ActiveWorkbook.Save Application.ScreenUpdating = True Application.DisplayAlerts = True End With End Sub
Anyone know a tool or plugin to batch remove metadata from .xlsx files?