zeilen mit dem datum <heute automatisch schützen

Forumthread: zeilen mit dem datum <heute automatisch schützen

20.02.2004 09:31:27

jürgen

hallo,
habe zwar gestern schon einige antworten auf meine frage bekommen.
leider konnte ich diese nicht so ganz umsetzen - da vba nicht so mein din ist.
darum hier nochmals:
ich arbeite mit einer tabelle in der in spalte A jeweils das datum steht.
A8 = 18.02.
A9 = 19.02.
usw.
meine frage jetzt ob es möglich ist die zeilen dessen datum in der vergangenheit liegt (< Heute) automatisch zu schützen (schreibschutz)
ich hoffe das ich mich verständlich ausgedrückt habe.
siehe auch
https://www.herber.de/forum/messages/385241.html
**********sorry wenn ich damit jemanden auf die nerven gehe ;-)) ********
jürgen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: zeilen mit dem datum <heute automatisch schützen

20.02.2004 10:08:14

AndreasS
DANKE AN ALLE - Hat funktioniert !!!!!!

20.02.2004 12:36:28

jürgen
Danke für die Rückmeldung....

20.02.2004 13:38:25

AndreasS

AW: zeilen mit dem datum <heute automatisch schützen

20.02.2004 10:08:14

AndreasS

Morgen Jürgen,
probiers doch nochmal mit dem Code von gestern. Als erstes Blattschutz für deine Tabelle einstellen und Passwort vergeben. Dann ALt+F11 -> VBA-Editor. Dann Einfügen -> Modul, jetzt in das Modul diesen Code kopieren:
Sub DatumsTest()
Dim a As Date
a = Date
On Error Resume Next
ActiveSheet.Unprotect "DeinPasswort"
Application.ScreenUpdating = False
For i = 1 To 200
If ThisWorkbook.Application.Cells(i, 1) < a Then
ThisWorkbook.Application.Cells(i, 1).EntireRow.Locked = True
ElseIf ThisWorkbook.Application.Cells(i, 1) >= a Then
ThisWorkbook.Application.Cells(i, 1).EntireRow.Locked = False
End If
Next i
Application.ScreenUpdating = True
ActiveSheet.Protect "DeinPasswort"
End Sub

"DeinPasswort" natürlich ersetzen. Dann Doppelklick (im VBA-Editor) auf "DieseArbeitsmappe". Da kommt dann folgender Code rein:


Private Sub Workbook_Open()
call DatumsTest
End Sub

Dann Projekt kompilieren und speichern. Wenn du jetzt deine Mappe öffnest, dürften nur noch die gewünschten Zellen zu bearbeiten sein. Ich hoffe dies war jetzt einigermaßen verständlich.
Gruß Andreas

DANKE AN ALLE - Hat funktioniert !!!!!!

20.02.2004 12:36:28

jürgen

hallo,
scheint geklappt zu haben.
super.
danke

Danke für die Rückmeldung....

20.02.2004 13:38:25

AndreasS

...

Beliebteste Forumthreads (12 Monate)

zeilen mit dem datum <heute automatisch schützen

Forumthread: zeilen mit dem datum <heute automatisch schützen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread