Hallo zusammen,
die Tabelle besteht aus 55 Blättern (53 für Kalenderwochen). Die Arbeitsmappe ist geschützt.
Der erste Teil des Codes färbt das Tabellenblatt rot, welches der aktuellen Kalenderwoche entspricht.
Der weitere Teil des Code ist dafür da, einen Hinweistext beim Öffnen anzuzeigen und die Arbeitsblätter zu sperren und dabei die Auto-Gliederung zuzulassen.
Mein Code ist leider noch fehlerhaft. Es wird folgender Fehler ausgegeben:
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
Hier der VBA-Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("" & DatePart("ww", Date, vbMonday, vbFirstFourDays)).Tab.ColorIndex = xlNone
End Sub
____________________________________________________________________________
Sub Workbook_Open()
MsgBox "MUSTERTEXT.", 0, "Hinweis"
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="Passwort"
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
Worksheets("" & DatePart("ww", Date, vbMonday, vbFirstFourDays)).Tab.ColorIndex = 3
End Sub
Kann mir jemand sagen, wo der Fehler liegt?