omegastripes

Например, для удаления свойств и личной информации из Excel файлов, можно сохранить приведенный ниже код в виде файла .vbs, и для удаления свойств - просто перетащить нужные файлы Excel на файл скрипта.

Option Explicit
Dim sSrc, oWB, oProp
With CreateObject("Excel.Application")
	.Visible = False
	.DisplayAlerts = False
	For Each sSrc in WScript.Arguments
		On Error Resume Next
		Set oWB = .Workbooks.Open(sSrc)
		On Error Goto 0
		If .Workbooks.Count > 0 Then
			For Each oProp In oWB.BuiltinDocumentProperties
				oProp.Value = Empty
			Next
			.UserName = " "
			oWB.Save
			oWB.Close
		End If
	Next
	.Quit
End With
CreateObject("WScript.Shell").PopUp "Completed", 1, , 64