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

[حسين مامون]

السلام عليكم ورحمة الله

الاخوة الافاضل 

فضلا اريد كود VBA لمنع حدف اوراق العمل في ملف اكسيل

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

 

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

دائماً وأبداً يجب ارفاق ملف للعمل عليه

حيث انك لم تفعل هذا اليك هذا النموذج عما تريد

الكود

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim arr, x
'اكتب في هذه المصفوفة اسماء الشيات التي يمنع حذفها
arr = Array("Sheet2", "Sheet4", "Sheet6")

x = IsError(Application.Match(ActiveSheet.Name, arr, 0))
If Not x Then
 ThisWorkbook.Protect
 Else
 ThisWorkbook.Unprotect
End If
End Sub

الملف مرفق

 

PREVENT_DEL_SHEETS.xlsm

[حسين مامون]

السلام عليكم

اولا اعتدر عن ارفاق ملف العمل

اشكرك استادي سليم  تم المطلوب بنجاح 

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