Alle Tabellenblätter mittels Codename ausblenden
24.02.2016 02:04:40
Torsten
Wie blende ich beim schließen des Workbooks alles aus und beim öffnen alles ein?!
Da beim öffnen der Mappe und nicht aktiviertem Inhalt das letzte bearbeitete Blatt vor dem speichern zu sehen und sogar zu bearbeiten ist.
Ich möchte vor dem schließen der Mappe das Tabellenblatt mit dem Codenamen "wksopen" aufrufen.
Egal welchen Namen dieses Tabellenblatt hat.
Denn wenn einem Nutzer die Langeweile quält und er den Namen von "startseite" auf "probe" ändert, kann mein vba-code dieses Blatt nicht mehr ansprechen.
Um hier auf Nummer sicher zu gehen, möchte ich das Blatt mit dem Codenamen ansprechen.
sub probe ()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In ThisWorkbook.Worksheets
If Not wks.Name = "Startseite" Then
wks.Visible = xlVeryHidden
End If
Next wks
Application.ScreenUpdating = True
end sub
Nun mein Versuchcode mit dem ich immer scheiter:
Sub aus()
Dim wks As Worksheet
Application.ScreenUpdating = False
wksopen.Visible = True
For Each wks In ThisWorkbook.Worksheets
If wks.CodeName = Not wksopen Then
wks.Visible = xlVeryHidden
End If
Next wks
Application.ScreenUpdating = True
End Sub