Problema con protección de Celdas
Buenas.
Quisiera saber cómo lograr que unas celdas protegidas salgan impresas, que no las puedan modificar pero necesitan poder imprimirlas.
Sub Imprimir()
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
ActiveSheet.Range("H1").Value = ActiveSheet.Range("H1").Value + 1
End Sub
Me devuelve error en la línea ActiveSheet.Range, imagino que por la misma protección. Además que intento que me salga el msgbox antes y da el mismo problema.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "Seguro quieres imprimir?"
End Sub
Gracias de antemano.
1 respuesta
Respuesta de Elsa Matilde
1