Sortierung auf geschütztem Blatt
04.07.2014 09:28:44
Erik
mit folgendem Makro schütze ich ein Tabellenblatt:
Public Sub ProtectSheets(Optional pSheetName As String = "")
Dim ws As Worksheet
If pSheetName = "" Then
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
With ws
.Protect _
UserInterfaceOnly:=True, _
AllowSorting:=True, _
AllowFiltering:=True
.EnableAutoFilter = True
.EnableOutlining = True
.EnableSelection = xlUnlockedCells
End With
Next ws
Application.ScreenUpdating = True
Else
With Sheets(pSheetName)
.Protect _
UserInterfaceOnly:=True, _
AllowSorting:=True, _
AllowFiltering:=True
.EnableAutoFilter = True
.EnableOutlining = True
.EnableSelection = xlUnlockedCells
End With
End If
End Sub
Wobei pSheetname ein optionaler Parameter ist. In meiner Anwendung kann das ein vorgegebener Name oder ActiveSheet.Name o.a. sein.
Auf meinem Tabellenblatt habe ich einen Autofilter in einem Rangebereich "B5:G154". Alle andern Zellen in diesem Blatt werden durch o.g. Makro gesperrt.
Mein Problem ist, dass der Autofilter funktioniert, jedoch nicht das Sortieren.
Die Überschriften des Rangebereiches, in denen sich auch die Autofilterpfeile befinden, habe ich schon entsperrt, aber es tritt keine Besserung ein.
Es kommt die klassische Meldung, dass ich den Blattschutz aufheben soll... :(
Kann mir jemand weiterhelfen? Ich bin für jeden Hinweis dankbar - also auch den Anfang eines roten Fadens.
Gruß
Erik