Отмена предыдущей отметки списка при новом выборе

[DimS]

Помогите! Честно работающий в Excel макрос (от planetaexcel.ru) отказался трудится в LO7.
Смысл его работы: в столбце А ставится метка V (далее формулами заполняются формы, сохранение и печать ),
потом следующий выбор меткой V, а предыдущая метка удаляется автоматически...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Long
    Dim str As String

    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        str = Target.Value
        Application.EnableEvents = False
        r = Cells(Rows.Count, 2).End(xlUp).Row
        Range("A2:A" & r).ClearContents
        Target.Value = str
    End If
    Application.EnableEvents = True
End Sub
 
Понимаю, что нужно смотреть в сторону Listener и далее...

[Bigor]

Добрый день. Приведенный выше макрос работает в Version: 7.0.1.2
Build ID: 7cbcfc562f6eb6708b5ff7d7397325de9e764452
CPU threads: 4; OS: Linux 5.3; UI render: default; VCL: kf5
Locale: ru-RU (ru_RU.UTF-8); ИП: ru-RU
Calc: threaded

[DimS]

если сохранить файл XLS в формате LO тоже работает? у меня нет...

[Bigor]

Если сохранить в ods, то работает вот так:

Код:

Option VBASupport 1
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Long
    Dim str As String
    If Target.CellFormatRanges.Count > 1 Then Exit Sub
    If Target.CellAddress.Column = 1 Then
        str = Target.Value
        Application.EnableEvents = False
        r = Cells(Rows.Count, 2).End(xlUp).Row
        Range("A2:A" & r).ClearContents
        Target.Value = str
    End If
    Application.EnableEvents = True
End Sub

[DimS]

тёмный я! ничего не выходит...Ошибка! К какому событию макрос прилепить нужно? Да, и файл нужен не мне, а новый LO7 100% там не стоит, за этим никто не следит.

[Bigor]

Вот файл с макросом проверяйте на остальных версиях. Макрос перенес в библиотеку стандарт.
Привязан к событию листа - изменение данных

[DimS]

Действительно работает!
Только забавный глюк
нет перехода по Enter на следующую ячейку вниз в столбце A