wir kann ich prüfen ob eine Arbeitsmappe sichtbar ist.
Wenn sie sichtbar ist soll sie ausgeblendet werden.
Kann man alle bis auf eine sichtbare Mappe ausblenden?
LG
Sabbel
If ThisWorkbook.Worksheets(1).Visible = True Then ThisWorkbook.Worksheets(1).Visible = _
xlSheetHidden
Und wenn das erste Blatt als einziges sichtbar bleiben soll (ansonsten den Index anpassen):Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Index 1 Then ws.Visible = xlSheetHidden
Next ws
GrußOption Explicit
Sub sichtbar()
If Windows("Forum 26.xlsm").Visible Then
Windows("Forum 26.xlsm").Visible = False
End If
End Sub