ABRIR EXCEL PROTEGIDO POR SENHA

DARTAGNAN 11/08/2010 17:23:14
#350012
Ola boa tarde.. o meu sistema abre umas planilhas de excel e as preeche automaticamente.. mas tem algumas que possui senha.
nessas que estao o problema eu nao consigo abri-las.. eu tenho as senhas delas
mas nao sei como fazer o sistema passar por elas

eu abro o excel assim:

  
Dim Plan As Object

Set Plan = CreateObject([Ô]excel.application[Ô])

Plan.workbooks.Open [Ô]c:\[Ô] & [Ô]teste.xls[Ô]
Plan.Visible = False
Plan.UserControl = False


quando nao tem senha ele abre normalmente no modo invisible e eu trabalho em cima das planilhas normalmente
mas quando tem senha o excel fica visivel... :( e nao consigo trabalhar em nada pois nao sei colocar a senha..

alguem sabe como eu posso inserir a senha e continuar trabalhando no modo invisivel?

desde de ja obrigado
ONBASS 12/08/2010 11:11:24
#350057
Resposta escolhida
veja se serve..

  
Dim o As Excel.Application
Dim w As Workbook

Function x()
Set o = CreateObject([Ô]Excel.Application[Ô])
Set w = o.Workbooks.Open([Ô]C:\Documents\pasta1.xls[Ô], , , , [Ô]teste[Ô])
o.Visible = True
End Function

DARTAGNAN 12/08/2010 11:23:45
#350058
Obrigado Dekinho o seu codigo serviu era isso mesmo que precisava

vlw mesmo
Tópico encerrado , respostas não são mais permitidas