الشيباني1

اخواني الاعزاء تحية طيبه في المرفق زر لاخفاء الورقه 1 وآخر لاظهارها بباسوورد وهو حل جاد به ابطال المنتدى الاعزاء ما اريده هو الغاء (اظهار)من تنسيق لأن وجوده يلغي فائدة الباسوورد (الذي هو 123 )مع الامتنان

استاذنا العزيز اشكرك جدا على ما تجود به وطلبي هو ان تشمل الحماية مديات لا تشابه ما تضمنته الورقة الاولى ( اي ان المديات المحميه ليست متشابهه في كافة الاوراق ) كأن تكون في (J5:l30,m5:o50) وهكذا ، هل يتطلب الموضوع مثالا جديدا ارفقه مع الامتنان

استاذنا الكريم تحية طيبه دعت الضرورة لتنفيذ الاكواد الرائعه على عدة اوراق ضمن الملف ما الذي يجب تعديله للوصول الى الغاية المطلوبه مع الامتنان

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

اخواني الاعزاء تحية طيبه ارجو المساعده فيما جاء بالمرفق مع الامتنان Book1.zip

استاذنا العزيز اشكرك وادامك الرحمن لنا منقذا

اخواني الاعزاء تحية طيبه في المرفق طريقة حماية رائعه ارجو المساعده في عمل زر لتفعيل الماكرو وآخر للالغاء مع الامتنان Book10.zip

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

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

اخي العزيز ( ولد المجرب ) تحية طيبه اشكرك على ايضاحك الذي تضمنته المشاركه (14) اعلاه متسائلا" عن امكانية عمل زرين احدهما لتفعيل الكود والثاني لالغاء التفعيل عند الحاجة الى ذلك مع تقديري شكري

اخواني الاعزاء احييكم واتمنى لكم عاما" سعيدا" ملؤه السعادة والازدهار ملاحظة بسيطه اتمنى ان تجد لها مكانا" ضمن العمل الرائع هذا وهي ان يكون مبلغ المدفوعات في صفحة(invoice)يختص بالقائمة المنشاة ككل لا يختص بمادة محدده لان التسديد يكون لمجمل مبلغ القائمه وليس لجزء منها مع تقديري واحترامي للجميع

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

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

اخواني الاعزاء تحية طيبه وجدت في احد المنتديات الاجنبيه الكود الرائع الموضح ادناه والذي يقوم باخفاء المعادلات واظهارها وحين قمت بتطبيقه على بعض الملفات نجح في اخفاء بعض معادلاتها وظهرت في ملفات اخرى رسالة تتضمن الرقم (400) فقط ، انا بحاجة ماسة لهذا الكود كيف يمكن معالجة الخلل وماذا تعني الرساله مع امتناني وشكري . Private Sub CommandButton1_Click() Call Updater End Sub Sub HideFormulas() Const NamePrefix As String = "Formula_" Dim myColl As New Collection Dim oneCell As Range, oneName As Name Dim nameFormula As String Dim nameCount As Long Dim workingRange As Range Dim TheSheet As Worksheet Set TheSheet = ActiveSheet Call UnhideSheetFormulas(TheSheet) With TheSheet If Not (.Cells.SpecialCells(xlCellTypeFormulas) Is Nothing) Then For Each oneCell In .Cells.SpecialCells(xlCellTypeFormulas) .Parent.Names.Add Name:="temp", RefersToR1C1:=oneCell.FormulaR1C1 oneCell.FormulaR1C1 = Names("temp").RefersToR1C1 Next oneCell .Parent.Names("temp").delete For Each oneCell In .Cells.SpecialCells(xlCellTypeFormulas) nameFormula = oneCell.FormulaR1C1 For Each oneName In TheSheet.Names If oneName.RefersToR1C1 = nameFormula Then oneCell.FormulaR1C1 = "=" & Mid(oneName.Name, InStr(oneName.Name, "!") + 1) GoTo NextCell End If Next oneName nameCount = nameCount + 1 Set oneName = .Names.Add(Name:=NamePrefix & nameCount, RefersToR1C1:=nameFormula) oneCell.FormulaR1C1 = "=" & Mid(oneName.Name, InStr(oneName.Name, "!") + 1) oneName.Visible = False NextCell: Next oneCell End If End With End Sub Sub ShowAllNames() Dim oneName As Name For Each oneName In ActiveSheet.Parent.Names oneName.Visible = True Next oneName End Sub Sub UnHideFormulas() UnhideSheetFormulas ActiveSheet End Sub Private Sub UnhideSheetFormulas(TheSheet As Worksheet) Dim oneCell As Range, oneName As Name With TheSheet On Error Resume Next For Each oneCell In .Cells.SpecialCells(xlCellTypeFormulas) oneCell.FormulaR1C1 = .Names(Mid(oneCell.FormulaR1C1, 2)).RefersToR1C1 Next oneCell On Error GoTo 0 For Each oneName In .Names If oneName.Name Like "*" & NamePrefix & "*" Then oneName.delete End If Next oneName End With End Sub

اشكرك استاذنا العزيز وادامك الرحمن لنا سندا

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

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

استاذنا العزيز تحية طيبه جاد الاستاد طارق في الملف المرفق بحل رائع لحفظ ورقة عمل في مسار محدد ما ارجوه هو حفظ المدى الموضح اعلاه فقط ( اي القائمه بمفردها ) شاكرا" جهودكم مع الامتنان 4.zip

Dear sir, i hope it is not difficult for our experts,many thanks

أخواني الاعزاء تحية طيبه ارجو التفضل بتعديل الكود ادناه ليحفظ المدى (b2:j42)من الورقة ( الرئيسيه )في الملف الموضح فيه بدلا من حفظ الورقة باكملها . مع جزيل شكري وامتناني . Sub save_file() ' ActiveWorkbook.SaveAs Filename:="F:\Invoices\" & [i6].Value & ".xls" End Sub

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

اخي العزيز اشكرك وادامك الرحمن لنا مرجعا حل رائع جزاك الله عنه كل خير

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

اخواني الاعزاء ترى الى متى تبقى قاعدتي وحيدة فريده لم يتقرب اليها حتى خبراؤنا الذين لا اظنها عصية عليهم، املي كبير بالحصول على الجزء اليسير من الطلبات تحياتي

أخواني الاعزاء احييكم وارجو مساعدتي في انشاء قاعدة البيانات المرفقه سائلا" العلي القدير ان يحفظكم مرجعا" لنا مع الامتنان BASE.zip