Bloquear impresion

"Rene Palacios" escribió en el mensaje news:

ME podrian ayudar necesito q ciertas hojas en mi libro esten impedidas al
momento de imprimir q salga un mensaje q diga q no esta autorizado para
imprimir esta hoja es posible desde ya gracias

Pon el siguiente código en el módulo del libro (ThisWorkbook):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Hoja1" Then
MsgBox "Esta hoja no se puede imprimir."
Cancel = True
End If
End Sub


Pero ten en cuenta que si el ususario decide no autorizar la ejecución de macros al abrir el lilbro, el código anterior no servirá para nada...
Un saludo.


Fernando Arroyo
MS MVP - Excel