ich bin am Verzweifeln und brauche Rat: Warum kommt beim Schliessen trotzdem der Speichern-Dialog ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Protect Password:="221188"
Sheet.Visible = xlSheetVeryHidden
Next
Sheets("eins").Visible = True
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub
Herzlichen Dank und Gruß
Werner