Mfg Alex
Private Sub Workbook_Open()
Windows(Name).Visible = False
UserForm1.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
Dim sOnlyWks As String
Dim i As Integer
sOnlyWks = "Tabelle1"
For i = 1 To ActiveWorkbook.Sheets.Count
Set wks = Sheets(i)
If wks.Name = sOnlyWks Then
wks.Visible = True
Else
wks.Visible = False
End If
Next
End Sub
Das ganze kommt ins "close" ereigniss (und nicht ins open), um zu verhindern dass der User durch "Makros abschalten" die Blätter zu sehen bekommt.