Tabellenblätter mit passwort sichtbar machen

[BachFel]

Hallo zusammen,

ich habe eine Excel-Datei mit mehreren Tabellenblättern. Es soll nur das erste Tabellenblatt sichtbar für die Anwender sein. Das habe ich simpel über veryhidden gelöst. (auch suboptimal da man es fix wieder auf visible umstellen kann wenn man sich ein wenig mit der Materie auskennt..)
Gibt es nun die Mglk. dass ein VBA mit einem Passwort alle versteckten Tabellenblätter wieder sichtbar macht? Am Liebsten in Form einer MessageBox die ein Passwort abfragt.

Liebe Grüße
Felix

[Igelbauer]

Hi Felix
Hab vor einiger Zeit mal das hier für jemand anderes zusammengestellt.
Passt vielleicht nicht ganz zu deiner Vorstellung, aber schau es dir mal an.
Anpassen wäre kein grosses Problem.

Gruss Igel

[Wastl]

Hi,

seit vielen Jahren benutzte ich diese 2 Codeschnipsel und zwar aus dem Kontextmenü direkt in Excel aufrufbar
Funktioniert seit Excel 97 bis heute

Code:

'---------------------------------------
Private Sub Blatt_verstecken()
'versteckt Tabellen, =eine Stufe mehr wie ausblenden
Dim A As String
On Error Resume Next
A = ActiveSheet.Name
Sheets(A).Visible = xlVeryHidden
End Sub
'---------------------------------
Private Sub Blatt_verstecken_vorholen()
'Holt alle ausgeblendeten Tabellen wieder vor
Dim A As Long
For A = 1 To Sheets.Count
Sheets(A).Visible = True
Next
End Sub

[BachFel]

Erstmal vielen lieben Dank für deine Antwort,

mir würde es tatsächlich schon reichen wenn ich es hinbekommen könnte das man nur nach Passwort- Eingabe auf den Code zugreifen kann. Also genau das was bei Igelvater bei dir geschieht.

[Igelbauer]

Bin kein Vater

Hast du das hier gemeint ?

[BachFel]

Pardon Igelbauer :D

Genauso habe ich es auch versucht aber bei mir muss man kein Passwort eingeben wenn ich dann per Rechtsklick auf das sichtbare Tabellenblatt gehe. Kann dann wie gewohnt alles ohne vorherige Passwort eingabe sehen uns ändern..

Verstehe es nicht

[Wastl]

Bekomme Laufzeitfehler beim Öffnen mit Excel 2010.

Sonst is nix auf


Hallo TE,

folgender Code mit Passwortabfrage hilft

Code:

Private Sub Blatt_verstecken_vorholen()
'Holt alle ausgeblendeten Tabellen wieder vor
Dim A As Long, PW As String
PW = InputBox("Kennwort")
If PW = "igel" Then
   For A = 1 To Sheets.Count
   Sheets(A).Visible = True
   Next
End If
End Sub

[Igelbauer]

Damit sperrst du auch nur den Zugang zum VBA.
Jetzt könntest du ein Makro in der Art wie vom Wastl einfügen und am besten noch per Tastenkombination aufrufen.
Oder du suchst dir die passenden Schnipsel aus meiner "Personal.xlsm"
Wenn du dafür noch Hilfe brauchst.
Bis spätestens in einer Stunde oder Morgen.

Igel

[BachFel]

Bekomme Laufzeitfehler beim Öffnen mit Excel 2010.

Sonst is nix auf


Hallo TE,

folgender Code mit Passwortabfrage hilft

Code:

Private Sub Blatt_verstecken_vorholen()
'Holt alle ausgeblendeten Tabellen wieder vor
Dim A As Long, PW As String
PW = InputBox("Kennwort")
If PW = "igel" Then
   For A = 1 To Sheets.Count
   Sheets(A).Visible = True
   Next
End If
End Sub


Vielen Dank für deinen Code. Funktioniert zum Einblenden super mit dem Passwort. Beim ausblenden jedoch sollen alle Blätter ausgeblendet werden bis auf Tabelle1. Geht das auch?

[Käpt'n Blaubär]

Hallo,

            For InI = Sheets.Count To 1 Step -1
                If Sheets(InI).Name <> "Tabelle1" Then Sheets(InI).Visible = xlVeryHidden
            Next InI

ups: ... kann das sein, daß ich jetzt in einem anderen Thread gelandet bin?