Solução VBA:
Crie esta Sub rotina no arquivo Excel livre de senha e execute-a. Este código irá abrir o arquivo protegido por senha e ler a senha. Então escreva a mesma senha com a linha Set Wbk2.
Sub WorkbookOpen()
Application.ScreenUpdating = False
Dim wbk1 As Workbook
Dim wbk2 As Workbook
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(Filename:="Your Path", Password:="your Password")
Set wbk1 = Nothing
Set wbk2 = Nothing
MsgBox "Logged the File."
Application.ScreenUpdating = True
End Sub
Solução não VBA:
Às vezes, devido aos suplementos instalados, esse problema surge. Para me livrar disso, gostaria de sugerir que fizesse o seguinte.
- Clique em Arquivo, depois em Opções.
- Acesse a Central de Confiabilidade, as configurações da Central de Confiabilidade, os suplementos.
- Verifique o último, Desativar todos os suplementos.
- Feche o Excel, reinicie o computador e abra o arquivo.
NB: Depois de abrir o arquivo, ative todos os Add Ins.
Outro é,
- Arquivo, opção.
- Central de Confiabilidade, Configurações da Central de Confiabilidade, Locais Confiáveis.
- Confirme se você está salvando seu arquivo em um local confiável.
- Feche o Excel, reinicie o computador e abra o arquivo.