عدم پر شدن یک سلول بدون قفل کردن شیت در اکسل

[ali.b]

با سلام
با این کد میتونید بدون اینکه شیت رو protect کنین سلولتون قفل بشه و نتونید متن دو تغییر بدین

Private Sub Worksheet_Change(ByVal Target As Excel.Range)


  If Target.Address <> "$A$1" Then Exit Sub


   Application.EnableEvents = False

    Application.Undo


  Application.EnableEvents = True


End Sub

[ali.b]

این هم با پیغام

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
MsgBox "Sorry, cell " & Target.Address & " is off limits.", 16, "Hey, leave me alone!!"
End Sub