ich habe folgendes Problem: Ich schütze über die Workbook_Open-Eigenschaft ein Blatt über Blattschutz mit Kennwort.
In dem geschützten Blatt habe ich einen Command Button eingefügt, der bei Click den Blattschutz aufheben, die bestehende Gruppierung aufklappen und den Blattschutz wieder einschalten soll.
Anbei mein erster Versuch, der aber eine Fehlermeldung bringt.
Was mache ich falsch?
Mein Code:
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "xy"
'Application.ThisWorkbook.Worksheets("Project total view").Unprotect Password:="xy"
Range("I7").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Range("L7").Select
ActiveWindow.ScrollColumn = 7
Range("H7").Select
Application.ThisWorkbook.Worksheets("Project total view").Protect Password:="xy"
CommandButton2.Visible = True
Range("H8").Select
End Sub
Bin für jede Hilfe dankbar.
Andreas