mehrere Tabellenblätter teilweise sperren
29.01.2016 12:45:57
Erwin
ich habe für jede Kalenderwoche ein eigenes Tabellenblatt, also 1KW bis 53KW. Daneben habe ich noch zwei Blätter zur Auswertung und für Sonstiges. Die 53 KW-Blätter möchte ich nun ab der Zeile 48 sperren. Die Zellen darüber sollen beschreibbar bleiben. Die anderen Tabellenblätter "Auswertung" und "Sonstiges" sollen unberührt bleiben.
Folgenden Code habe ich mir schon zusammengestellt, funktioniert aber nicht:
Sub kw_sperre()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "*KW" Then
Range("A2:E47").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="...", _
DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next ws
End Sub
Sub aufheben()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "*KW" Then
ActiveSheet.Unprotect ("...")
End If
Next ws
End Sub
Wäre für einen Tipp sehr dankbar
Erwin
Anzeige