abrir archivo excel desde visual basic

josefainc
18 de Noviembre del 2003
hola, alguien me puede ayudar con lo siguiente: necesito abrir un archivo excel desde visual basic pero solo como lectura, es decir, que los usuarios no puedan realizar modificaciones sobre el.
Tambien me serviria si alguien me explica como grabar (desde visual basic logicamente), un archivo excel pero protegido, la idea es la misma, impedir que los usuarios lo modifiquen.
si alguien sabe please...es urgente
Gracias

rafa
18 de Noviembre del 2003
Hola.
Debes referencia Microsift Excel y luego en el codigo:

Dim apExcel As Excel.Application
Dim libroEx As Excel.Workbook
Dim hojaEx As Excel.Worksheet
If apExcel Is Nothing Then
Set apExcel = CreateObject("EXCEL.APPLICATION.8")
End If
'LAS DOS LINEAS SIGUIENTES:Devuelven o establecen el texto del mensaje alternativo "ocupado" que se muestra cuando se recibe una entrada de teclado o de mouse (ratón) mientras está pendiente una petición de automatización
App.OleRequestPendingMsgTitle = "RECOGIENDO DATOS DEL FICHERO EXCEL"
App.OleRequestPendingMsgText = "Debe esperar un tiempo hasta que finalice la creación del fichero Excel"
Err = 0
Set libroEx = apExcel.Workbooks.Open(TxtFichero)
If Err <> 0 Then
MsgBox "No se puede abrir el fichero. Está en uso o corrupto.", vbExclamation, "Aviso"
Exit Sub
End If
Set hojaEx = libroEx.Worksheets(1)
codigo.......
libroEx.SaveAs CDElegir.FileName
apExcel.Quit
Set hojaEx = Nothing
Set libroEx = Nothing
Set apExcel = Nothing
Basicamente es asi, investiga en las propiedades de estos objetos para conseguir exactamente lo que quieres.
Suerte