Ich möchte mehrere Excel-Sheets drucken.
Dazu habe ich die sheets markiert und den Druckdialog aufgerufen.
Sheets(Array("Parameterübergabe", "Anfahren", "Hochschalten", "Rückschalten", "Bericht")).Select
SendKeys "^" & "p"
Hat bisher gut funktioniert. Nun will ich jedes Sheets einzeln schützen, wenn es activiert wird und wieder freigeben, wenn es deactiviert wird. Das muß ich so machen, da ich nicht in die Sheets schreiben kann, wenn diese dauerhaft geschützt sind.
Private Sub Worksheet_Activate()
Application.DisplayAlerts = False
With Worksheets("Start")
.EnableSelection = xlNoSelection
.Protect
End With
End Sub
Private Sub Worksheet_Deactivate()
Application.DisplayAlerts = True
With Worksheets("Start")
.EnableSelection = xlNoRestrictions
.Unprotect
End With
End Sub
Jetzt funktioniert aber das markieren nicht mehr. Es sieht so aus, als wenn das Markieren des ersten Sheets die Schutz-Funktion startet und das Markieren der anderen Sheets verhindert.
Wie kann ich dem Druckdialog sagen, welche Sheets gedruckt werden sollen?
Dazu habe ich die sheets markiert und den Druckdialog aufgerufen.
Sheets(Array("Parameterübergabe", "Anfahren", "Hochschalten", "Rückschalten", "Bericht")).Select
SendKeys "^" & "p"
Hat bisher gut funktioniert. Nun will ich jedes Sheets einzeln schützen, wenn es activiert wird und wieder freigeben, wenn es deactiviert wird. Das muß ich so machen, da ich nicht in die Sheets schreiben kann, wenn diese dauerhaft geschützt sind.
Private Sub Worksheet_Activate()
Application.DisplayAlerts = False
With Worksheets("Start")
.EnableSelection = xlNoSelection
.Protect
End With
End Sub
Private Sub Worksheet_Deactivate()
Application.DisplayAlerts = True
With Worksheets("Start")
.EnableSelection = xlNoRestrictions
.Unprotect
End With
End Sub
Jetzt funktioniert aber das markieren nicht mehr. Es sieht so aus, als wenn das Markieren des ersten Sheets die Schutz-Funktion startet und das Markieren der anderen Sheets verhindert.
Wie kann ich dem Druckdialog sagen, welche Sheets gedruckt werden sollen?