Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige