اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

جرب هذا الكود  (يمكنك اختيار عدد الصفوف من الكود/في المثال 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

 

  • Like 1
رابط هذا التعليق
شارك

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

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information