Ver?a
12 de Mayo del 2004

Hola a todos:

Estoy trabajando con una aplicación en ASP que genera y abre un fichero excel. Tengo que proteger la hoja excel que está con Excel XP, pero solo para algunas cosas. Por ejemplo, tiene que permitir modificar el ancho de las columnas. En visual basic se haría así:

Excel.ActiveSheet.Protect DrawingObjects:=True, Contents:=True

Pero en ASP no funciona.

Gracias

Kleiber Ortega
12 de Mayo del 2004

set xl = CreateObject("Excel.Application")
set wb = xl.Workbooks.Open("C:InetpubwwwrootFormato.xls")
wb.Sheets(1).Activate 'activa las celdas para que se modifiquen
set sh = wb.sheets(1)
sh.Cells(8,16) = nombre
sh.Cells(8,2) = propuesta
sh.Cells(10,2) = cliente
sh.Cells(8,6) = date()
sh.Protect 'protege las celdas no deja que las modifiquen

wb.SaveAs("C:Inetpubwwwrootlibro1.xls")
wb.Close(SaveChanges=False )
set wb = Nothing
xl.Application.Quit()
xl.Quit()

libro1.xls no deja modificar las celdas
Formato.xls no guarda los cambios y las celdas se pueden seguir modificando