Remover senha de arquivos do Excel em lote

2

Vou obter lotes de mais de 200 arquivos do Excel com uma senha em branco, basta pressionar Enter quando for solicitada a senha. O sistema em que estou carregando esses arquivos não pode manipular folhas do Excel protegidas por senha. Existe uma linha de comando ou outra solução em que posso simplesmente abrir as planilhas do Excel com a senha em branco conhecida e, em seguida, salvá-las novamente sem uma senha?

Esta senha é para abrir o arquivo.

UPDATE:
Segui a recomendação na resposta do STTR e usei o DocRecrypt. Eu não sou mais solicitado a fornecer uma senha para esses arquivos ao abri-los. Impressionante.

    
por tomdemuyt 27.03.2013 / 13:01

1 resposta

3

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
    
por 27.03.2013 / 13:24