Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz für jedes Tabellenblatt

Forumthread: Blattschutz für jedes Tabellenblatt

Blattschutz für jedes Tabellenblatt
27.12.2004 17:41:59
FuP
Frage:
ich habe eine Datei die mehrer Blätter hat. Ich bekomme es auch hin das jede ein eigenes Passwort hat. Aber wie stelle ich es an, das man die einzelnen Blätter und den Inhalt erst nach Eingabe des Passwortes sehen kann. So das man mit einem Passwort nur ein Tabelle bearbeiten kann.
Wer hat ein Idee. Danke im Voraus.
Marius
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz für jedes Tabellenblatt
27.12.2004 17:44:09
DieterB
Hallo Marius,
blende doch standardmässig alle Blätter aus (vielleicht beim Öffnen der datei),
wenn denn das Pwd korrekt eingegeben wurde, werden die Blätter eingeblendet.
Viel Erfolg
Gruß
DieterB
AW: Blattschutz für jedes Tabellenblatt
27.12.2004 17:56:28
FuP
Danke für die schnelle Antwort aber du hast mich falsch vertanden.
Es gibt zehn Blätter für zehn Benutzer, und ein Auswertungs-Blatt. Jeder muss seine Daten eintragen können darf aber nicht die Daten des anderen sehen.
Anzeige
AW: Blattschutz für jedes Tabellenblatt
27.12.2004 17:58:42
DieterB
Ich habe dich verstanden
10 Passwörter im Code, Projekt schützen, je nachdem. welches passwort eingegeben wurde wird das entsprechende Blatt eingeblendet
AW: Blattschutz für jedes Tabellenblatt
27.12.2004 18:07:49
FuP
wenn das geht dann ist das die optimale Lösung. Nur habe ich keine Ahnung von VB und kann den Code nicht programieren.
Hast du eine Idee?
Anzeige
AW: Blattschutz für jedes Tabellenblatt
27.12.2004 18:18:19
DieterB
Das geht etwa so:

Sub pwd()
Sheets("Tabelle2").xlveryhidden
bis zu 11
dim eingabe
eingabe = Inputbox("Bitte geben Sie ihr Passwort an!")
select case eingabe
eingabe = "pwd1"
Sheets("Tabelle2").Hidden = False
End select
End Sub

Tabelle 1 lässt du als Steuerung stehen, damit sich die Inputbox aufmachen kann.
Tabelle 2 - 11 werden am Code-Beginn ausgeblendet, bei Eingabe eines bestimmten Passwortes entsprechend eingeblendet.
Viel Erfolg
Gruß
DieterB
Anzeige
kleiner Fehler
27.12.2004 18:20:18
DieterB
statt sub pwd muss es private sub heissen, und im Modul diese Arbeitsmappe stehen.
das ganze denn heissen workbook_open
Datei
27.12.2004 18:35:40
DieterB
also
die Passwörter lauten pwd2 bis pwd8
entsprechend werden die Blätter 2-8 eingeblendet
https://www.herber.de/bbs/user/15339.xls
Gruß
DieterB
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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