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 ظهرت عندى نفس المشكله بالصوره فهل من مساعده من اخواننا الكرام

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