Blattschutz + Gruppierung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Blattschutz + Gruppierung
von: Andreas
Geschrieben am: 15.07.2002 - 09:32:44

Hallo zusammen,

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

nach oben   nach unten

Re: Blattschutz + Gruppierung
von: L.Vira
Geschrieben am: 15.07.2002 - 09:59:04

Stell mal in den Eigenschaften des Commandbutton ein:
TakeFocusOnClick FALSE
nach oben   nach unten

Re: Blattschutz + Gruppierung
von: Andreas
Geschrieben am: 15.07.2002 - 10:55:17

Hallo L.Vira,

danke für Deine Hilfe. Hat wunderbar geklappt.

Gruß Andreas


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz + Gruppierung"