وائل الاسيوطي

السلام عليكم ورحمه الله وبركاته اناجمعت اغلب اكواد اساتذه المنتدي وعملت بها الملف دا ياتري لو حمايه بالطرق دي فك حمايتها سهل ولا لا انا بتكلم بالنسبه لمبتدي او لواحد هايفكها من خلال الانترنت وليس بخبير وياريت اللي يفك حمايه الملف يعلمني هو عملها ازاي ولو حد منكم اخواني عنده حاجه اضيفها بحيث اني اصعب الموضوع شويه ياريت يقولي New Microsoft Excel Worksheet.rar

سلمت يداك اخي وائل وربنا مايجيب رفد ان شاء الله كان في ملحوظه فعل الحمايه سواء للملف او الشيت وقف علي اي خليه هاتظهر لك ايقونه فك الحمايه سواء في شريط المهام او عند الكليك يمين علي شريط الصفحات تقبل تحياتي

هذا هو الملف اخواني كود الحمايه لاخي ياسر وكود الماكرو لاخي عبدالله باقشير Protect & Unprotect All Sheets YasserKhalil V2.rar

لقد تأ؛كدت من كلمه السر والملف كان يعمل تمام حتي اضفت الكود Option Explicit Sub Auto_Open() kh_wVisible True End Sub Sub Auto_Close() kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub فاعطي رساله الخطأ وغلق الملف تماماولا يريد ان يفتح

الكود بيعطيني هذا الخطأ فما السبب؟ الكود لاخي ياسر ابو البراء

سلمت من كل شر اخي ياسر

اخواني السلام عليكم ورحمه الله وبركاته اريد ان اعرف الفرق بين امتداد xlsm xlsb وفائده كلا من منهم وتنصحوني ان اعمل باي منهم؟

اخي عادل الملف شغال تمام التمام بس انا نقلت الكود لملف تاني عمل حمايه للورقه كلها ومااشتغلش بنفس كفاءه الملف بتاعك ياتتري ايه المشكله

طيب هو ينفع اشيله بكود بحيث انها تتلغي علي الملف دا فقط

سلمت يداك اخي ياسر

السلام عليكم ورحمه الله وبركاته اخواني انا كنت عايز اعرف الرساله خاصه بايه والغيها ازاي

السلام عليكم ورحمه الله وبركاته اخي الاسيوطي سلمت من كل شر وجزاك الله خيرا علي اعمالك القيمه

بارك الله فيك اخي مختار علي فكره انا كنت احسبك زعلت من كلماتي وهزار الصعايده فكنت داخل اليوم خصيصا لاعتذر لك اعتذارا رسميا فوجدت صدرا رحبا لك مني كل تحيه اخي عادل

الجزء الاول كنت محتاج فيه تعطيل امكانيه اضافه صفحات او حذفها او تعديل الاسم او اخفائها الجزء الثاني انا كنت محتاجه يطلب كلمه السر عند الغاء الحمايه مع جزيل الشكر لمساعدتك اخي وائل

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

لما بفتح اي ملف اكسيل وادخل علي الفيجوال بلاقي الملف دا فيه الكود ياتري ايه هو دا وازيله ازاي

جزاك الله خيرا اخي وائل بس هل اضافه تعطيل امكانيه اضافه صفحات او تعديل اسم الصفحه او اخفائها وملحوظه اخري صغيره عند فك الحمايه لم يطلب كلمه السر

اسف اني سأثقل عليك اخي وائل انا بحاول اجربها بتعطي خطأ ممكن ترفها بملف

اخواني الكرام انا كنت اضفت امر لاحد الكواد لالغاء الكليك يمين في شريط الصفحات وبالفعل الغاها ولكنه الغاها علي كل الملفات هل يمكن تعديل الكود ليعمل علي هذا الملف فقط بدون ان تتأثر باقي الملفات Application.CommandBars("Ply").Enabled = false

شاكر مرورك اخي وائل مفيش حاجه تانيه بحيث انه لو المستخدم الغي الحمايه او غير كلمه المرور من الخارج ترجع مره اخري للاعادات الموجوده في الكود من قبل من غير اخفاء اسماء الصفحات

؟هل هناك طريقه لمنع تغيير باسورد حمايه الصفحات في الاكسيل الا من خلال تغيرها في الكود فقط

تم بفضل الله شاكر مساعدتكم اخي وائل واخي عادل وبارك الله فيكم

سلمت من كل شر حاضر اخي مختار حمايه.rar

اخواني الاعزاء المطلوب بالمرفق ان شاء الله شاكر فضلكم تغيير التاريخ.rar

جزيت خيرا اخي ياسر