Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blatschutz und Drucken

Blatschutz und Drucken
10.05.2005 19:26:52
Andreas
Kann ich ein Blatt schützen so das es nicht mehr ausgedruckt werden kann.
Über eine Antwort eurer Seits würde ich mich freuen.
Danke für eure Hilfe!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatschutz und Drucken
10.05.2005 19:34:48
Peter
Servus,
z.b. so:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pw As String
pw = InputBox("Passwort:", "Passwort")
If pw <> "Hans" Then Cancel = True
End Sub

MfG Peter
AW: Blatschutz und Drucken
10.05.2005 19:34:49
Rudi
Hi,

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

mfg Rudi
AW: Blatschutz und Drucken
10.05.2005 19:49:14
Andreas
Klasse für eure Hilfe aber noch eine Frage wo trage ich das den ein.
AW: Blatschutz und Drucken
10.05.2005 19:54:09
Peter
Servus,
Alt F11, doppelklicken auf diese Arbeitsmappe, Code einfügen.
MfG Peter
AW: Blatschutz und Drucken
10.05.2005 20:04:30
Andreas
Klappt leider nicht der Drucker hat sich gerade über 170 Seiten gefreut.
Anzeige
AW: Blatschutz und Drucken
10.05.2005 20:12:20
Werner
Hallo Andreas
Userbild
Gruss Werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige