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

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

Sub ProtectSheetExceptRange() ' Protect ActiveSheet , but allow user edit Range("A1:A4,B1:D1") ' By Mokhtar 11/10/2015 On Error Resume Next ' فى حالة حدوث خطأ تجاهله وانتقل للأمر التالى ' تحديد اسم الزر المشغل للكود فى حالة حماية الشيت النشط With ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame2.TextRange.Characters If .Text = "Protect ActiveSheet Except" Then .Text = "UnProtect ActiveSheet " ' حذف النطاق الاول المسموح بالتعديل فيه فى الشيت ActiveSheet.Protection.AllowEditRanges(1).Delete ' تحديد اسم و مدى النطاق المراد التعديل فيه أثناء حماية الشيت ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=Range("A1:A4,B1:D1") ' فى حالة الرغبة فى حماية النطاق المراد التعديل عليه برقم سرى بخلاف الرقم السرى الخاص بحماية الشيت ' ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=Range("A1:A4,B1:D1"), Password:=123 ' حماية الشيت بدون كلمة سر ActiveSheet.Protect ' حماية الشيت بكلمة سر ' ActiveSheet.Protect Password:=123 ' تعريف المستخدم بالنطاق المسموح بالتعديل فيه With ActiveSheet.Protection.AllowEditRanges.Item(1) MsgBox "ActiveSheet is Protecting" & vbNewLine & "Except Range : " & .Range.Address & vbNewLine & vbNewLine & "Regards ...Mokhtar " End With Else ' اذا لم يكن هذا فان ' فك حماية الشيت المحمى بدون كلمة سر ActiveSheet.Unprotect ' فى حالة فك حماية الشيت المحمى بكلمة سر ' ActiveSheet.Unprotect Password:=123 ' اسم الزر المشغل للكود فى حالة عدم حماية الشيت النشط .Text = "Protect ActiveSheet Except" End If End With End Sub الكود دا طبعا انتوا عارفين انه لاخي مختار الاسيووووووووووووطي فكنت محتاج منك تعديلا بسيطا يااخي مختار الا وهو الملف به اربع صفحات كنت اود ان تكون الحمايه علي الصفحه كامله ماعدا مدي معين قابل للتعديل فيه كل مدي منهم محمي بكلمه سر مختلفه والصفحتين الاخرتين تكون محميتين بس معتمده علي خلايا معينه وليس مدي معين LOCK &UNLOCK تفعيل الحمايه بمجرد فتح الملف واستعاده الحمايه بمجرد غلق الملف كلمات السر لا يمكن تغييرها الامن خلال تغييره في الكود فقط ولا يمكن تغييره من الخارج واعمل حسابك يااخي مختار ليك عندي عزومه حمام بعد كدا

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

المطلوب في الملف المرفق اخواني الكرام New Microsoft Excel Worksheet (2).rar

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

مشكله في الداله count if المشكله في الملف New Microsoft Excel Worksheet (2).rar

القي نظر علي ملف اخي ياسر العربي وقولي رأيك ولنجعله بدايه للالهام http://www.officena.net/ib/topic/64153-تغيير-تاريخ-صلاحيه-ملف/

هههههههههههههه اخي ياسر مش كسل والله ولا حاجه هو جهل فقط لان اعتقدت ان السطرين جديدين كليا لكن لما تمعنت وجدت ان هناك سطر موجود واخر جديد فاضفته وذلك قبل ان اري مشاركتك تقبلوا تحياتي

تم بحمد الله وفضله ثنائيه رائعه من العمل والعلم اخي ياسر واخي مختار زادكم الله من علمه وفضله

اضيفه فين بالضبط اخي ياسر

تمام تم حل المشكله ولكن اصبحت الان مشكله الارتباط بالملف الاصلي التي ذكرها اخي ياسر

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

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

السلام عليكم من اخيك الاسيوطي ياخي مختار الاسيوطي التي افخر انها تضم عباقره مثلك اخي الحبيب عمل رائع يضم لقائمه اعمالك الرائعه .لي طلب اخير ان الصفحه الاولي صفحه sales لاتخرج مع باقي الملفات جزاك الله خيرا

السلام عليكم ورحمه الله وبركاته هذا الملف به الصفحه الولي صفحه بيانات اساسيه التي تدخل بها البيانات فتقسم الي باقي الشيتات فكنت بحاجه لكود بحيث يحفظ كل صفحه من الملف ومعها صفحه الثانيه في ملف منفصل بالاسم الموجود في الخليه C1 والتاريخ الموجود في الخليه A1 من الصفحه الاولي ملحوظه بعد الفصل لابد ان تكون الصفحات غير مرتبطه بالملف الاصلي مع خالص الشكر والتقدير Sales 7 UCP Stk 14-4-2015.rar

للرفع رفع الله قدركم

للرفع رفع الله قدركم

السلام عليكم ورحمه الله وبركاته هذا هو نفس لكن بعد وجدت نفس الفورم لاستاذنا الكبير عبدالله باقشيرلكن بدون طباعه فقلل هذا الاخطاء التي كانت موجوده 1-عند حذف سجل يتم اخفاء السجل من الصفحه وليس الحذف وطبعا هي هاتظهر في الفورم عادي 2- عمل زر اخر يمكن من خلاله اظهار السجلات المخفيه مره اخري 3-لو السجل مخفي تظهر في خانه activity يظهر not active ولو سجل مرئي يظهر ACTIVE 4- عند ادخال سجل جديد يضاف تاريخ الاضافه في خانه التاريخ لجهلي بعالم الاكواد فانا لا اعلم اذا كانت الطلبات صعبه ام سهله لكن اذا صعبه فممكن ناخدها حاجه حاجه وزادكم الله من علمه form.rar

للرفع رفع الله قدركم

الفورم لاستاذنا الكبير عبدالله باقشير كنت احاول اجراء بعض التعديلات وفشلت لاكثر من مره فكنت اود المساعده الكود علي وضعه الحالي يعطي خطأاود تصيحهووكنت عدلت عمل زر حذف السجل ليخفي الصف فقط بدل حذفه تماما فكنت اود عمل كود لزر استرجاع الصفوف المخفيه وعند اخفاء السجل تتحول حاله من active الي not active في الفورم وعند اضافه سجل جديد يضاف تاريخ الاضافه في خانه التاريخ اتوماتيك وجزاكم الله خيرا form.rar

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

وهذان هما عز الطلب اخي الاسيوطي الحبيب مختار

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

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

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