Excel 2003: Tabellenblätter bei Datum sperren

24/10/2007 - 19:46 von Frank Feynsinn | Report spam
Hallo NG,

in einer Arbeitsmappe sind für die Monate eines Jahres Tabellenblàtter
untergebrachet und auch so bezeichnet (Januar, Februar, etc.). Nun möchte
ich die weitere Bearbeitung automatisch bei Eintritt eines vorgegebenen
Datums sperren. So soll das jeweilige Monatsblatt nach Ende Monat + 5
Arbeitsstage gesperrt werden. Wie kann ich dies automatisieren?

TIA, Feynsinn
 

Lesen sie die antworten

#1 Claus Busch
24/10/2007 - 22:23 | Warnen spam
Hallo Frank,

Am Wed, 24 Oct 2007 19:46:57 +0200 schrieb Frank Feynsinn:

in einer Arbeitsmappe sind für die Monate eines Jahres Tabellenblàtter
untergebrachet und auch so bezeichnet (Januar, Februar, etc.). Nun möchte
ich die weitere Bearbeitung automatisch bei Eintritt eines vorgegebenen
Datums sperren. So soll das jeweilige Monatsblatt nach Ende Monat + 5
Arbeitsstage gesperrt werden. Wie kann ich dies automatisieren?



falls nur diese 12 Blàtter in deiner Mappe sind, probiere es mal so im
Codemodul " Diese Arbeitsmappe":

Private Sub Workbook_Open()

Dim i As Integer
Dim dTag As Integer

For i = 1 To 12
If Weekday(DateSerial(Year(Date), i, 1), 2) = 1 Then
dTag = 5
ElseIf Weekday(DateSerial(Year(Date), i, 1), 2) < 7 Then
dTag = 7
Else
dTag = 6
End If

If Date > DateSerial(Year(Date), i, dTag) Then
'Hier dein Passwort anpassen
Sheets(i).Protect Password:="Passwort"
End If
Next

End Sub

Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen