Sheet.Protect wird nicht ausgeführt
KlausF
allen ein Frohes Neues Jahr.
Habe hier ein merkwürdiges Problem.
https://www.herber.de/bbs/user/78175.xls
Über Worksheet_BeforeDoubleClick wird ein definierter Bereich mit Doppelklick auf
die Spaltenköpfe in Zeile 3 sortiert. Das klappt alles sehr gut. Dazu wird am Anfang
Sheet.Unprotect aufgerufen und am Ende das Blatt wieder geschützt. Aber:
Das Makro führt den Schutz-Befehl nicht mehr aus. Auch die letzte Zeile
Range("A1").Select wird nicht mehr ausgeführt. Warum nur?
Danke für Antworten
Klaus
Option Explicit
Dim lngC As Long, blnOrder As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Row 3 Or Target.Column > 40 Then Exit Sub '(40 = AN)
'SORTIEREN NACH SPALTENKOPF:
'_____________________________________________________
Cancel = True
If Target.Column = lngC Then
blnOrder = IIf(blnOrder = 0, -1, 0)
Else
lngC = Target.Column
blnOrder = -1
End If
Dim LAST As Long
LAST = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If LAST