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

استاذ / أبو انتصار ع السريع . كده ... شاهد الملف المرفق ... عسي ان يكون المطلوب دمج كودين مع بعضهم البعض عند فتح الملف.rar

السلام عليكم ورحمة الله وبركاته افتقدتكم كثيرا لمعرفة ما اريده من هذا الملف قم بالتالي: قم بفتح الملف المرفق في الحالتين تمكين وتعطيل وشاهد النتيجة ثم قم بفتح الملف في حالة التمكين واضغط الزر kh_ChngPwd لتفعيل شاشة دخول باسم مستخدم وكلمة مرور ثم اغلق الملف ثم قم بفتح الملف في حالة التمكين والتعطيل وشاهد النتيجة قمت بتجربة هذا الكود على اكسل 2003و2007 وهما ما في المرفق واريدكم ان تجربوه على 2010 =================================== ممكن استخدام هذا الكود في اي ملف باستيراد الفورمين FormAhlnWShln FormChngPwd والموديل ModChngPwd ونسخ الاكواد الموجوده في حدث ThisWorkbook =================================== كلمة السر للاكواد : 1 =================================== ودمتم في حفظ الله فورم حماية الملف.rar ======================================================== من اراد استخدام الكود بدون استخدام فورم الحماية يضع هذه الاكواد في موديل Option Explicit Sub Auto_Open() kh_wVisible True End Sub Sub Auto_Close() kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub المرفق 2003 2007 th1.rar

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى أقدم اليكم قاعدة بيانات للموارد البشرية HR الاصدار الثاني كلمة المرور : 111 و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته HR 3 with listbox.rar HR for Windows 8 FADILA.rar

السلام عليكم ورحمة الله وبركاته ارجو من اعضاء المنتدى الكرام مساعدتي في وضع بيانات الشيك الموجود في الصورة المرفقة الي شيت الاكسيل الورقة 3 بنفس الحجم ( حجم الشيك 8 ارتفاع * 18.5 عرض ) وبذات البيانات ودمجها مع البيانات الموجودة في الورقة رقم 2

قائمة بأهم المواقع التي تقدم كورسات التعليم الذاتي منقول The best 31 websites for online courses 1- www.edx.org 2- www.coursera.org 3- www.udacity.com 4- www.mruniversity.com 5- www.class.stanford.edu 6- www.venture-lab.org 7- www.education.10gen.com 8- www.openhpi.de 9- www.ocw.mit.edu 10- www.khanacademy.org 11- www.oli.cmu.edu 12- www.oyc.yale.edu 13- www.webcast.berkeley.edu 14- www.openclassroom.stanford.edu/MainFolder/HomePage.php 15- www.see.stanford.edu 16- www.ck12.org 17- www.udemy.com 18- www.skillshare.com 19- www.codecademy.com 20- www.p2pu.org 21- www.ed.ted.com 22- www.myopencourses.com 23- www.myopencampus.in 24- www.nptel.iitm.ac.in 25- www.saylor.org 26- www.nalandau.com 27- www.academicearth.org 28- www.youtube.com/education 29- www.phodphad.com 30- www.learntobe.org 31- www.floqq.com

اخى العزيز الفاضل الاستاذ // ناصر السلام عليكم اليك هذا الاصدار لاخى العزيز الاستاذ // محمد على " ابو براء " وافر تقديرى

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

السلام عليكم الاستاذ / أبو انتصار بارك الله فيك بالنسبة لطلبك هذا يمكنك وضع كود بالملف يمنع فتح البرنامج الا بعد ظهور رسالة ارشادية للمستخدم بانه يجب ان يقوم بتخفيض مستوي الامان بالخطوات الـ .... ولا يمكنه فتح البرنامج الا بعد تنفيذ هذه الخطوات مثلا ... ( يوجد الكثير من الامثلة ) ومبدئيا ... لحين ردكم الكريم شاهد الرابط التالي عدم ظهور نافذة ملف الاكسل في حالة تعطيل الماكرو ( للقدير / عبد الله باقشير.. جزاه الله خيرا ) http://www.officena.net/ib/index.php?showtopic=42107 وايضا اليك المرفقات التالية ... فهي ملفات تقوم بتخفيض مستوي الامان لكل اصدارات الاكسيل بضغطة زر ( للقدير / محمد يحياوي .. جزاه الله خيرا ) .. تقبل خالص تحياتي برامج تخفيض الماكرو لجميع اصدرات الاوفيس.rar

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

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

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

اخى اسامه فى امان الله

السلام عليكم بار بسيط لمعاينة حركة اي كود على الفورم يمكنك استخدامة لاي كود يستخدم فور نكست على الفورم ويمكنك نقله مع الاكواد الخاص به الى اي فورم في ملفك هذا كود البار Private Sub kh_Update_Par(MI As Long, MX As Long) Static N As Integer If N = 0 Then Me.MousePointer = 11 Me.LabelPar.Visible = True Me.LabelPar.Caption = "" N = Int(MX / 30) End If '---------------------------------- If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n" '---------------------------------- If MI = MX Then N = 0 Me.LabelPar.Visible = False Me.MousePointer = 0 End If End Sub وهذه السطرين تضعها نهاية السلسلة فور نكست في اي كود تريد تشغيل البار معه مع تغيير المتغييرات الخاصة بالكود حسب الكود خاصتك Call kh_Update_Par(i, Lr) DoEvents وهذا الكود يمنعك من غلق الفورم اثناء حركة البار Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Me.MousePointer = 11 Then Cancel = 1 End Su واذا كنت تستخدم هذا الكود في الفورم خاصتك استخدم السطر التالي في بداية الكود خاصتك If Me.MousePointer = 11 Then Cancel = 1: Exit Sub تحياتي المرفق 2003 بار تحديث البيانات.rar

الأستاذ / محمد الخازمي السلام عليكم ورحمة الله وبركاته بعد إذن أستاذي العبقري / جمال عبد السميع والأستاذ الفاضل / وليد فتحي ولإثراء الموضوع إليك الحل بطريقة أخرى . معادلة التاريخ1.rar

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

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

جزاكم الله خيرا

جزاك الله خيرا

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم كل الشكر والتقدير والاحترام لعمالقة المنتدى والاساتذه الافاضل سيتم هنا عرض بعض الاكواد التى يتم استخدامها فى الفورم مع التيكست بوكس ثامنا--التعرف على بعض الاكواد الخاصه بالعمليات الحسابيه فى التيكست بوكس الجمع الطرح الضرب القسمه ارجو من الاخوه والاساتذه الافاضل شرح معنىUBound(Filter(Split(arr, ",") TEXTBOX CODES.rar

السلام عليكم الأخت الفاضلة بالمرفق وضعت أسماء تجريبية لعدد من الموظفين وفرضت أوقات الحضور للعمل علي أساس الموعد الرسمي الساعة 8:00 ووضعت شهر كامل (إفتراضي) جربي وأخبريني تأخيرات الموظفين.rar

إخوتي الفضلاء تأييداً لدعوات الأخ الحبيب سعيد بيرم والأخ أحمد فضيلة ، وتماشياً مع سياسة المنتدى قمت بتغيير إسم الظهور لدي ليصبح "أبو آدم" رغم أن "Nart Lebzo" "نارت لبزو" هو إسمي الحقيقي وليس إسماً رمزياً أو غامضاً .... ولكنني فعلت من باب التاييد و الموافقة ، ولأكون معكم ولا أكون عليكم حجة ... مع تقديري وإحترامي لكافة الدعوات الطيبة التي تدعو للوضوح و الشفافية و المحبة و التآخي و التعارف والتواصل للأفراد و الجماعات في هذا الموقع المتألق الراقي بإدارته و برواده والسلام عليكم ورحمة الله وبركاته .....................

اخي الفاضل هذا الجزء لتحديد رقم اخر صف يحتوي على بيانات في العمود a من الورقة Sheet1 LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row هذا يعني ان X تساوي قيمة الخلية F2 x = Range("F2").Value يتم إختيار المدى A2 الى D ورقم اخر صف ثم يتم نسخ المضلل ثم ازالة التحديد عن المدى Range("A2:D" & LR).Select Selection.Copy Range("A2").Select إختيار ورقة العمل التي اسمها في الخلية F2 Sheets(x).Select هذا الجزء لتحديد رقم اخر صف يحتوي على بيانات في العمود a من الورقة التي اسمها في الخلية F2 LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row اخيار المدى A و رقم اخر صف +1 ولصق البيانات فيه Range("A" & LR1 + 1).Select ActiveSheet.Paste إلغاء وضع النسخ واللصق واختيار الخلية C1 وظهور رسالة بكلمة done Application.CutCopyMode = False Range("C1").Select MsgBox ("done") ان شاء الله الشرح وافي ابواحمد