Protect und Unprotect
04.03.2004 10:29:11
matthias
Ich habe ein Problem beim schützen meiner Arbeitsmappe in Excel 97. Ich möchte, dass alle ausser die eingabezellen in der Mappe gschützt sind. Wenn ich nun zb Zeilen oder spalten per klick auf einen Button ausblenden möchte, muss ich ja den schutz der mappe wieder aufheben. Das habe ich so gelöst dass ich in ein modul folgendes geschrieben habe:
Sub Schutz()
ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Aufheben()
Sheets(1).Activate
ActiveSheet.Unprotect Password:="123"
End Sub
nun ist aber das problem dass ich in excel immer die fehlermeldung "LZF 1004 Die Unprotect methode des Worksheet-Objekts ist fehlerhaft. "
der code hinter dem button schaut folgendermaßen aus:
Private Sub CommandButton1_Click()
Aufheben
Rows("15:19").Select
Selection.EntireRow.Hidden = True
Range("B14").Select
Schutz
End Sub
Wäre für Hilfe sehr dankbar,
mfg matthias