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

[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