Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen und Spalten Sperren nach aktuellen Datum

Zellen und Spalten Sperren nach aktuellen Datum
06.02.2006 16:14:43
Frank
Hallo zusammen,
a1 =Heute()
a2 05/02/06
a3 06/02/06
a4 07/02/06
Heute kann nur die Zeile a2 bearbeitet werden und die anderen sind gesperrt.
Morgen kann dann nur die Zelle a3 bearbeitet werden und die anderen sind gespert.
usw.
gibt es dafür ein Macro?
Ich hoffe ich habe mich richtig Ausgedrückt.
Gruß
balou1964

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen und Spalten Sperren nach aktuellen Datum
06.02.2006 16:56:43
UweD
Hallo
so ginge es

Private Sub Workbook_Open()
Dim Tb, Sp%, Z
Set Tb = Sheets("Tabelle1")
Sp = 1 'Spalte A
Tb.Unprotect Password:="123"
For Each Z In Tb.Columns(Sp).SpecialCells(xlCellTypeConstants, 3)
If Z.Value = Date Then
Rows(Z.Row).Locked = False
Else
Rows(Z.Row).Locked = True
End If
Next
ActiveSheet.Protect Password:="123"
End Sub

Makro kommt in "DieseArbeibeitsmappe"
Gruß UweD
(Rückmeldung wäre schön)
AW: Zellen und Spalten Sperren nach aktuellen Datum
08.02.2006 09:01:19
balou1964
Hallo UweD
Du bist a Wucht!! Ohne Deine Hilfe hätt ich das nimmer geschafft.
Des funzt voll supiiiiiiiiii so!!! Hast mir
viel Zeit erspart!! Danke nochmals!
Kann man das auch Variabel machen.
so das mehr Zeilen bearbeitet werden können.
Anzeige
AW: Zellen und Spalten Sperren nach aktuellen Datum
09.02.2006 09:23:49
UweD
Hallo
variabel? wenn z.b. nur in jeder 2. Zeile ein Datum steht.
so wird die nachfolgende Zeile ebenfalls gesperrt/freigegeben.

Private Sub Workbook_Open()
Dim Tb, Sp%, ZE%, Z
Set Tb = Sheets("Tabelle1")
Sp = 1 'Spalte A
ZE = 2 'es sollen 2 Zeilen bearbeitet werden
Tb.Unprotect Password:="123"
For Each Z In Tb.Columns(Sp).SpecialCells(xlCellTypeConstants, 3)
If Z.Value = Date And Z.Value <> "" Then
Range(Rows(Z.Row), Rows(Z.Row + ZE - 1)).Locked = False
Else
Range(Rows(Z.Row), Rows(Z.Row + ZE - 1)).Locked = True
End If
Next
ActiveSheet.Protect Password:="123"
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige