Mohamed Ezz

مستر على انى اعجز عن الشكر لك فيما تقدمه لى من مساعدة انى آمل من الله سبحانه و تعالى ان يكون ذلك فى ميزان حسناتك بإذن الله . و لك منى جزيل الشكر تحياتى Mr. ali mohamed ali

كيفية عمل المعادلة VLOOKUP هذه فى VBA لغة البرمجة (IF(B12="","",VLOOKUP(B12,Sheet!A:B,2)= VLookUP.xls

أنا سعيد جدا بمعرفتك و بصراحة انا بشكرك يا مستر على كثيرا على ما تقدمه من مساعدات للآخرين و اتمنى من الله ان يوفقك فى حياتك بكل خير و سعادة

برجاء المساعدة فى ايجاد حل طريقة الجمع بواسطة اف الشرطية ؟؟؟ Summary Report.xlsx

مشكور اخى mennad sofiane لك منى الف تحية

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

تحياتى لكل الأخوه الأفاضل !!! كيفية حماية الخلية بعد الكتابة فيها على ان تكون بعد عملية حفظ الملف حاولت كثيرا و لكنى لم انجح فيه و الكود الذى حاولت معه و لكنى لم انجح معه برجاء المساعدة !!! Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Ali_Prodc End Sub Private Sub Workbook_Open() End Sub Public Sub Ali_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P 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 For Each Rng In Sh.UsedRange If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True Next If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next 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 Purchasing Analysis-Test.xlsm

Purchasing Analysis-Test.xlsm مرفق الملف للأطلاع و لم تتم حتى الان معرفة السبب لعدم تشغيل الكود فى الملف Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Ali_Prodc End Sub Private Sub Workbook_Open() End Sub Public Sub Ali_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P 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 For Each Rng In Sh.UsedRange If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True Next If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next 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 برجاء المساعدة !!!

مشكور اخى يوسف السيد و لكن جربت بالفعل كل المحاولات و لا اصل الى حل للمشكلة و الكود لا يعمل معى بالمطلوب و لا اعرف السبب حتى الان ؟؟؟

سلمت يداك اخى ali mohamed ali و لكن المشكلة انى اريد الحماية بعد الحفظ و ليس بعد ادخال البيانات مباشرة حتى يستطيع المستخدم التعديل فى حالة الخطأ و بعد حفظ الملف لا يستطيع التعديل إلا بالباسورد و لكى من اجمل كلمات الشكر و التحية ...

??? How To Auto lock cells after data entry when file saved كيفية قفل الخلايا فى اكسيل 2007 تلقائيًا بعد إدخال البيانات عند حفظ الملف ؟؟؟

السلام عليكم هل من مساعدة فى ايجاد الحل ؟؟؟

ظهرت عندى نفس المشكله بالصوره فهل من مساعده من اخواننا الكرام

برجاء المساعدة فى الحل لهذه المشكلة أبلغ فريق الموقع عن مخالفة قام بنشر January 11, 2016 ظهرت عندى نفس المشكله بالصوره فهل من مساعده من اخواننا الكرام

اشكرك جزيلا مستر / سليم حاصبيا و لكن هل يمكن للحماية ان تكون بعد الحفظ ؟؟؟

أحبائى الكرام كيف يمكن حماية خلية أو عدة خلايا ( تلقائياً ) بعد الكتابة فيها.. بحيث يمكن الكتابة فيها لمرة واحدة ، وكذلك لا يمكن تغييرها الا بعد فك الحمايه (( وذلك لحفظ السجلات من التغيير )) وشكـــــراً

أشكر كل من ساهم فى ايجاد الحل و خصوصا الاستاذ / زيزو العجوز و الاستاذ / ali mohamed ali و تم الوصول للمعادلة الصحيحة {((MIN(IF(($E$6:$BC$6="BY QTY")*($E$10:$BC$10<>0),$E$10:$BC$10=} و بعد فضل الله سبحانه و تعالى و مساعدة الاستاذ كارولس ابراهيم و شكر خاص الى الاستاذ / ali mohamed ali لوصوله لنفس النتيجة مع تحياتى *** Consumption New.xlsx

عزيزى و استاذى الكريم زيزو العجوز أنا بالفعل جربت المعادلة التى ارسلتها لى و لكنها لم تنجح معى فهل يوجد معادلة أو حل آخر ؟؟؟ و لك جزيل الشكر

أرجو من السادة الكرام المساعدة فى ايجاد حل للمعادلة المفرقة فى شيت الاكسيل لإيجاد اصغر رقم فى عدة خلايا متفرقة مرفق ملف به مكان المعادلة و لكم جزيل الشكر Consumption.xlsx

برجاء من احبائى الاعزاء سرعة الرد فى ايجاد الحل و لكم جزيل الشكر مع وافر تحياتى

أعزك الله استاذ ali mohamed ali و لكن المشكلة ان الخلايا فى الملف المرسل غير مجمعة و لكنها خلايا متفرقة و بينها معادلات و ارقم اخر و لذلك لا تستطيع الدالة ايجاد الحل المطلوب مرسل الملف و به المعادلة المطلوبة و اشكر كل من ساهم فى المساعدة و لكم جزيل الشكر Consumption.xlsx

اشكر السادة الأفاضل على الرد و لكن المشكلة فى ان الخلايا المتفرقة داخل دالة IF الموجودة داخل دالة MIN و لا استطيع التعمل معاها Consumption.xlsx

كود ايجاد اصغر رقم فى عدة خلايا متفرقة

أشكرك كثيرا كثيرا --- الموضوع انها تعمل معى فى Office 2007 و office 2013 فى العمل و نظام العمل لا يسمح لى بأى تعديلات فى أنظمة العمل