ist es möglich, dass ich bei einer Excel Datei die Druckfunktion sperren kann?
Wenn ja, wie?
Danke im voraus
Mario
Private Sub Workbook_Open()
' [STRG]+[P] deaktivieren:
Application.OnKey "^p", ""
' Menue Bearbeiten teilweise deaktivieren:
With Application.CommandBars("Worksheet Menu Bar").Controls("Datei")
.Controls("Drucken...").Enabled = False
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Standardeinstellung fuer [STRG]+[P] wieder herstellen:
Application.OnKey "^p"
' Die Menues wieder aktivieren:
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub