Private Sub CommandButton1_Click() Dim w As Window, f As Worksheet Application.Visible = True For Each w In Windows w.Visible = True Next For Each f In Worksheets f.Visible = True Next End Sub
Public Sub sos() Dim w As Window, f As Worksheet Application.Visible = True For Each w In Windows w.Visible = True Next For Each f In Worksheets f.Visible = True Next End Sub