Hallo habhor,
das geht nur mit Makro.
Kopiere folgenden Code in ein Allgemeines Modul und starte ihn.
Option Explicit
Sub einblenden()
Dim intI As Integer
For intI = 1 To Worksheets.Count
If Worksheets(intI).Visible = False Then
Worksheets(intI).Visible = True
End If
Next
End Sub
Gruß
Rainer