Office: Blattschutz mit AutoFilter-Option

Hallo zusammen,

ich habe mir ein kleines Excel-Tool zusammengebastelt, welches beim Start bzw. bei dem Change Event einer ComboBox einen Code ausführt, der die Werte in einer Tabelle aktualisiert. Soweit funktioniert alles einwandfrei *Smilie *proud

Nun möchte ich dieses Tool anderen zur Verfügung stellen. Mir ist dabei wichtig, dass diese die Tabelle nur ansehen/filtern und nicht bearbeiten können. Hierzu habe ich die Tabelle entsprechend mit einem Blattschutz versehen. Funktioniert super.

Um den Code jedoch auszuführen, muss der Blattschutz kurzzeitig aufgehoben und anschließend wieder aktivieren werden. Dabei wird die AutoFilter-Funktion deaktiviert...*mad.gif*

Den Blattschutz aktiviere/deaktiviere ich wie folgt:

PHP:

         Private Sub ComboBox1_Change()
Worksheets("Tabelle1").Unprotect Password:="xyz"

ActiveSheet.Range("C2").Value = ComboBox1.Value
Call calc(False, True)

Worksheets("Tabelle1").Protect Password:="xyz"
End Sub


:)

 

HAllo,

Die Worksheet.Protect-Methode hat noch wesentlich mehr Parameter als nur Password:=.
Schau es dir mal in Ruhe an.

Aus der Hilfe:

ransi

 

Hallo ransi,

vielen Dank für deine Rückmeldung. Es hat wie folgt funktioniert:

PHP:

         Worksheets("Tabelle1").Protect Password:="xyz", AllowSorting:=True, AllowFiltering:=True


 

Ich habe die ComboBox nun nach oben, über die Tabelle gesetzt.
Nun funktioniert das Programm einwandfrei. An der Seite gefiel es mir jedoch besser.
Hat jemand eine Idee, woran es liegen könnte? Bzw. wie das Problem gefixt werden kann?