ABRIR EXCEL PROTEGIDO POR SENHA
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:
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
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
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
Obrigado Dekinho o seu codigo serviu era isso mesmo que precisava
vlw mesmo
vlw mesmo
Tópico encerrado , respostas não são mais permitidas