Gruppe
DatumZeit
Bereich
Kalender
Thema
Jahresarbeitszeitkalender
Problem
Wie kann ich einen Jahresarbeitszeitkalender erstellen, der meine individuellen Anfangs- und Pausenzeiten berücksichtigt?
Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: basMain
Sub SchutzEin()
Dim iWks As Integer
For iWks = 2 To 13
Worksheets(iWks).Protect
Next iWks
End Sub
Sub SchutzAus()
Dim iWks As Integer
For iWks = 2 To 13
Worksheets(iWks).Unprotect
Next iWks
End Sub