You are reading a single comment by @salmonchild and its replies. Click here to read the full conversation.
  • Anyone know a tool or plugin to batch remove metadata from .xlsx files?

  • 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
    
About

Avatar for salmonchild @salmonchild started