Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugriff auf einzelne Tabellenblägger per PW

Forumthread: 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
Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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