Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsblatt einblenden verhindern

Forumthread: Arbeitsblatt einblenden verhindern

Arbeitsblatt einblenden verhindern
Heinz
Hallo Excellenten,
ich habe es - mit Eurer Hilfe - geschafft,
per Makro Arbeitsblätter ein und auszublenden :-)
Wenn die Datei gechlossen wird, blenden sich bestimmte
Spalten und Arbeitsblätter aus.
Wenn der GF öffnet, kann er per mit einem Makro und einem
Kennwort die Spalten und Tabellen auf einen Rutsch wieder einblenden.
Aber wenn jemand anderer die Datei einfach öffnet, kann er mit den
normalen Menues sowohl Spalten aus auch Tabellenblätter
einfach einblenden..
Wie kann ich diese Menuepunkte
- Spalten einblenden
und
- Tabellenblätter einblenden
via Makro deaktivieren bzw. aktivieren?
Ich freue mcih auf Eure Lösungen.
Heinz
Jetzt bräuchte ich noch eine Idee, wie man via
Makro verhindert, das der User Arbeitsblätter einblenden
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Arbeitsblatt einblenden verhindern
18.02.2011 17:15:15
Rudi
Hallo,
verhindern kann man gar nichts, nur erschweren.
Arbeitsblätter: Setze .Visible auf xlSheetVeryHidden.
Spalten: Blattschutz
Gruß
Rudi
AW: Arbeitsblatt einblenden verhindern
18.02.2011 19:40:19
Heinz
Hallo Rudi,
ich versuche gerade, einen Schalter für Blattschutz
mit passwort anzulegen.
Das "Einschalten" geht, aber das Ausschalten "unprotect"
funktioniert nicht.
With Sheets("Proab Gesamt")
If .ProtectContents = False Then
.Protect Password:="12345"
Else
.Unprotect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End With
Hast Du eine Ahnung warum?
Heinz
Anzeige
AW: Arbeitsblatt einblenden verhindern
18.02.2011 19:47:37
Heinz
Hallo Rudi,
jetzt habe ich mir einen Schalter für Blattschutz_mit_pw gebaut.
Das Einschalten funktioniert, aber das Ausschalten nicht.
Hast Du eine Ahnung warum?
With Sheets("Proab Gesamt")
If .ProtectContents = False Then
.Protect Password:="1234"
Else
.Unprotect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End With
Heinz
Anzeige
AW: Arbeitsblatt einblenden verhindern
18.02.2011 20:29:52
Rudi
Hallo,
was sollen die Parameter bei Unprotect? Die brauchst du bei Protect.
With Sheets("Proab Gesamt")
If .ProtectContents = False Then
.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
.Unprotect Password:="1234"
End If
End With
Gruß
Rudi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige