كيف أمنع حذف القيم والصفوف والأعمدة

[قطان]

أخواني الأعزاء

أريد منع المستخدم لأحد البرامج على الأكسيل من الحذف

بكافة أشكاله ( صف - عمود - خلية - قيمة )

مع العلم أن استخدام حماية الورقة أوقف عمل بعض الأكواد

أرجو الإفادة من خبرائنا الكرام

والسلام ختام

[قطان]

للرفع

[قطان]

[ابوالزوز]

السلام عليكم ،،

أخي العزيز قطان ضع الكود التالي في حدث Workbook_Open

'For Each MySheet In ActiveWorkbook.Sheets
'    MyPass = "123"
'    MySheet.Protect _
'        Password:=MyPass, _
'        DrawingObjects:=True, _
'        Contents:=True, _
'        Scenarios:=True, _
'        UserInterfaceOnly:=True
'Next MySheet

هذا الكود سيجعل جميع أوراق الملف محمية تلقائياً دون أن يتأثر عمل الأكواد الأخرى

مع العلم أن كلمة سر فك الحماية هي كما مذكورة في الكود (123)

تم تعديل ديسمبر 30, 2008 بواسطه abuzzouz

[عادل حنفي]

السلام عليكم

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

مع ملاحظة حذف الكومه [ ' ] من بداية كل سطر من اسطر الكود

كما يجب التنبيه ان الاكواد لن تعمل الا بعد فك الحماية

تحياتي

تم تعديل ديسمبر 30, 2008 بواسطه aah_aah2008

[قطان]

مشكور أخي abuzzouz

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

لكن كما قال أخي aah_aah2008 لم تعمل الأكواد

وطبعا بسبب ملفي الذي لا تعرفه وليس قصر في الكود

أما ما هو مطلوب فمن رد أخي aah_aah2008 أحسست أنه مستحيل

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أرجو بيان الأمر من خبراء الأكسيل

والسلام ختام

[mhareek]

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

اخى الحبييب استعمل هذا الكود وسوف تعمل معة الاكواد

بالتوفيق والله المستعان

Sub Rectangle99_Click()
MyPassword = "123"
Sheets("eny").Protect _
Password:=MyPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True

End Sub

انا استعملة والاكود تعمل عادى

تم تعديل ديسمبر 31, 2008 بواسطه mhareek

[قطان]

أخي العزيز mhareek

جربت الكود ولم يعمل

فما السبب برأيك ؟؟؟؟

علما بأني قمت بنسخه من الموقع نسخا !!!!!!!!!!!

والسلام ختام