ich benötige in einem mit Blattschutz vesehenen Arbeitsblatt, das ich zum Bearbeiten für mehrere Nutzer freigegeben habe, die Funktion zum Spalten ausblenden.
In nicht freigegebener Arbeitsmappe funktioniert das so:
Sub Radtypen()
'---Tabelle "Übersicht" aktivieren---
Sheets("Übersicht").Activate
ActiveSheet.Unprotect Password:=""
'---Trotz Blattschutz AUS- und EINBLENDEN zulassen---
ActiveSheet.Protect userInterfaceOnly:=True
'---Trotz Blattschutz AUTOFILTER zulassen---
ActiveSheet.EnableAutoFilter = True
'---Bereiche EINBLENDEN---
Columns("A:IV").EntireColumn.Hidden = False
'---Zelle A7 LÖSCHEN---
Cells(1, 7).ClearContents
'---In Zelle A1 "Radtypen" schreiben---
Range("A1").Value = "Radtypen"
'---Zellen AUSBLENDEN---
Columns("D:F").EntireColumn.Hidden = True
Columns("I:I").EntireColumn.Hidden = True
Columns("K:AG").EntireColumn.Hidden = True
Columns("AI:AN").EntireColumn.Hidden = True
Columns("BE:DL").EntireColumn.Hidden = True
'---AUTOFILTER aufrufen---
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
'---FILTERN in Spalte "34" nach Kriterium "4"---
Selection.AutoFilter Field:=34, Criteria1:="=4"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=""
End Sub
Hat vielleicht jemand eine Idee, wie man das umgehen kann?
Gruß Lotte
P.S. Das ganze benötige ich außerdem noch für den Autofilter