Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeilen mit dem datum <heute automatisch schützen

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
Anzeige
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
Anzeige
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
...

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige