Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausdruck mit VBA verhindern

Ausdruck mit VBA verhindern
15.12.2004 20:50:50
Helmut
Hallo Profis,
wie kann ich mit VBA verhindern, dass andere Nutzer meiner Arbeitsmappe z. B. das 2. Tabellenblatt (egal wie es heißt) ausgedruckt werden kann?
Vielen Dank im voraus für die Unterstützung.
Helmut

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck mit VBA verhindern
Beate
Hallo Helmut,
dieses Makro ins Codefenster "dieseArbeitsmappe":

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle2" Then Cancel = True
End Sub

Aber: Die Nutzer könnten das Makro löschen oder den Tabelleninhalt in ein anderes Blatt kopieren und ab geht der Druck....
Gruß,
Beate
AW: Ausdruck mit VBA verhindern
UweD

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "DieseArbeitsmappe" doppelklicken

  • Im neuen Fenster das Makro einfügen



Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = Sheets(2).Name Then
Cancel = True
MsgBox "Drucken nicht erlaubt"
End If
End Sub

Klappt aber nur, wenn die Datei mit Makro gestartet wird.
Gruß UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige