Макрос для защиты ячеек по наличии в них данных

[macomics]

Ждите ответа. Время ожидания 10 лет.

[Stabilitron]

Супер ответ, спасибо...

[macomics]

Просто не надо оживлять мертвецов

[Serge 007]

Сообщение от Stabilitron

...если мне надо только в двух или трёх определенных ячейках блокировка после ввода данных?..

В таком случае укажите эти ячейки в макросе

Тут подробно:Прошу помочь разобраться в макросе с Target и Intersect

[MikeVol]

Stabilitron, , Доброго времени суток.
Как вариант:

Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If
Private Const VK_LEFT = &H25
Private Const VK_RIGHT = &H27

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If GetAsyncKeyState(VK_LEFT) Then

        If Not Intersect(Target, Range("B2,C3,D4")) Is Nothing Then
            ActiveCell.Offset(0, -1).Select
            Exit Sub
        End If

    ElseIf GetAsyncKeyState(VK_RIGHT) Then

        If Not Intersect(Target, Range("B2,C3,D4")) Is Nothing Then
            ActiveCell.Offset(0, 1).Select
            Exit Sub
        End If

    End If

    With Target

        If Not Intersect(Target, Range("B2,C3,D4")) Is Nothing Then
            If Target.Cells.Count > 1 Then Exit Sub
            ActiveSheet.Unprotect ("ВашПароль")
            Target.Locked = Target = "!"
            ActiveSheet.Protect ("ВашПароль")
        End If

    End With

End Sub

Сами можете указать ячейки вот тут

Range("B2,C3,D4")

Удачи вам!

[macomics]

Сообщение от MikeVol

macomics, Доброго времени суток.

И вам того же, только мне этого не нужно. Не я просил этот макрос.

[MikeVol]

macomics, Упс, Извините. Промахнулся с именем.