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
Postado : 11/11/2014 5:32 pm