Verborgene Zell drucken
20.05.2006 18:09:39
elima
Vor kurzem suchte ich hier Hilfe für folgendes Problem.
Der Inhalt einer Zelle, der am Bildschirm verborgen wird, soll am Ausdruch aber Sichtbar sein.
Josef Ehrensberger hatte sofort die passende Lösung parrat. (siehe VBA-Code)
Nun habe ich aber das Problem, daß es nur funktioniert wenn das Blatt ungeschützt ist. Bei aktiven Blattschutz funktioniert es nicht.
Was muß ich ändern, damit es auch bei aktiven Blattschutz funktioniert ?
Vielen Dank für Eure Mühe
elima
Private Sub Workbook_BeforePrint(Cancel As Boolean)
printSheet
Cancel = True
End Sub
Public Sub printSheet()
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
With ActiveSheet
.Range("S4").NumberFormat = "General" ' Oder jedes andere gewünschte Format
.PrintOut
.Range("S4").NumberFormat = ";;;"
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
On Error GoTo 0
End Sub