Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1200to1204
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
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige