Guardar libros como de sólo lectura

Gracias, Héctor
Con el código que me proporcionaste he encontrado la solución.


"Héctor Miguel" escribió en el mensaje
news:

hola, Esteban !

> Me gusta la opcion1. Podrias ayudarme con el codigo?.
> No me quedan claras las opciones 2 y 3.

el procedimiento para la opcion1 puede ser +/- con instrucciones como los

ejemplos al final del presente

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=> 1) copiar la hoja 'apropiada' a un libro nuevo [p.e.]:
ActiveSheet.Copy [o una hoja 'especifica']...
Worksheets("hoja formato de factura").Copy
nota: cualquiera de las instrucciones anteriores 'genera' un libro

nuevo con -solo- la hoja copiada

y el nuevo libro se convierte en el libro 'activo'

2) 'convertir' todas [y cualquiera] de las celdas con formuas a sus

valores 'constantes' [libro y hoja nuevos/activos]...

Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("a1").Select
Application.CutCopyMode = False

3) [ahora si] haces el guardar como [opcionalmente puedes proteger

hoja/libro, cerrar el libro]...

ActiveWorkbook..SaveAs "ruta y nombre el archivo nuevo.xls",

xlWorkbookNormal

ActiveWorkbook.Close

4) -> no te olvides de 'limpiar' las celdas modificables del formato de

factura 'original' :))

5) [probablemente] habra 'problemas' si existen objetos incrustados en la

hoja con macros asignadas [me explico]...

a) si 'el objeto' lo incrustas en la hoja desde la barra de

herramientas 'cuadro de controles'...

el modulo de codigo de 'esa' hoja -tambien- sera copiado EN el

libro 'nuevo' [y sera 'operable']

b) si 'el objeto' lo incrustas en la hoja desde la barra de

herramientas 'formularios' [o cualquier otra 'figura']...

el codigo que le asignes [OJO:]... SEGUIRA 'haciendo referencia' a

la macro EN su modulo y libro 'originales'

es probable que haya algunos datos que estes 'dejando en el tintero' ?

[finalmente] para exportar un grupo de celdas a una imagen con formato GIF

o JPG?

una manera +/- 'rapida' seria como la que te expongo al final.
suponiendo que deseas copiar el rango 'B6:D16' de la hoja 'activa'

en un modulo de codigo 'normal' ==> Sub CopiarUnRangoAGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Range("b6:d16")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "c:uta y\sub carpeta para\Factura 001.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub