habe nicht viel Ahnung von VBS und bräuchte eure Hilfe.
Ich habe eine Exel Datei mit mehreren Tabellen, wobei Tabelle1 , 2 , 3 immer sichtbar sein müssen. Die anderen erst mit mit einem Makro Password sichtbar werden.
Quasi sind 2 Benutzergruppen an der Datei und nicht alle dürfen alles sehen.
Ich habe soweit alles fertig nur weiss ich nicht wie Tabelle 2,3 sichtbar bleiben.
In der Arbeitsmappe steht:
Option Explicit
Sub Workbook_Open()
Dim wks As Worksheet
On Error Resume Next
For Each wks In ActiveWorkbook.Sheets
If wks.Name "Tabelle1" Then
wks.Visible = xlVeryHidden
End If
Next wks
End Sub
-------------------------------------In Tabelle 1 steht:
ption Explicit
Sub cmdShowAllSheets_Click()
Dim Sht As Worksheet
Dim ChefPW As String
ChefPW = "XXX"
If InputBox("Bitte das Passwort eingeben", "Passwort-Eingabe") ChefPW Then
MsgBox "Falsch, falsch, falsch :-)" & vbCrLf _
& "Groß- Kleinschreibung korrekt?" _
, vbExclamation + vbOKOnly, "Fehlerhaftes Passwort"
Exit Sub
End If
For Each Sht In ActiveWorkbook.Sheets
Sht.Visible = xlSheetVisible
Next Sht
End Sub
---------------------------------------
schonmal danke für eure Hilfe