Ich habe mir n Startblatt aus ein paar Shapes zusammengebastelt. Jetzt will ich aber das Zoomen (wenns geht auch das Drucken) auf diesem Blatt verhindern.
Könnt ihr mir mal bitte sagen, wie das geht?! Danke
gruß MArtin
Private Sub Worksheet_Activate()
With Application.CommandBars
.FindControl(ID:=1733).Enabled = True
.FindControl(ID:=925).Enabled = True
End With
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Was weiss ich" Then Cancel = True
End Sub