منع المستخدم من إضافة أو حذف صف

[أبو قاسم]

السلام عليكم 

محتاج كود أو طريقة منع المستخدم من إدراج صف أو حذف صف 

ولكم كل الشكر والتقدير 

[سليم حاصبيا]

جرب هذا الكود  (يمكنك اختيار عدد الصفوف من الكود/في المثال 10)

الباسورد " Salim" يمكنك تغييره ايضاً من الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row <= 10 Then
       
        ActiveSheet.Protect Password:="Salim", _
        AllowInsertingRows:=False, AllowDeletingRows:=False
    Else
        ActiveSheet.Unprotect Password:="Salim"
    End If
End Sub

 

[أبو قاسم]

2 دقائق مضت, سليم حاصبيا said:

جرب هذا الكود  (يمكنك اختيار عدد الصفوف من الكود/في المثال 10)

الباسورد " Salim" يمكنك تغييره ايضاً من الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row <= 10 Then
       
        ActiveSheet.Protect Password:="Salim", _
        AllowInsertingRows:=False, AllowDeletingRows:=False
    Else
        ActiveSheet.Unprotect Password:="Salim"
    End If
End Sub

 

شكرا لك وجزاك الله خير