Foro Excel

Buenas tardes necesito por favor que me ayuden con algo tengo que presentar un informe que esta hecho en excel pero necesito bloquear totalmente el archivo para que no me lo modifiquen, entre esas cosas esta que no se pueda guardar ni se pueda imprimir, necesito que solo se pueda ver la informacion que no la puedan modificar por favor si alguien sabe como hacerlo se los agredeceria.

Utilizar el siguiente código para evitar que se imprima o que se guarde el archivo:

Código: Seleccionar todo

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "No se puede imprimir este archivo"
Cancel = True
End Sub
'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "No se puede guardar este archivo"
Cancel = True
End Sub


Alex.
http://exceleinfo.wordpress.com
http://twitter.com/sergioacamposh

sergioacamposh escribió:Utilizar el siguiente código para evitar que se imprima o que se guarde el archivo:

Código: Seleccionar todo

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "No se puede imprimir este archivo"
Cancel = True
End Sub
'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "No se puede guardar este archivo"
Cancel = True
End Sub


Alex.
http://exceleinfo.wordpress.com
http://twitter.com/sergioacamposh

sergio hermano muchas gracias por su respuesta le cuento que creo una macro y aplico lo que usted me dijo y no me funciona que prodra ser me podria ayudar gracias

El código lo debes ingresas dentro del objeto ThisWorkBook para que tenga efecto.