AW: Blattschutz in Excel2000
16.12.2008 18:03:00
Peter
Hallo Andi,
hier ein Beispiel:
Option Explicit
'
' nur im Bereich C7 bis AG36 können Eingaben gemacht werden
' das restliche Tabellenblatt ist gegen Überschreiben geschützt.
'
' Getrennte Bereich können mit With WkSh.Range("C7:AG36,B40:D50,F40:H50")
' angegeben werden. D. h. die Bereiche werden durch Komma getrennt angegeben.
'
Public Sub Schuetzen()
Dim WkSh As Worksheet
'Set WkSh = ThisWorkbook.Worksheets(ActiveSheet.Name)
Set WkSh = ThisWorkbook.Worksheets("Erfassung")
With WkSh.Range("C7:AG36")
.Locked = False
.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub
'
' das nachfolgende Makro gibt den Zellen-Schutz wieder frei
'
Public Sub Freigeben()
Dim WkSh As Worksheet
'Set WkSh = ThisWorkbook.Worksheets(ActiveSheet.Name)
Set WkSh = ThisWorkbook.Worksheets("Erfassung")
WkSh.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End Sub
Gruß Peter