Bitte um Hilfe bei Fehler in kleinem Makro

[Silvio]

Hallo,
würde mir bitte jemand bei folgenden Problem helfen.
 
Das Tabellenblatt „Auswertungen“ kann mit Passwort „eingeblendet“ werden.- klappt
Es wird, wenn die Arbeit fertig ist, über einen Button wieder „ausgeblendet“. - klappt
Aber, Problem:
Wenn der Button ausblenden bei bereits ausgeblendeten Blatt (versehentlich)
betätigt wird, dann wird das Blatt „Start“ ausgeblendet.
 
Es wäre sehr freundlich, wenn mir bitte jemand das Makro so ergänzen/ändern würde,
dass geprüft wird, ob es bereits ausgeblendet ist und dann einfach nichts geschieht.
 
In einem Modul           aus_und_einblenden
 
Sub Register_ausblenden()
On Error Resume Next 
    Sheets(Array("Auswertungen")).Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Start").Select
End Sub
 
Gruß an alle
Silvio

[BoskoBiati]

Hi,

ungetestet:

Code:

Sub Register_ausblenden()
    Sheets(Array("Auswertungen")).Visible = False
    Sheets("Start").Select
End Sub

[Kuwer]

Hallo Silvio,

Code:

Sub Register_ausblenden()
  Sheets("Auswertungen").Visible = False
End Sub

Gruß, Uwe

[Silvio]

Hallo BoskoBiati,
Hallo Kuwer,
vielen Dank für die Lösung!
Gruß und einen schönen Abend
Silvio