Blattschutz und Gliederung
04.05.2003 16:42:50
Ingo
ich möchte es einrichten, dass trotz Blattschutz meine Gliederungselemente funktionieren. Dafür habe ich bei Euch folgenden Code gefunden.
Private Sub Workbook_Open()
Dim iWks As Integer
For iWks = 1 To Worksheets.Count
Worksheets(iWks).Protect UserInterfaceOnly:=True
Next iWks
End Sub
Da ich kein Profi bin, hoofe ich, dass mir jemand helfen kann.