xlSheetVeryHidden
Gordon
habe folgenen Code in "DieseArebeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets("Stammdaten").Unprotect
Sheets("Bilanzrating").Unprotect
Sheets("Z-Score").Unprotect
Sheets("Stammdaten").Visible = xlSheetVeryHidden
Sheets("Bilanzrating").Visible = xlSheetVeryHidden
Sheets("Z-Score").Visible = xlSheetVeryHidden
Sheets("Stammdaten").Protect
Sheets("Bilanzrating").Protect
Sheets("Z-Score").Protect
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub
Wenn ich nun die Datei schließe springt der Debugger an und sagt mir das ein Fehler vorliegt. Und zwar bei dieser Zeile:
Sheets("Stammdaten").Visible = xlSheetVeryHidden
Woran kann das liegen?
Gruß
Gordon