Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugriff auf einzelne Tabellenblägger per PW

Zugriff auf einzelne Tabellenblägger per PW
10.11.2006 15:01:13
mmmos
Hallo!
Wie der Betreff schon aussagt, möchte ich wissen wir man einzelne Tabellenblätter mittels PW schützen kann, sodass der jenige der kein PW hat nichts sieht und nur der mit PW direkten zugriff hat.
Bitte bitte um Eure Hilfe - ich suche schon seit einer ewigkeit. Sollte das nicht gehen - wisst Ihr alternativen?
Silvi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf einzelne Tabellenblägger per PW
10.11.2006 17:24:21
fcs
Hallo Silvi,
unsichtbar machen und nach Passworteingabe sichtbar machen kannst du einzelne Tabellenblätter per Makro. Dabei bekommen die Blätter den Status "sehr versteckt", der auch nur per Makro wieder aufgehoben werden kann.
Zusätzlich muss du beim Schließen der Datei die Blätter unsichtbar machen und das VBA Projekt per Passwort schützen.
Gruss
Franz
Makros im VBA-Editor in einem Modul:

Makros im VBA-Editor in einem Modul:
Sub Blaetterausblenden()
Dim Tabellen
Tabellen = Array("Tab2", "Tab3") 'Namen der auszublendenden Blätter
For I = 0 To UBound(Tabellen)
ActiveWorkbook.Sheets(Tabellen(I)).Visible = xlVeryHidden
Next
End Sub
Sub Blaettereinblenden()
Dim Tabellen, PW As String
PW = "XYZ"
If InputBox("Bitte Passwort eingeben") <> PW Then Exit Sub
Tabellen = Array("Tab2", "Tab3") 'Namen der einzublendenden Blätter
For I = 0 To UBound(Tabellen)
ActiveWorkbook.Sheets(Tabellen(I)).Visible = True
Next
End Sub
Makro im VBA-Editor unter "DieseArbeitsmappe"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Blaetterausblenden
ActiveWorkbook.Save
End Sub

Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige