Klick dann "X" - Tipp von Hajo

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column < 11 And Target.Row > 2 Then
'        ActiveSheet.Unprotect
Cancel = True
With Range("H" & Target.Row & ":J" & Target.Row)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
With Target
.Borders(xlDiagonalDown).LineStyle = xlContinuous
.Borders(xlDiagonalDown).Weight = xlThick
.Borders(xlDiagonalUp).LineStyle = xlContinuous
.Borders(xlDiagonalUp).Weight = xlThick
End With
'        ActiveSheet.Protect
End If
End Sub