Office: Hilfe für lösung bei >>> xlVeryHidden

Hallo alle

Folgende Lösung such ich !

Mit >> xlVeryHidden << habe ich alle bis auf Tablle1 ausgeschalten .
Nun ist die mappe mit PW geschützt geht alles bis da hin.

Nun soll wenn Makros ausgeschlten ist so bleiben .
Wenn man aber mit aktiven Makros rein geht sollen alle Tabellen sichbar sein .
Gut währe ein Code für jede Tabelle extra.
Kann mir da einer helfen ?


mfg usebb

 

Hallo!

Dieser Code hebt beim öffnen der Mappe mit Makros den Arbeitsmappenschutz auf danach macht er alle Tabellenblätter sichtbar.

Da wo dein Passwort steht muss du ihn noch anpassen.

Code:

Private Sub Workbook_Open()
Dim i As Integer
ActiveWorkbook.Unprotect ("dein Passwort")
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next i
End Sub

Gruß