حسين مامون قام بنشر أغسطس 12, 2019 مشاركة قام بنشر أغسطس 12, 2019 السلام عليكم ورحمة الله الاخوة الافاضل فضلا اريد كود VBA لمنع حدف اوراق العمل في ملف اكسيل جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أغسطس 13, 2019 أفضل إجابة مشاركة قام بنشر أغسطس 13, 2019 دائماً وأبداً يجب ارفاق ملف للعمل عليه حيث انك لم تفعل هذا اليك هذا النموذج عما تريد الكود 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 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أغسطس 13, 2019 الكاتب مشاركة قام بنشر أغسطس 13, 2019 السلام عليكم اولا اعتدر عن ارفاق ملف العمل اشكرك استادي سليم تم المطلوب بنجاح جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان