عدم الكتابة في خلية

[جورج13]

السلام عليكم اجمعين :

كيف يمكنني بعدم الكتابة او التغير في خانة باكسل

شكرا

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ك

[هانى محمد]

وعليكم السلام-ارفع من فضلك ملف موضح به المطلوب بكل دقة تجنباً لإهدار الوقت !!!

أو يمكنك مشاهدة هذه الفيديو بما انك لم تقم برفع ملف

 

 

[عبدالفتاح في بي اكسيل]

اثراء  للموضوع   بعدم  عمل  حماية 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TT As Range
Set TT = Range("A1")
 
Set TT = Intersect(TT, Target)
If Not TT Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
    MsgBox " .ليس لديك صلاحية بتغيير قيمة الخلية "
End If
End Sub

منع تغيير قيمة خلية .xlsm