Zellen bei abgelaufenem Datum sperren mit VBA

Andreas · 2016-06-23T10:40:46+00:00

Hallo zusammen, ich habe heute ein kleines Problem. Ich habe einen Kalender und möchte dass ab dem abgelaufenen Datum (gestern) keine Einträge mehr eingetragen oder gelöscht werden. Eintragen kann ich über die Datenüberprüfung lösen, allerdings mag ich die Meldung nicht, die erscheint wenn eine ältere Zelle verändert werden soll. Ich mag einfach nur ein "OK" zum bestätigen. Mein Datum steht in der Zeile 5 von F bis NZ. Das Ändern der Zelle löse ich so "=HEUTE()<= F$5". Geht das ganze auch per VBA? Danke und Gruß Andi

Hallo
ok, ich denke ich habs.
Ich hatte es so verstanden, dass nur die Zeile 5 gesperrt werden soll, du möchtest aber bis Zeile 115 sperren. Richtig?
Dann so.

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

Gruß UweD

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

Zellen bei abgelaufenem Datum sperren mit VBA

Forumthread: Zellen bei abgelaufenem Datum sperren mit VBA

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zellen bei abgelaufenem Datum sperren mit VBA

Forumthread: Zellen bei abgelaufenem Datum sperren mit VBA

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread