1 Commandbutton zum sperren und entsperren
12.03.2015 08:51:40
Josef
habe wieder mal ein Problem und ich hoffe das ihr mir wie so oft schon weiterhelfen könnt.
Per Commandbutton soll folgendes passieren:
- Blattschutz deaktivieren
- Filter setzen
- Blattschutz aktivieren
Bei erneutem drücken auf den gleich Commandbutton soll folgendes passieren:
- Blattschutz deaktivieren
- Filter lösen
- Blattschutz aktvieren
Aktuell habe ich für diese Aktion 2 Buttons die wie folgt aussehen:
Commandbutton 1 (Filter setzen)
'If Worksheets("Tabelle4").ProtectContents Then
ActiveSheet.Unprotect Password:=Range("a1")
ActiveSheet.PivotTables("PivotTable2").PivotFields("Abwertung nach NWP"). _
PivotFilters.Add Type:=xlCaptionIsGreaterThan, Value1:="0"
ActiveSheet.PivotTables("PivotTable2").PivotFields("Menge in Komp."). _
PivotFilters.Add Type:=xlCaptionIsLessThan, Value1:="0,00000000001"
ActiveSheet.Protect Password:=Range("A1"), UserInterfaceOnly:=True
End If
End Sub'
Commandbutton 2 (Filter lösen)
'If Worksheets("Tabelle4").ProtectContents Then
ActiveSheet.Unprotect Password:=Range("a1")
ActiveSheet.PivotTables("PivotTable2").PivotFields("Abwertung nach NWP"). _
ClearLabelFilters
ActiveSheet.PivotTables("PivotTable2").PivotFields("Menge in Komp."). _
ClearLabelFilters
ActiveSheet.Protect Password:=Range("A1"), UserInterfaceOnly:=True
End If
End Sub'
Danke.