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

[ابومريم]

السلام عليكم 

مشرفين واعضاء

عندي سوال كيف احمي شيت من ملف اكسل من الحذف

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

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

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

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