Abrir tabla de Excel con contraseña desde VB

roliwar
11 de Noviembre del 2004
He creado un Data que apunta a una tabla de Excel, no he tenido ningùn problema actualizando, borrando, editando ni nada. De hecho, la cosa funciona bien, pero quiero ponerle contraseña al archivo de Excel pues la informacion que contiene no debe poder ser vista fuera del formulario. Pero si le pongo contraseña al archivo, mi programa no puede acceder a la tabla. ¿Como hago para que, desde mi formulario, le pueda proporcionar la contraseña? y de ser necesario, ¿como cambio desde mi formulario, la contraseña del archivo?

Por favor, es con caracter de URGENTE, ojala puedan ayudarme

Luis Atondo
11 de Noviembre del 2004
Analiza este proceso... te ayudará... esto utilízo para comunicarme con excel...
y protejo y desprotejo mis documentos...

AbreExcel 'procedimiento para abrir excel
Set XlBook = XlApp.Workbooks.open("c:libro1.xls")
Set XlSheet = XlBook.Sheets(1)

XlSheet.Protect "Clave", False, False, False
XlSheet.Visible = xlSheetHidden 'oculta la hoja
'empieza el paso de datos a excel

MsgBox XlSheet.cells(5, 1) 'mensaje de lo que tiene A5
'paso de datos

' Fin de paso de datos
XlSheet.Visible = xlSheetHidden 'ocultas la hoja
XlSheet.Protect "Clave", False, False, False 'proteges la hoja
XlBook.Close True 'cierras y grabas el libro

XlApp.Application.Quit
LimpiaVariablesExcel

Luis Atondo
11 de Noviembre del 2004
Perdon este es el bueno...

AbreExcel 'procedimiento para abrir excel
Set XlBook = XlApp.Workbooks.open("c:libro1.xls")
Set XlSheet = XlBook.Sheets(1)

XlSheet.Unprotect "Clave"
'empieza el paso de datos a excel

MsgBox XlSheet.cells(5, 1) 'mensaje de lo que tiene A5
'paso de datos

' Fin de paso de datos
XlSheet.Visible = xlSheetHidden 'ocultas la hoja
XlSheet.Protect "Clave", False, False, False 'proteges la hoja
XlBook.Close True 'cierras y grabas el libro

XlApp.Application.Quit
LimpiaVariablesExcel