نجوم المشاركات

بسم الله الرحمن الرحيم له الجلال والتعظيم بلغ نبيه الكريم و خلق الانسان في تقويم و أعطاه عقلا في تكريم و جعل له الخير العميم و الصلاة على المصطفى مصحوبة بالتسليم من هدانا الله بفضله إلى الصراط المستقيم وجعل التقوى بالفؤاد تقيم و الرضا على كل صحابي كريم و سبحان اللذي جعل التحليل و التحريم وأسكن الأبرار و الأخيار في النعيم و حشر الفجار العصاة في الجحيم . و الحمد لله اللذي أحيى في الأجداث الرميم سبحانه أغنى الفقير و أشفى السقيم أراح المكروب من وصبه وكفل اليتيم و أنشأ النطفة علقة في الرحم العقيم من أمشى الفطيم و جعل الأعمى بصيرا و الأبكم كليم هو ربي خالقي فاطري وهو أعلم عليم اللهم لا تجعلني لهذا الدين خصيم و لا تخرجني من الدنيا عديم و لا تبليني بفتنة أو شر النفس أو وسوسة الرجيم أستودعك قلبي وروحي و نفسي يا حليم اما بعد احبتي: اليوم سنتعلم كيفية فك حماية ملفات الxlsm & xlsb الطريقة طويلة بعض الشئ وكنت انتظر حتى اجد تسهيل لها ولكن لم يسعفني الوقت للبحث في هذا الموضوع وبعد طلب بعض الاخوة طريقة الفك لهذه الملفات قررت ان اضع الشرح بالطريقة المفصلة لحين ايجاد طريقة مختصرة باذن الله اولا نقوم بتحميل هذا البرنامج http://www.handshake.de/user/chmaas/delphi/download/xvi32_254.zip وهو برنامج الهيكس HEX وهو للتعديل علي معظم البرامج وله استخدامات كثيرة يهمنا منها التعديل على نظام حماية الملف فقط ونتابع شرح الفيديو المرفق ملحوظة الشرح مطبق على امتداد Xlsm وبنفس الطريقة يتم التطبيق على Xlsb واعذروني على سرعة الشرح وعدم وجود صوت لاني بالعمل شرح سريع بالصور مع تحياتي ياسر العربي yasser.rar

السلام عليكم مرفق ملف يشرح داله subtotal subtotal.rar

مع أنى لا أحبذ تخفيض درجات الأمان الا فى الضرورة الضرورة القصوى جرب الكود التالى يوضع فى حدث الملف Private Sub Workbook_Open() CreateObject("WScript.Shell").Run "%WinDir%\Regedit.exe /s ""ActiveWorkbook.Path & \zaMachineSecurityLevel.reg""" CreateObject("WScript.Shell").Run "%WinDir%\Regedit.exe /s ""ActiveWorkbook.Path & \zaUserSecurityLevel.reg""" End Sub

تفضل فكرة بسيطة لعلها تكون المطلوب تسلسل الكود والعدد تلقائي.rar

بِسـمِ اللهِ الذي لا يَضُـرُّ مَعَ اسمِـهِ شَيءٌ في الأرْضِ وَلا في السّمـاءِ وَهـوَ السّمـيعُ العَلـيم اخى الحبيب الغالى الاستاذ القدير ضاحى حفظى أحمد " ضاحى الغريب " أبو عمرو **** ابو أدم **** ابو نورهان ***** ابو تومانه **** أبو زاد بارك الله فيكم جميعا بارك السلام عليكم ورحمته الله وبركاته مضى عاما وثلاثة أشهروبضع أيام على نشر موضوعكم القيم بالاشتراك مع أخى العزيز الفاضل // شوفى ربيع حفظكما الله تعالى كما تعلم أخى الحبيب انه هناك وعدا من حضراتكم بنشر الاصدار الثانى من البرنامج وأن وعد الحر دينا عليه نعلم جيدا مشغولياتك التى هى فى المقام الاول أهم من اية أمور أخرى ولكن هناك ما هو أهم ألا وهو دعاءا مباركا نابعا من قلوب صافيه تكن لشخصكم الكريم كل الحب والمودة والاحترام والتقدير من جميع السادة الزملاء الذين يتمتعون بدرجة عالية من الاخلاق الكريمة التى تمنعهم من أية أمور من شأنها انتهاك حقوق الملكية الفكريه فبما أنك قد وهبته لله تعالى وقفا فلكم الاجر من الله ومن يخالف فليتحمل وزره امام الله تعالى فهلا تفضلت على جميع السادة الاعضاء اعضاء منتدى الاكسيل بالاصدارالثانى لينالوا شرف الارتقاء بهذا البرنامج وسنعتبر هذا المطلب بعد إذن إدارة الموقع إستفتاءا عاما لابداء الرأى فيه من كافة أعضاء منتدى الاكسيل وماعليك إلا فضلا المثول أمام رغبة محبيك من عاشقى الاكسيل حال أغلبية المشاركات بالموافقه أما إن كان هناك مايحول ذلك فعزاؤنا الوحيد أننا جميعا نحبك فى الله ولله وأعانكم ورزقكم وكافة السادة الاخوة الافاضل من حيث لانحتسب دائما فى وجدانى ياأبو أبنائى تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

السلام عليكم كما خدمتمونا نحن الاعضاء الذين لا نعرف مثل المبدعين وكما تعاونتم معنا وكما افدتمونا وكما رحبتم بنا في هذا الموقع العزيز والغالي على قلوبنا من مدير الموقع ومراقبيه ومشرفيه وخبرائه واعضائه الاعزاء فإنني ولرد قليل من جميل الموقع العزيز قمت بتجميعية من احد المواقع الاجنبية به اكواد جاهزة وبإمكان المحترفين التعديل عليها والاضافة اوالحذف او عمل كود مشابه فيما يرونه مناسبا وكما بإمكان المبتدئين التعلم منها ولا أرجو منكم سوى الدعاء لي بكل ما تريده انت أيها القارئ "واعلم بأنك إن دعوت لي سترد الملائكة اللهم آمين ولك بالمثل " حجم الملف :4.87 MB لذا قمت برفعه على ميديا فاير وان لم يعمل لدى البعض بسبب حجبه في بعض الدول فليخبرنا هنا كي أرفعه على موقع آخر اضغط بارك الله فيك هنا اعتذر لقد تكرر الموضوع مرتين بسبب خللل في تحميل الموقع عندما توقف عملت اعادة تحميل الصفحة فكرر الموضوع مرتين ولا اعرف كيف احذف احدهما

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم أحدث تعديل فى كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2016 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى شيت كنترول الإعدادى رجب جاويش الإصدار 15.rar

بارك الله فيك اخى الكريم وصدقت فيما قلت وشهدت لهذا الصرح الكبير العظيم باشخاصة جزاك الله كل خير

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الكريم على الهديّة القيّمة جزاك الله خيرًا و زادها بميزان حسناتك فائق إعجاباتي

شرح جميل بارك الله فيك لا تحرمنا من شرح البقية

جزاك الله خيرا أستاذ محمد

شكرا اخي محمد عادل وفقك الله لكل خير

جرب هذا الملف بحث بالتكرار salim.rar

وعليكم السلام ورحمة الله أهلا بك أخي.. أرى أن السبب الرئيسي يكمن في إعدادات اللغة وشكل الاستعلام مبدأيا اجعل الاستعلام مثل ما في الصورة، وإذا استمرت المشكلة قم في النموذج Form بتغيير حرف É إلى E سواء حروف كبيرة أو صغيرة ويا حبذا لو غيرت مسمى هذا النموذج أنه من الكلمات المحجوزة ولا تنسى أن تضع في حدث عند التغيير أو بعد التحديث للحقل Text1 وذلك بعدما أبدلنا حرف الفرنسية إلى الإنجليزية Me.Requete1.Requery ووافني بالنتيجة

جميلة هذه الفكرة

يمكنك كتابة الكود كالتالي : Dim i As Integer For i = 1 To 10 If DLookup("[Imagee]", "[Tablee]", "[ID] =" & i) > 0 Then Me.Controls("image" & i).Visible = True Else Me.Controls("image" & i).Visible = False Next i

برنامج تسجيل التحاليل الطبية ************************ برنامج مجانى لكل مريض و لكل طبيب يعالج مرضاه بالمجان ************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=szAFJNL2CEU&feature=youtu.be ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx?id=10910 ****************************************************** رابط تحميل برنامج تسجيل التحاليل الطبية http://www.mediafire.com/download/yf7bh9mmiy3f8hr/%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AA%D8%AD%D8%A7%D9%84%D9%8A%D9%84+++.accdb ****************************************************** اسم المستخدم : الحمد لله كلمة السر : الحمد لله برنامج تسجيل التحاليل الطبية ************************ برنامج مجانى لكل مريض و لكل طبيب يعالج مرضاه بالمجان ************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=szAFJNL2CEU&feature=youtu.be ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx?id=10910 ****************************************************** رابط تحميل برنامج تسجيل التحاليل الطبية http://www.mediafire.com/download/yf7bh9mmiy3f8hr/%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AA%D8%AD%D8%A7%D9%84%D9%8A%D9%84+++.accdb ****************************************************** اسم المستخدم : الحمد لله كلمة السر : الحمد لله

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " ياسر العربي " على الموضوع المميّز و الممتاز كم تسعدني مفاجآتك السّارة .. و هذه أفضلها فائق إحتراماتي

السلام عليكم - حياكم الله اخي عبدالعزيز - نسال الله ان يرزقكم الصحة والعافية مشكورين

السّلام عليكم و رحمة الله و بركاته أخي الكريم أبو عبد الرّحمن البغدادي ..كان يجب أن ترتّب التاكسات بوكس حسب أرقام الأعمدة في الشيت إكسل أيضا لا حظ المدى المكتوب بالكود .. كان عليك توسيع النّطاق بالكود ليشمل أسماء الأفراد محاولة بسيطة أرجو أن تفي بالغرض فائق إحتراماتي اضافة اسماء افراد الاسرة الى الفورمة.rar

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

جزاك الله خيرا أخى الفاضل

أستاذ جمال سعد أهلا بك بداية نرجو منك تغيير اسمك الى اللغة العربية و ثانيا طلبك يحتاج بعض الايضاح ليتمكن الأعضاء من مساعدتك مطلوب منك : مرفق أو ملف توضح فيه اسم الصفحة التى تريد حفظها + الوقت الذى تريد فيه بدء الحفظ و ذلك يكون بعد فتح الملف + مكان أو مسار الحفظ تحياتى

بارك الله فيك لك كل التقدير والاحترام

يمكن ان يكون هذا المقصود Aziz02 salim.rar

مساء الخير اخواني الاعزاء .. في المرفق : مطلوب ترحيل حسب التاريخ بشرط عدم تكرار الاسماء للموظفين . والشرط الثاني يجمع مبيعات الموظف الكاش والاجل في نفس الصف ، في الشيت الثاني .. اقصد أذا ضغط على الزر يطلب من ادخال الفترة ( خلال الفترة من تاريخ الي تاريخ ) أذا أدخلت التاريخ ،، يقوم بترحيل مبيعات الموظفين للشيت الثاني خلال هذه الفترة فقط ، مع عدد العمليات .. ترحيل.rar

أخي الكريم سعيد دعك من المشاركة السابقة وإليك الأكواد التالية ..يمكنك الآن الاستغناء عن الأكواد في حدث ورقة العمل لأنني لا أحبذها أصلاً طالما أنه بالإمكان عمل المطلوب دونها جرب الكودين التاليين أحدهما للإضافة والآخر للخصم Sub TransferMatchingData() Dim vItems As Variant, vData As Variant, vOut As Variant, I As Long vItems = Sheet1.Range("B8", Sheet1.Cells(Rows.Count, "B").End(xlUp)).Resize(, 2).Value With Sheet2.Range("B8", Sheet2.Cells(Rows.Count, "B").End(xlUp)) vData = .Value vOut = .Offset(, 1).Resize(, 2).Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = LBound(vItems) To UBound(vItems) .Item(vItems(I, 1)) = vItems(I, 2) Next I For I = LBound(vData) To UBound(vData) If .Exists(vData(I, 1)) Then vOut(I, 1) = .Item(vData(I, 1)) vOut(I, 2) = vOut(I, 2) + vOut(I, 1) Else vOut(I, 1) = "" End If Next I End With .Offset(, 1).Resize(, 2).Value = vOut End With End Sub Sub TransferMatchingItems() Dim vItems As Variant, vData As Variant, vOut As Variant, I As Long vItems = Sheet5.Range("C8", Sheet5.Cells(Rows.Count, "C").End(xlUp)).Resize(, 7).Value With Sheet2.Range("B8", Sheet2.Cells(Rows.Count, "B").End(xlUp)) vData = .Value vOut = .Offset(, 2).Resize(, 2).Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = LBound(vItems) To UBound(vItems) .Item(vItems(I, 1)) = vItems(I, 7) Next I For I = LBound(vData) To UBound(vData) If .Exists(vData(I, 1)) Then vOut(I, 2) = .Item(vData(I, 1)) vOut(I, 1) = vOut(I, 1) - vOut(I, 2) Else vOut(I, 1) = "" End If Next I End With .Offset(, 2).Resize(, 2).Value = vOut End With End Sub تقبل وافر تقديري واحترامي

أخي الكريم حماده سعد الله جرب الكود التالي عله يفي بالغرض Sub ExportActiveSheet() Dim WB As Workbook, WS As Worksheet Set WS = ActiveSheet Application.DisplayAlerts = False If WB Is Nothing Then WS.Copy ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value Set WB = ActiveWorkbook If Dir(ThisWorkbook.Path & "\ExportedWB.xlsx") <> "" Then MsgBox "Workbook 'ExportedWB' Is Already Existing", vbCritical WB.Close False Else WB.SaveAs Filename:=ThisWorkbook.Path & "\ExportedWB.xlsx" WB.Close True MsgBox "Workbook Exported In The Same Path ...", 64 End If End If Set WS = Nothing Set WB = Nothing Application.DisplayAlerts = True End Sub تقبل تحياتي

في المديول الذي اسمه Defs اضفت هذا السطر Public ShowUser As String وفي نموذج كلمة المرور frm-UserLogon اضفت هذه السطر في آخر حدث زر دخول ShowUser = MyUser.UserName ثم في النموذج وايضا في التقرير وضعت هذا السطر txtx = ShowUser وافعل ذلك في جميع نماذجك وتقاريرك المرفق هو المرفق السابق نفسه مختصرا اسم الدخول admin وكلمة المرور 2439 up2.rar

أخي الكريم أحمد خبرتي ضعيفة في هذا الخصوص نظراً لأنني لم أقم بمشاركة مصنف من قبل .. جرب الكود التالي وهو أحد روائع أخونا الغائب عن العين الحاضر في القلب أبو تراب غفر الله لي وله Sub SharedFile() With ActiveWorkbook Application.DisplayAlerts = False .ExclusiveAccess Application.DisplayAlerts = True ActiveSheet.Unprotect 1 'ضع أكوادك ها هنا ActiveSheet.Protect 1 Application.DisplayAlerts = False .KeepChangeHistory = True .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared Application.DisplayAlerts = True End With End Sub إن شاء الله يحل المشكلة بالنسبة للمصنف المشترك .. تقبل تحياتي

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

مايمنع ان يكون ذلك بمقابل

هل من حل ...

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

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

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

السلام عليكم ورحمة الله وبركاته جرب المرفق في امأن الله MINUTE3.rar