Consegui o procedimento que queria dessa forma
Sub AbrirPlanilhaProtegida()
Dim Caminho As String
Arquivo = Application.ActiveWorkbook.Path + "planilha protegida.xls"
AppActivate "Microsoft Excel"
SendKeys "123456"
SendKeys "~"
SendKeys ("123456")
SendKeys "~"
Workbooks.Open Filename:=Arquivo
End Sub
"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein
Postado : 11/11/2014 5:32 pm