Free Fire
14 de Febrero del 2005

Por fa necesito ayuda para abrir un archivo de excel con password desde vb6,uso el sgte codigo y no funciona la sintaxix, les agradecere mucho si me dan una mano:

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open ("C:PROVIDAVTVprovida.xls",3,True,3,";PWD=contraseña")

ATTE
Sergio

Neri
14 de Febrero del 2005

A mi me funciona bien asi:

Private Sub Command1_Click()
Dim objExcel As Object
Dim UnArchivo As String
Dim Excel As Variant
UnArchivo = "C:Hoja1.xls"
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True
Excel.Workbooks.Open FileName:="C:Hoja1.xls", password:="101897"
End Sub

Espero que te ayude.