AW: Spalten zeitlich sperren
22.01.2012 17:16:06
Dirk
Öffne die Excel-Datei um die es Geht
Drücke Alt+F11
re Maustaste auf das VBP-Projekt(Dateiname)
einfügen --> Modul
in Dieses Modul kannst du nun deine Makros schreiben.
Private Sub auto_Open()
'Abfrage Datum ungleich 24.12.
If Format(Date, "dd.MM.") "24.12." Then
' abfrage vor 16uhr oder nach 7uhr
If Time "07:00:00" Then
'Tabelle in der der Status der Zellen geändert werden soll
Sheets("Tabelle1").Select
' um den Status einer Zelle ändern zu können mussst du erst den Blattschutz aufheben
' wenn du nicht willst das jeder das kennwort aus dem Modul lesen kann must du die
'Eigenschaften des VBA-Projektes ändern und hier ebenfals ein kennwort vergeben
ActiveSheet.Unprotect Password:="geheim"
Range("b16:b49").Locked = False
Range("M16:M49").Locked = False
ActiveSheet.Protect Password:="geheim"
End If
End If
End Sub
Private Sub Auto_close()
On Error Resume Next
ActiveSheet.Unprotect Password:="geheim"
Sheets("Tabelle1").Range("b16:b49").Locked = True
Sheets("Tabelle1").Range("M16:M49").Locked = True
ActiveSheet.Protect Password:="geheim"
'Achtung Datei wird immer beim schließen gespeichert
ActiveWorkbook.Save
End Sub