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
Um die Druckfunktion in einer Excel-Datei zu sperren, kannst Du den folgenden VBA-Code verwenden. Gehe dafür wie folgt vor:
Alt + F11, um die Entwicklungsumgebung zu öffnen.Private Sub Workbook_Open()
' [STRG]+[P] deaktivieren:
Application.OnKey "^p", ""
' Menü 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 für [STRG]+[P] wiederherstellen:
Application.OnKey "^p"
' Die Menüs wieder aktivieren:
Application.CommandBars("Worksheet Menu Bar").Reset
End SubFehler: Der Druckbefehl funktioniert trotzdem.
Fehler: Der Code wird nicht ausgeführt.
Eine weitere Möglichkeit, um die Druckfunktion zu sperren, ist die Verwendung des Workbook_BeforePrint-Ereignisses:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End SubDieser Code sorgt dafür, dass der Druckbefehl immer abgebrochen wird, bevor der Druckdialog erscheint.
Wenn Du eine Excel-Datei hast, in der sensible Daten enthalten sind, kann es sinnvoll sein, die Druckfunktion zu sperren. Hier ist ein einfaches Beispiel:
Excel Kopfzeile sperren: Um sicherzustellen, dass die Kopfzeile beim Drucken nicht verändert wird, kannst Du die Kopfzeile sperren, indem Du die Option "Seitenlayout" > "Kopf- und Fußzeile" verwendest und die gewünschten Einstellungen vornimmst.
Makros anpassen: Passe die Makros an Deine speziellen Bedürfnisse an, z.B. um auch die Kopier- und Ausschneidefunktionen zu deaktivieren.
1. Was passiert, wenn die Makros deaktiviert sind?
Wenn die Makros deaktiviert sind, wird der Code nicht ausgeführt, und die Druckfunktion bleibt aktiv.
2. Kann ich auch die Kopier- und Ausschneidefunktion deaktivieren?
Ja, das ist möglich. Du kannst ähnliche VBA-Codes verwenden, um diese Funktionen zu sperren. Frage im Forum nach spezifischen Codes, die auf Deine Bedürfnisse zugeschnitten sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen