اذهب الي المحتوي
أوفيسنا

حماية ملف الشيت من الحذف


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

  • أفضل إجابة

حرب هذا الماكرو

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'++++++++++++++++++++++++++++++
' Replace  Salim  with the Needed Sheet's Name
 If Sh.Name = "Salim" Then
 '+++++++++++++++++++++++++++++++++
    ThisWorkbook.Protect
 Else
    ThisWorkbook.Unprotect
 End If
End Sub

الملف للتجربة مرفق

 

No_delete_special_sheet.xlsm

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

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information