Отмена действия при перемещении ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Отмена действия при перемещении ячеек (Макросы/Sub)

Tavlar

Дата: Среда, 30.09.2020, 14:15 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 63

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Здравствуйте
[vba]

Код

Option Explicit
Public sValue As String, z As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim y, xx As Long, a, b As String
y = Target.Column
If y > 64 Then Exit Sub
a = Cells(2, z).Value
b = Cells(2, y).Value
If y <> z Then
xx = MsgBox("Переместить " & a & " в " & b, vbYesNo)
If xx = 6 Then: Exit Sub
If xx = 7 Then: Application.SendKeys ("^z")
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
z = Target.Column
End Sub

[/vba]
Задача сделать так, чтобы при перемещении ячейки в другую колонну, выводилось сообщение с запросом, если нажать да, то макрос закрывается, если нажать нет, нужно сделать отмену действия, т.е. вернуть ячейку на прежнее место. Примерно что то похожее написал. Но когда срабатывает команда Application.SendKeys ("^z"), макрос заново срабатывает на изменение. Пытался с помощью команды Application.EnableEvents = False включить и выключить , но не получается. Помогите, пожалуйста, решить задачу