Sub ThirdPartyDocsScrubLockSaveClose()
With ActiveDocument
  .RemoveDocumentInformation (wdRDIDocumentProperties)
  .RemoveDocumentInformation (wdRDIDocumentServerProperties)
  .RemoveDocumentInformation (wdRDIContentType)
  .Protect Password:="12345", NoReset:=False, Type:=wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=True
  .SaveAs2 FileName:=Replace(.FullName, "(IU)", "(CR)"), AddToRecentFiles:=False
  .Close False
End With
End Sub