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

الحب في الله تعالى أوثق عرى الإيمان وهو منحة من الله لا يشترى بالمال . قال تعالى في بيان فضله على عباده المتحابين ( وَأَلَّفَ بَيْنَ قُلُوبِهِمْ لَوْ أَنفَقْتَ مَا فِي الأَرْضِ جَمِيعًا مَّا أَلَّفَتْ بَيْنَ قُلُوبِهِمْ وَلَكِنَّ اللهَ أَلَّفَ بَيْنَهُمْ إِنَّهُ عَزِيزٌ حَكِيمٌ ) . و قد جعل الله الحب في الله سببا للنجاة من النار و دخول الجنة ، ففي الحديث الصحيح المتفق عليه في السبعة الذين يظلهم الله تحت ظله ، منهم ( رجلان تحابا في الله ، اجتمعا عليه ، و تفرقا عليه ) المحبة في الله نعمة من الله ، فقد الأحبة في الله غربة ، والتواصل معهم أنس ومسرة ، هم للعين قرة ، فسلام على من دام في القلب ذكراهم ، وإن غابوا عن العين قلنا يا رب احفظهم وارعاهم . لا يوجد متسع للكلام ، أحبكم في الله جمعياً اخي في الله المبدع أ/ شوقي ربيع وثمرة التعاون المثمر بأذن الله بيننا ، نأتي من جديد في سلسة برامج ضاحي وشوقي الخدمية ، لتيسير ما امكن علي اخواننا , نفعنا الله واياكم بما علمنا ولا تنسونا بدعوة بصلاح الحال بظهر الغيب . كلمة مرور الأدمن admin VBA Password 6626 فورم تعديل / اضافة صلاحيات المستخدمين البرنامج بالمرفقات Multi User Form Permissions Management.rar

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

السلام عليكم إخواني الكرام أقدم لكم اليوم إضافة مذهلة ورائعة تقوم بفصل البيانات طبقا لما تحدده من شروط أترك لكم المرفق معه شرح للتعامل مع الأداة الإضافة والشرح وملف لعمل اختبار للأداة مرفوع على الموقع التالي : http://www.gulfup.com/?IWS9o6

السلام عليكم إخواني الأحباب في الصرح العملاق أقدم لكم اليوم موضوع في غاية الأهمية بالنسبة للكثيرين وهو التعامل مع القائمة المنسدلة بخاصية التحقق من الصحة. سبق وأن شرحنا في دروس سابقة كيفية عمل قائمة منسدلة باستخدام خاصية Data Validation أو التحقق من الصحة .. عيوب القائمة المنسدلة أنه لا يمكنك تغيير حجم الخط لهذه القائمة .. عدد الصفوف الظاهرة بها 8 فقط ، ولا يوجد بها خاصية الإكمال التلقائي .. يعني من الآخر قائمة عقيمة في التعامل معها مع الملف المرفق شرح وافي لكيفية التغلب على هذه العيوب بالتفصيل في ورقة العمل Help أترككم مع الملف عله ينال إعجابكم والسلام عليكم Auto Completer Data Validation.rar

السلام عليكم ورحمة الله وبركاته اساتذتى فى هذا الصرح العلمى . اخواتى فى الله . اليكم هذه الاداه اضافيه(add-in) قمت بتحميلها من احدى المواقع الاجنبيه . وقد رفعتها على الميديا فاير لتكون برابط مباشر وكامله وهى تغنيك على العديد من الاكواد والمعادلات . فقط نزلها على جهازك ولاتنسانى فى دعاؤك اليكم رابط التحميل http://www.mediafire.com/download/44tvb4jw37qopzi/KutoolsforExcelSetup.exe

بارك الله فيك وجزاك الله كل خير ..

أخي الحبيب أنا بداعبك .. قافشك باللغة العامية المصرية يعني فاهم اللي عملته ومطنش عليه ... تقبل احترامي وتقديري أخوك أبو البراء

الاخ الحبيب الجموعي جزيت خيرا على التفصيل للكود ولكن ليس هذا ما قصدته أنا قصدت أني لم ألمس الكود في اليوزرفورم أي أنه ليس له تأثير باليوزرفورم .......!! تقبل تحياتي

أخي الحبيب عادل بعد إذن الأخوة الأفاضل .. أنا لست بمحترف ولكن جرب هذا الملف ... Transfer Several Tables Into One Table.rar

قبل ما تقم بالنسخ تاكد ان لغة الجهاز هي العربية وبعد قم بالنسخ وثم كليك يمين واختار من لصق خاص (قيم ) وان شاء الله يضبط معك

بالفعل اخي ياسر اوافقك الرأي ان الحماية في الاكسل ضعيفة و يمكن كسرها بسهولة و البرامج كثيرة اخي ناصر بالنسبة ل: اقترح عليك ان تحفظه في سجل النظام registry بعد تشفير المفتاح و عندها لن تحتاج ان تتعامل مع الملف النصي.

أخي ناصر سبق وأن أخبرتك أن الحماية في الإكسيل قد تكون منعدمة بالنسبة لباسورد VBA يمكن بكل سهولة التغلب عليه

حياك الله ناصر معنى جملة Input As #1 هو فتح الملف للقرأة و 1# هو رقم مرجعي للملف (prices.txt) حيث استخدمنا هذا الرقم لقرأة سطر من الملف كما في الجملة Line Input #1, textline و اغلقنا الملف كما في الجملة Close #1

اخي ناصر ...ممكن فرض تفعيل الماكرو عن طريق اعلام المستخدم بذلك و في نفس الوقت اخفاء جميع الاوراق ماعدا ورقة واحدة. و عند تفعيل الماكرو تختفي هذه الورقة و تظهر بقية الاوراق. جرب المثال المرفق. Option Explicit Const SHEET_ENABLE_MACRO As String = "ENABLE_MACRO" Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet Sheets(SHEET_ENABLE_MACRO).Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If ws.Name <> SHEET_ENABLE_MACRO Then ws.Visible = xlVeryHidden End If Next ws ActiveWorkbook.Save End Sub Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws Sheets(SHEET_ENABLE_MACRO).Visible = xlVeryHidden End Sub Enable Macros by force.zip

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

اتفضل اخى الكريم ارجو المعذره للتاخير فى الرد عليك الملف جاهز للعمل ان شاء الله project acc.rar

اخي الفاضل هذا مثال يقرأ من ملف نصي الى الاكسل. يمكنك بدلا من استخدام Try/Catch ان تستخدم On Error كما في الكود التالي: لتطبيق المثال حمل المرفق و تأكد ان ملف النص موجود في المسار D:\myData\prices.txt Sub btnReadTextFile() Dim myFile As String, text As String, textline As String Dim item As Integer, price As Integer, qty As Integer myFile = "D:\myData\prices.txt" On Error GoTo ErrHandler: Open myFile For Input As #1 Do Until EOF(1) Line Input #1, textline text = text & textline Loop Close #1 item = InStr(text, "المادة") price = InStr(text, "السعر") qty = InStr(text, "الكمية") Range("B3").Value = Trim(Mid(text, item + 8, 15)) Range("B4").Value = Mid(text, price + 7, 5) Range("B5").Value = Mid(text, qty + 8, 5) Exit Sub ErrHandler: MsgBox "لم يتم العثور على الملف ", vbCritical + vbOKOnly, "فتح ملف" End Sub MyData.zip

للرفع

اخى سلمان هذه محاوله بسيطه منى ارجو ان تفى بالغرض ملحوظه تم اضافة عمودين هما fوg فى شيت دليل الحسابات -- يجب استكامل بيانات العمود للحصول على نتائج صحيحه تقبل تحياتى سندات صرف وقبض.rar

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

تم عمل التعديلات الأربعة المطلوبة أخى أبو فارس ... وتم الاستعانة في البرنامج ببعض الأكواد من برنامج صلاحيات المستخدمين للأستاذ الفاضل محمد ابراهيم مرفق الملف VBA Password Abu_Faris@2014 هناك اثنين مستخدمين Admin .... 1111 User1 .....2222 خالص تحياتي Final-AbuFaris.rar

جربت الكود وهو يعمل بدون مشاكل. الذي يبدو انه يفتح مباشرة ابدون تنفيد الكود ذا كانت اعدادات الماكر على الخيار الاول او الثالث كما في الصورة. جرب اختيار الخيار المحدد في الصورة و بعدها اعد فتح الملف:

تم التعديل 22.rar

الدرس الثالث إعدادات الأمان لغة VBA هي لغة برمجة وهذا يعنى أنه يمكن لبعض المبرمجين أن يستغلها استغلالا سيئا فى إنشاء برامج ضاره تضر بالحاسب الآلى الذى يستخدم هذا البرنامج وعليه قررت شركة مايكروسوفت إضافة خاصية الأمان لحماية المستخدم وللدخول إلى خيارات الأمان نتبع الخطوات التالية : بأوفيس 2007 وما فوق نضغط على زر برنامج الأوفيس كما بالصورة ثم نضغط على Excel Option تظهر لنا نافذة كما بالصورة ثم نختار Trust Center من القائمة تظهر لنا نافذة أخرى كما بالصورة ثم نضغط على Trust Center Settings تظهر لنا نافذة كما بالصورة نجد هنا قسمين بالنافذة الأعلى ( الصورة السابقة ) الجزء الأول به عدد ( 4 ) اختيارات ومعناهم كالتالى : اختيار الخيار الثانى او الثالث عندما يقوم المستخدم بفتح البرنامج تظهر نافذة الاكسيل كما بالصورة التالية وبالضغط على زر Options تظهر لنا نافذة كما بالصورة التالية فإن كنا نثق بالبرنامج والمصدر نضغط على الخيار الثانى وهو Enable this content ونضغط على OK مرفق ملف به كامل الدرس الثالث وتقبلوا منى وافر الاحترام والتقدير الدرس 3.rar

السلام عليكم و رحمة الله و بركاته الأخوة الكرام، أقسام الموقع الرئيسية مقسمة كالتالي: 1- المنتدي : لمناقشة المواضيع و طرح الأسئلة 2- مجلة الموقع : يتم فيها عرض آخر المواضيع و المناقشة بصورة آلية لتكون واجهة مختلفة لصفحة البداية لمن يناسبه ذلك. 3-المكتبة: لطرح الأعمال الكاملة المفيدة و يتم آليا طرح موضوع للحوار حولها فى المنتدى المناظر ، و تحتاج المواضيع فيها للموافقة قبل العرض 4- المدونات الشخصية: و هي متاحة لأعضاء مجموعات الخبراء المعتمدين و اعضاء الشرف و المشرفين و المراقبين فقط فى الوقت الحالي ، و يمكن من خلالها طرح دروس أو خواطر أو أهم المشاركات الشخصية 5- الدردشة 6-معرض الصور و الأفلام : و يمكن فيه اضافة الصور الشخصية ووصلات للدروس الخاصة فى اليوتيوب لذا من الممكن تغيير الاسم الي الصور و الدروس المصورة (جاري التفعيل و التجربة خلال ديسمبر باذن الله) و الاضافة اليها ستكون مبدأيا لمجموعات من الخبراء المعتمدين و اعضاء الشرف و المشرفين و المراقبين. 7- هناك جزء مستقبلي يسمي محتوي الموقع جاري العمل عليهو سيتم طرحه خلال العام القادم و يحوي ابواب مختلفة يتم تفصيلها طبقا للحاجة لذا ادعوا الأخوة أصحاب الصلاحية للمشاركة فى الأجزاء المختلقة (المكتبة و المدونات ، و معرض الصور قريبا باذن الله ) ، أو ابداء الرأي بخصوص التقسيم أعلاه حال وجود اقتراحات