|
VBA - Verfallsdatum / Gültig bis |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Dienstag, 12. August 2008 um 17:09 Uhr |
|
Es kann vorkommen dass man eine Excel Tabelle erstellt, welche nur eine zeitlich begrenzte Gültigkeit haben soll. Sprich man erstellt ein Demo mit Verfallsdatum. Das realisieren wir mit einem recht einfachen VBA Makro indem wir darin ein Datum angeben - bei Überschreitung werden alle Tabellenblätter mit einem Blattschutz versehen.
Option Explicit
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim verfall As Date
verfall = CDate("13.08.2008")
For Each wks In Worksheets
If Date > verfall Then
wks.Protect Password:="Passwort"
End If
Next wks
End Sub
Dieser Code muss im VBA Editor hinter "DieseArbeitsmappe" gelegt werden.
|
|
Zuletzt aktualisiert am Dienstag, 12. August 2008 um 17:16 Uhr |
VBA Makro Beispiele 