Microsoft Excel

Herbers Excel/VBA-Archiv

makro für zellenschutz datum <heute

Betrifft: makro für zellenschutz datum <heute von: jürgen
Geschrieben am: 17.09.2004 07:57:07

hallo,
ich arbeite mit einer relativ großen tabelle ( A1:CO380 ) in der daten nach dem datum gelistet sind.
in spalte D steht das datum.
ist es möglich mit einen makro automatisch die zeilen zu sperren (schützen) welche nicht das datum von heute haben.

also eingabe in zeile mit dem heutigen datum ist frei - eingabe für gestern oder morgen gesperrt und nur möglich mit freigabe des blattschutzes.

ist sowas möglich und wenn ja wie?

danke schon mal für eure mühe.
gruß

jürgen

  


Betrifft: AW: makro für zellenschutz datum <heute von: Marcl
Geschrieben am: 17.09.2004 09:27:50

Hallo Jürgen,

Sub Makro1()

'

'
Dim dat
dat = Date
' schütz alle Zellen , je nachdem, was gewünscht wird
Cells.Locked = True
' schützt nur Spalte D
    Columns("D:D").Locked = True
' in Zelle D2 beginnen
Range("D2").Select
' Do Loop Schleife bis leere Zelle am Ende ist
Do While ActiveCell <> ""
If ActiveCell = dat Then
' Zellschutzt aufheben
    Selection.Locked = False
End If
' eine Zelle tiefer gehen
ActiveCell.Offset(1, 0).Select
Loop
' Blatt schützen
ActiveSheet.Protect "test"
End Sub



Gruß
Marcl