Zellen bei abgelaufenem Datum sperren mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Dim RNG As Range, Z MsgBox " Alte Daten werden schreibgeschützt" Set RNG = Sheets(1).Range("F5:NZ5") Sheets(1).Unprotect RNG.Locked = False For Each Z In RNG.SpecialCells(xlCellTypeFormulas, 1) If IsDate(Z.Value) And Z.Value

Private Sub Workbook_Open() Dim RNG As Range, Z MsgBox "Alte Daten werden schreibgeschützt" With Sheets(1) Set RNG = .Range("E5:NZ5") .Unprotect For Each Z In RNG.SpecialCells(xlCellTypeFormulas, 1) If IsDate(Z.Value) And Z.Value < Date Then .Range(.Cells(3, Z.Column), .Cells(115, Z.Column)).Locked = True End If Next .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Locked = True Then MsgBox "Zelle ist Schreibgeschützt!" End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Hallo Uwe,
sorry für die etwas verspätete Nachricht. Ich war anderweitig beschäftigt.
Natürlich weiß ich dass das Jahr eigentlich abgefragt wird, aber es ist so, dass wenn z.B. das Jahr 2017 steht, es nicht interessiert. Wahrscheinlich ist es so wie Du sagst, dass ein einmal gesetzter Schutz nicht mehr aufgehoben wird. Auch nach dem Speichern mit neuem Jahr und wieder öffnen ändert es sich nicht.
Ich habe den Code auch unter Worksheet Change laufen lassen (funktioniert auch einwandfrei, soweit ich testen konnte), aber leider keine Änderung.
Kann das geändert werden? Ist es sehr viel Aufwand?
Wenn ja muss ich mir etwas anderes einfallen lassen, Du hast ja wahrscheinlich auch so genug zu tun.
Danke für alles und viele Grüße
Andreas

Hallo nochmal
dann hoffe ich mal, dass du die Nachricht noch bekommst, bevor der Beitrag im Archiv verschwindet.
durch die Änderung wird der gesamte relevante Bereich erst freigegeben und dann erst erfolgt die Zellsperre wie gehabt nach dem Datum aus Zeile 5

Private Sub Workbook_Open()
    Dim RNG1 As Range, RNG2 As Range, Z
    MsgBox "Alte Daten werden schreibgeschützt"
    With Sheets(1)
        Set RNG1 = .Range("E5:NZ5") 'Nur Datum 
        Set RNG2 = .Range("E3:NZ115") 'inkl. Eingabebereich 
        .Unprotect
        RNG2.Locked = False 'rücksetzen 
        For Each Z In RNG1.SpecialCells(xlCellTypeFormulas, 1)
            If IsDate(Z.Value) And Z.Value < Date Then
                .Range(.Cells(3, Z.Column), .Cells(115, Z.Column)).Locked = True
            End If
        Next
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Gruß UweD

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("F6:NZ115"), Target) Is Nothing Then If Target.Locked = True Then MsgBox "Zelle ist Schreibgeschützt!" End If End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

Zellen bei abgelaufenem Datum sperren mit VBA

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen bei abgelaufenem Datum sperren mit VBA

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread