المصباحي

اللهم أدخلها فسيح جناتك اللهم ارحمها واغفر لها . اللهم اغفر لها وارحمها والهمها الإجابة عند السؤال . اللهم ثبتها بالقول الصادق في الآخرة . اللهم اغسلها بالماء والثلج والبرد . ونقها من الخطايا كما ينقى الثوب الأبيض من الدنس. اللهم ادخلها جناتك يارحمن يارحيم عمل رائع وبارك الله فيك

مشكور ومجهود ممتاز وزادك الله من علمه اخي مرعى .

الأستاذ ضاحي الغريب حفظك الله اشكرك كثير على شرحك الأكثر من رائع اثابك الله من واسع فضله وجعله في ميزان حسناتك فلقد افدتنا كثير من شرحك وجزاااااااااااك الله كل خير على كل حرف .............

السلام عليكم الحمد الله تم الوصول الى حل وتعديل برنامج صلاحيات المستخدمين الخاص بي الاستاذ إبراهيم محمد بحيت اصبح يعمل على اوفيس 2013 برنامج صلاحيات المستخدمين اصدار 3 2013).rar

السلام عليكم الرجاء الوصول الى حل بخصوص مشكلة نظام bit-32 bit-64 راجعت المنتدى ولا يوجد اي موضوع بهذا الخصوص متال كلما حاولت فتح برنامج صلاحيات المستخدمين الخاص بي الاستاذ إبراهيم محمد على اوفيس 2013 تظهر لي هذه الرسالة : The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute. بارك الله فيكم و في علمكم و ابداعاتكم

اخي راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=45168&hl=%2B%D9%85%D9%86%D8%B9+%2B%D8%A7%D9%84%D8%AA%D8%B9%D8%AF%D9%8A%D9%84+%2B%D8%AE%D9%84%D9%8A%D8%A9+%2B%D8%A8%D9%87%D8%A7+%2B%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA

جزاك الله خيرعلى هذا الكتاب

مشكور وجزاك الله الف خير استاذ طارق على المساعدة بس في التحويلات هناك تضارب في المعادة تقوم بي اضافة القيمة بعد الضرب و نتائج غير صحيحة توصلت الى حل و قمت بي الغاء عملية القسمة والطرح واستخدام عملية الضرب فقط بي الجزء الاول من الكود =D7*VLOOKUP(B7,$Q$4:$S$6,2,0) ومشكور مرة اخرى وزادك الله من علمه .

السلام عليكم اخي واستاذي طارق محمود في البداية كل عام وانت والاسرة الكريمة بي الف خير اعاده الله علينا وعليكم باليمين والبركات الله ينور طريقك نعم هذا ما اريد ولكن انا لم استخدم الملف هذا الملف تم تحميله من المنتدي استخدم اوفيس 2007 ولاتوجد مشكلة اذا تم استخدام دالة sumifs وعلى حسب خبرتك بما تنصحني استخدم من حيت السرعة والكفاءة وهل المعادلة التى تم استخدامها تعمل على اوفيس 2010 وما فوق علما بي اني اعمل المنظومة مشاركة (شير) حتي يتم استخدامها على اكتر من جهاز واكتر من اصدار اوفيس وفضلا ليس امرا الرجاء اضافة المعادلات و تعديل الملف المرفق وجزاااك الله خير كشف حساب فتره -2014 .rar

اولا اشكر القائيمين على المنتدي والذي في الحقيقة استدفت منه ومن اعضاءه الكرام تانيا ارجو مساعدتي في معادلة ادخال وترحيل بيانات مع الجمع بين تاريخين من تاريخ الى تاريخ من اوراق متعددة بحيث يدخل البيات في تاريخ الورقة ومن تم يتم الجمع في الكشف . ومرفق ورقة العمل مع الامتنان والدعوات للسادة الكرام. كشف حساب فتره -2014 اوفيسنا.rar

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

عمل اكتر من رائع مشكوووور

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

للرفع

مشكور اخي يوسف على المعلومة بس ولو تكرمت علي بمثال بسيط وجزاك الله كل خير

ارجو الرد

السلام عليكم ورحمة الله وبركاته مرحبا الأساتذة الكرام واعضاء منتدى اوفسينا الذين تتعلمت منه الكثير لدي استفسار جعله الله فى ميزان حسناتك بخصوص كود اخي الاستاذ الفاضل العيدروس جزاه الله الف خير وهو الأتي منع التعديل فى اى خلية بها بيانات Public Sub Ali_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P On Error Resume Next With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True With Sh.Cells .SpecialCells(2).Locked = True .SpecialCells(-4123).Locked = True End With If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next End Sub الكود شغال مية بالمية بس المشكلة هي عند عمل فورم وبه تكست بوكس لإدخال البيانات تظهر رسالة خطاء لان الخلية مغلقة اريد معرفة كيف تفعيل الكود في التكست بوكس وبارك الله فيكم وجزاكم الله خيرا كثيرا وانا فى انتظار رد test.rar