ich habe ein Blatt geschützt, möchte aber noch sortieren können.
Bisher habe ich es mit
Private Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub
sowie
Sub Sortieren()
ActiveSheet.Unprotect "123"
Range("A1").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect "123"
End Sub
probiert. Funktioniert ja auch (wenn die Sortierkriterien vorher
festgelegt werden).
Nur möchte ich die Sortierkriterien nicht vorher festlegen sondern
den Menuepunkt "Daten>sortieren" aufrufen, Sortierkriterien wählen und nach der Sortierung erst wieder den Blattschutz setzen.
Geht das überhaupt ?
Gruß
Jutta