Teste o DocRecrypt.
Ferramenta DocRecrypt do Microsoft Office 2013
Para remover a senha de um arquivo, use este código:
DocRecrypt –i lockedfile
Para remover a senha e atribuir uma nova senha de 12345, use este código:
DocRecrypt –p 12345 –i lockedfile
Para remover a senha, criar um novo arquivo e atribuir uma nova senha 12345 ao arquivo, use este código:
DocRecrypt –p 12345 –i lockedfile -o newfile
caminho 2:
ExcelClearPass.vbs:
Set objExcel = CreateObject("Excel.Application")
'
objExcel.Visible = TRUE
objExcel.DisplayAlerts = FALSE
'
Path1="D:\VBS\VBS85 Excel Unprotect password\Book1.xlsx"
Path2="D:\VBS\VBS85 Excel Unprotect password\Book2.xlsx"
'
Set objWorkbook = objExcel.Workbooks.Open(Path1,,,," ")
'
objWorkbook.Password = ""
objWorkbook.SaveAs Path2
'
objExcel.Quit