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

خلاص يامعلم ركنت السيارة منتظرك

اخى ياسر انا نزلت النسخه الكامله استنانى انا جاى ف الطريق تقبل تحياتى

بسم الله الرحمن الرحيم الحمد لله فقد انتهيت من اعداد النسخه الاولى من برنامج للحسابات باربعة مستويات البرنامج يعمل بدليل للحسابات--ومراكز التكلفه--واسعار صرف للعملات يرجى من الاخوه الخبراء والاعضاء تقيم البرنامج بشكل جيد ان شاء الله يتم تحديث البرنامج مرفق شكل البرنامج وكيفية العمل عليه ACC PRO-first edittion.rar تقبلوا تحياتى

السّلام عليكم و رحمة الله و بركاته ألف مرحبًا .. ألف أهلاً و سهلاً أستاذنا القدير " إبراهيم أبو ليلة " أنْ ينظمَّ إلينا نحن معشر التّلاميذ أحد أعمدة هذا المنتدى التعليمي الكبير .. شرفٌ كبيرٌ لنا ..و أكيد سنستفيد من خبرتك الطويلة بإذن الله فائق إحتراماتي

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

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

وعليكم السلام اعمل استعلام تحديث: . ثم كود الطباعة سيكون: 1. احفظ السجلات حتى نرى التغييرات في التقرير ، 2. قد لا تستطيع ان تستخدم معاينة التقرير ، لأننا في الخطوة 3 سنقوم بتحديث جميع علامات الصح الى لا شئ ، 3. سنقوم بطباعة التقرير مباشرة ، 4. وبعد طباعة التقرير ، سنقوم بتحديث علامات الصح الى لا شئ وقد تحتاج الى عمل التالي ، حتى تنعكس النتائج على النموذج: me.form.requery جعفر

السلام عليكم ورحمة الله وبركاته أشكركم جميعاً فما قدمتموه رائع ويستحق الإعجاب ولكن لأخي الحبيب ياسر العربي كيف نضيف Skin إلى ملفاتنا لتصبح بهذا الجمال الأخاذ نريد تعلم هذا الدرس فضلاً لا أمراً وهل يمكن أن نضع أكثر من مربع نص في حيز واحد لتأخذ نفس الأبعاد "متطابقة" فإن قمنا بطلب النص 1 يظهر وتختفي البقية والثاني وهكذا ..إليكم هذه الفكرة مستوحاة من عمل الأخ العزيز ياسر فتحي البنا يرجى تجميلها والإضافة عليها بـ Skin والسلام عليكم. ترحيب.rar

انا اسف على التاخير لظروف خاصة اتفضل لاحظ الاتى انا بصراحة مش فضيت اسالك على شوية حجات وحضرتك مستعجل شوية فاتصرفت انا من نفسى لاحظ الاتى اولا تم تركيب برنامج الصلاحيات كامل تم اضافة المستخدمين كما كانوا من قبل بنفس ارقام الباسورد كل مستخدم لو اعطيته الصلاحيات يمكنه تغير كلمة السر الخاصة به من تلقاء نفسه دون الرجوع اليك اظهار اسم مدخل البيانات وتاريخ الادخال ووقت الادخال وكذلك من قام بالتعديل فى الجدول SHLDR اسماء الحقول الخاصة يهم كالاتى CreatedBy من قام بإدخال السجل CreatedDate تاريخ إنشاء السجل CreatedTime وقت إنشاء السجل ModifiedBy من قام بتعديل السجل ModifiedDate من قام بتعديل السجل ModifiedTime وقت تعديل السجل خد بالك كويس كمان ترتيب المستخدمين كالاتى ADMIN كلمة السر ADMIN خالد كلمة السر 0 محمد كلمة السر 0 أبوفيصل كلمة السر 0 متنساش وتذكر جيدا افتح النموذج Users Ability لاعطاء التصاريح اللازمة لكل مستخدم كما تحب من اضافة فتح او اضافة او تعديل او حذف ولاحظ اختفاء المستخدم الاول باعتباره الادمن كمان التقرير لاحظ انه له صلاحيات لكل مستخدم فى الفتح ام لا يعنى مش اى حد بقدر يفتح التقارير الا بتصريح مسبق من النموذج Users Ability باسمه لما تحب تضيف اى تقارير او نماذج للصلاحيات انسخ اسمها فى الجداول الاتية 1- frm يتم عمل لصق للاسم فى حقل النماذج واضاف توصيف له فى حقل وصف النماذج مرة واحدة 2- frm apility يتم عمل لصق للاسم بعدد المستخدمين مع مراعاة ادخال رقم كل مستخدم SN لكل سجل يعنى مثلا عاوزين نضيف نموذج باسم frm_test 1- frm فى الحقل اسم النموذج نضع الاسم " frm_test " وفى حقل وصف النموذج نضع التوصبف المناسب مثلا " نموذج تجريبى " 2- frm apility لو عندنا عدد 5 مستخدمين مثلا نقوم بلصق الاسم " frm_test " فى خمس سجلات بعدد المستخدمين ومننساش المستخدم المخفى مثلا اسم النموذج وصف النموذج رقم المستخدم SN frm_test نموذج تجريبى 1 frm_test نموذج تجريبى 2 frm_test نموذج تجريبى 3 frm_test نموذج تجريبى 4 frm_test نموذج تجريبى 5 وبالتوفيق اه بالحق نسيت لو فتحت جدول اليوزر حتلاقى الاسماء والباسوردات مشفرة مش هتقدر تعرف منها اى شئ ؟ لو عاوز تعرف الاسماء وكلمات السر لكل المستخدمبن فى استعلام انا ارفقته لحضرتك باسم "users Query" بيفك التشفير sdert_2.rar sdert_2.rar sdert_2.rar

متأسف على تأخر الرد أستاذ ايمان جرب الكود نفسه مع اضافة سطرى تجاوز الأخطاء Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName On Error Resume Next MyFolder = ActiveDocument.Path & "\Test\" Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) For Each FileName In FLDR.Files FileName.Delete True Next On Error GoTo 0 End Sub مع التأكد من وجود المجلد Test فى نفس مسار ملف الورد يعنى جنبه

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير اطلب المسامحة ممن راسلني ولم يجد رد مني هديتي لكم بعد هذه الغيبة Option Explicit '========================================================" ' بسم الله الرحمن الرحيم " '========================================================" ' (دالة تحويل الرقم الى نص باللغة العربية (تفقيط " ' kh_TextNum " '========================================================" 'Num الرقم " '========================================================" 'sex جنس العملة " 'FALSE ( فارغ او صفر مذكر ) " 'TRUE ( أو اي رقم غير الصفر مؤنث ) " '========================================================" 'sNameCurr اسم العملة الرئيسية مفرد " 'pNameCurr اسم العملة الرئيسية جمع " 'NameCurrDec اسم العملة الكسرية " 'Decimal_Count طول الكسر افتراضـياً : بدون اظهار الكسر " '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" ' ملاحظات ' (اولاً : العملة الرئيسية مثنى (يقوم بها الكود تلقائيا ' مع ملاحظة اذا اسم العملة ينتهي بالتاء المربوطة ' يجب ان يكتب كذلك وليس بالهاء ' ----------------------- ' ثانياً : اذا كانت العملة الرئيسية مفرد فارغاً تعتبر ' اسماء العملات (الجمع والكسري) فارغة تلقائيا ' ----------------------- 'ثالثاً : الكلمة الابتدائية بامكانك تغييرها او تجعلها فارغة Private Const MyBegTx As String = "فقط " ' "" ' ----------------------- ' MyTNum رابعا : يمكنك التغيير (اضافة,حذف,تحرير) في الثابت ' للفئات الصفرية للرقم ادناه Private Const MyTNum As String = "ألف-آلاف/مليون-ملايين/مليار-مليارات/بليون-بلايين/بليار-بليارات/ترليون-ترليونات/تريليار-تريليارات/كدرليون-كدرليونات" '===============================================================================================================================================" 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" '===============================================================================================================================================" Function kh_TextNum(Num As String, Optional sex As Boolean = False, Optional sNameCurr As String = "", Optional pNameCurr As String = "", Optional NameCurrDec As String = "", Optional Decimal_Count As Byte = 2) As String Dim Spp, zt Dim i%, ii%, pr% Dim MyMid$, nCurr$, Txt$, Txt1$, Txt2$ '====================================== If Not IsNumeric(Num) Then GoTo kh_Exit Spp = Split("/" & MyTNum, "/") ii = UBound(Spp) If Num < 0 Then Num = Abs(Num) '====================================== If Val(Num) > Val(String((ii + 1) * 3, "9") & ".999") Then GoTo kh_Exit '====================================== nCurr = sNameCurr & "-" & IIf(pNameCurr = "", sNameCurr, IIf(sNameCurr = "", "", pNameCurr)) '====================================== Txt1 = Format(Num, String((ii + 1) * 3, "0") & ".000") For i = 0 To ii MyMid = Mid(Txt1, (i * 3) + 1, 3) If MyMid Then zt = Mid(Txt1, (i * 3) + 4, Len(Txt1)) zt = IIf(ii - i, Int(zt), zt) Txt2 = IIf(ii - i, Trim(Spp(ii - i)), nCurr) pr = 1 + IIf(ii - i, 1, CInt(sex)) Txt = Txt & IIf(Len(Txt), " و", "") & kh_nText(MyMid, Txt2, pr, zt, CBool(sNameCurr <> "")) End If If i = ii Then If MyMid = 0 Then Txt = Txt & IIf(Len(Txt), " ", "صفر ") & sNameCurr Next '====================================== Txt = MyBegTx & Txt & kh_dText(Num, sNameCurr, NameCurrDec, Decimal_Count) '====================================== kh_Exit: kh_TextNum = Trim(Txt) End Function ' معالجة العدد من 1 الى 999 لكل فئات الرقم Private Function kh_nText(ByVal iNum As String, ByVal oMm As String, ByVal ibs As Integer, ByVal z As Boolean, ByVal tCu As Boolean) As String Dim Sp Dim Num1%, Num2%, Num3% Dim oM$, S$, S1$, nT$, nT0$, nT1$, nT2$ '====================================== Sp = Split("واحد,إحدى,اثنتان,ثلاث,أربع,خمس,ست,سبع,ثمان,تسع,عشر,إحدى ,اثنتا ", ",") '====================================== If ibs Then S = "ة": Sp(1) = Sp(0): Sp(2) = "اثنان": Sp(11) = "أحد ": Sp(12) = "اثنا " Else S1 = "ة" oM = Trim(Split(oMm, "-")(0)) '====================================== Num1 = Left(iNum, 1) Num2 = Right(iNum, 2) Select Case Num1 Case 1: nT0 = "مائة" Case 2: nT0 = "مائتا" & IIf(ibs = 2, IIf(Num2 < 3, "", "ن"), IIf(Num2 = 0 And oM <> "", "", "ن")) Case 3 To 9: nT0 = Sp(Num1) & "مائة" End Select '========================================= Num1 = Right(iNum, 2) Select Case Num1 Case 1, 2: If nT0 <> "" Then If ibs = 2 Then nT0 = nT0 & " " & oM Case 11 To 99: If oM <> "" Then If ibs Then If z Then oM = oM & "اً" End Select '----------------------------------------- Select Case Num1 Case 1 nT = IIf(oM = "", Sp(0) & S1, oM) oM = IIf(ibs <> 2 And oM <> "", Sp(0) & S1, "") Case 2 nT = IIf(oM = "", Sp(Num1), Replace(oM, "ة", "ت") & IIf(z = 0 And ibs = 2 And tCu, "ا", "ان")) oM = IIf(ibs <> 2 And oM <> "", Sp(Num1), "") Case 3 To 10 oM = Trim(Split(oMm, "-")(1)) nT = Sp(Num1) & S Case 11, 12 nT = Sp(Num1) & Sp(10) & S1 Case 13 To 19 nT = Sp(Num1 - 10) & S & " " & Sp(10) & S1 Case 20 To 99 Num2 = Right(Num1, 1) Num3 = Left(Num1, 1) If Num3 = 2 Then nT1 = "عشرون" Else nT1 = Sp(Num3) & "ون" nT2 = Sp(Num2) & IIf(Num2 > 2, S, "") & " و" & nT1 If Num2 = 0 Then nT2 = nT1 nT = nT2 End Select '====================================== S = IIf(nT = "" Or iNum < 100, "", " و") nT = Replace(nT, Sp(8) & "ة", Sp(8) & "ية") kh_nText = Trim(nT0 & S & nT & " " & oM) '====================================== End Function ' معالجة الكسر Private Function kh_dText(ByVal dNum As String, ByVal NCur As String, ByVal Ndec As String, ByVal co As Byte) As String Dim Td$, Td1$ On Error GoTo 1 If NCur = "" Then Ndec = "" Td = Format(Round(CCur(dNum - Int(dNum)), co), "0." & String(co, "0")) If Td = 0 Or Td = 1 Then Td1 = "": GoTo 1 If Len(Ndec) Then Ndec = " " & Ndec: Td1 = Td * CVar("1" & String(co, "0")) Else Ndec = " " & NCur: Td1 = Td Td1 = " و " & Chr(40) & Td1 & Chr(41) & Ndec 1: kh_dText = Td1 End Function دالة تحويل الرقم الى نص عربي.rar ================================================= الملف المعدل: هذا المرفق بامكانية تفقيط الكسر وامكانية ادخال كلمة نهاية النص دالة تحويل الرقم الى نص عربي.rar ================================================= رابط مباشر للملف

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

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

أعجبنى هذا الموقع فاردت ان اشارك محتوياته معكم تحياتى للجميع http://csu.kau.edu.sa/Pages-تدريبات-مادة-مهارات.aspx

يكفي في نفس الملف المحدد هذا مثل ما اشرت وقم بفتح الملف المرفق عن طريق كليك يمين وrun admin ستظهر لك هذه الرسالةويبقي كدا اتسجلت الاداة وتقدر تفتحها من جوه البرنامج زي ما شرحت سابقا تسجيل الادوات فتح كمسئول - Copy.rar

السلام عليكم اخي الكريم شاهد المرفق كشف حساب العميل تعديل1.rar

عدة طرق: 1. ضبط الكود في Notepad حسب المسارات الصحيحة ، ثم احفظ الملف بصيغة vbs او bat اينما شئت ، وانقر عليه مرتين ، وسترى الاختار موجود على سطح المكتب ، او 2. ضع الكود على حدث التحميل للنموذج الرئيسي للبرنامج ، او 3. اعمل وحدة نمطية ، مثلا function make_shortcut() الكود يأتي هنا end function ثم اعمل ماكرو ، واطلب من الماكرو ان: شغل الكود make_shortcut شغل النموذج الفلاني واهم شئ هو ان تحفظ الماكرو باسم autoexec ، والذي سوف يشغله البرنامج تلقائيا كلما تفتح البرنامج. جعفر

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

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

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

طيب انا جربت جملة السيكول اللى حضرتك ارفقتها برضو بتظهر الاسماء والباسورد مشفرين شوف حضرتك المشاركة اللى فى الموضوع ده http://www.officena.net/ib/topic/65673-طريقة-اضافة-المستخدم-الذي-قام-بانشاء-السجل/?do=findComment&comment=427794 نزل المرفق وجرب تفتح الاستعلام اللى باسم " users Query " وقول لى الاخبار ايه معاك منتظر رد حضرتك

جاري التجربة شكرا لم يعمل الكود معي

الملف له كلمه مرور فتح؟

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

شكرا جزيلا اخى صقر ايا كان الحل فذلك يفى بالمطلوب اشكرك وتحياتى

ارفق الملف اخي الكريم ليسهل حل المشكله

حضرتك لو بحثت فى المنتدى لوجدت الكثير اتفضل موضوعين على سبيل المثال وليس الحصر وايضا اليك مرفقين للتجربة وتسهيلا عليك الاول http://www.officena.net/ib/topic/61295-%D9%87%D8%AF%D9%8A%D8%A9-%D9%86%D8%B8%D8%A7%D9%85-%D8%A7%D9%84%D9%85%D8%B3%D8%AA%D8%AE%D8%AF%D9%85%D9%8A%D9%86-%D9%88%D8%A7%D8%AE%D9%81%D8%A7%D8%A1-%D8%A7%D8%B7%D8%A7%D8%B1-%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D8%B3-%D9%86%D9%87%D8%A7%D8%A6%D9%8A%D8%A7/#comment-395152 الثانى http://www.officena.net/ib/topic/55769-%D8%A7%D8%B1%D9%8A%D8%AF-%D8%A7%D8%AE%D9%81%D8%A7%D8%A1-%D8%B4%D8%A7%D8%B4%D8%A9-%D8%A7%D9%83%D8%B3%D9%8A%D8%B3/#comment-426933 حاول تحليل المرفقات ونتناقش بعد ذلك نضرا لضيق وقتى الان لانى مضطر للقبام الان اعتذر جدا جدا ولكن ان شاء ربى لى معكم عودة فى القريب العاجل ابا عمر.rar HideWin.rar

جزاكم الله خيرا هذا من فضل ربى اولا ثم لا انسى افضال كل اساتذتنا الكرام فى هذا الصرح الشامخ جزاهم الله عنا كل الخير

حبيبى الغالى / ياسر العربى معزرة لعدم وصول معلومة حفظ المشروع كامل بالطريقة التى أرفقتها ولكن قرأت ردك بعد ان برمجت متصفح إنترنت وحفظته بنفس الطريقة السابقة سوف أعيد برمجته وأرفعة مرة أخرى بس قللى إيه رأيك ورأى أخويا عبد العزيز Internet Browser.rar أخى وحبيبى الغالى / عبد العزيز أكثر من رائع قنبلة فى عالم الفورم تقبل خالص تحياتى وتقديرى

السّلام عليكم و رحمة الله و بركاته هديّة متواضعة ..مني إليكم .. لعل و عسى تنال إعجابكم .. للتكبير و التصغير بحجم الفورم ..إذهبْ طَوّالِي للرقم 20000 داخل الكود و قم بالتغيير دون المساس بجزء آخر فائق إحتراماتي الشاشة.rar

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

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

الاخ الحبيب بكار طلبك جاهز من يوم الخميس ولكن للاسف المنتدى لم استطع الدخل فيه يوم الخميس ولا ادرى ما اسبب عموما جرب المرفق هل هو ما تريد ادخل الاسم والشهر ثم كتابة مبلغ القسط واضغط انتر ستجد الكود تم ترحيله لو كانت البيانات صحيحه تقبل تحياتى 2015 - Copy.zip

تمام الان فهمت بارك الله فيك استاذنا ابو محمد واستفدت كثيرا من هذه الفيديوهات شكرا جدا

والله الملف مذهل فعلا سيدي الفاضل وانا تعلمت واتعلم منه الكثير ولكني اجد انه من الأفضل ان يكون كما تفضلت حضرتك وقلت صف واحد في شيت 2 ويفضى تلقائيا ويرحل لشيت 1 بدون ازرار كما قلت انت تماما فهذا هو المطلوب تماماً بالنسبة لشيت 1 فالمقصود فعلا زيادة عدد الاسماء لما يقرب من 10000 إسم وقد يزيد جزيل لشكر والامتنان لشخصك الكريم ولسعة صدرك وجميل صبرك

جزيت خيرا

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

جزاكم الله كل خير - الأستاذ الصقر - عمل اقل ما يقال عنه انه ممتاز ورائع وجزاك الله كل خير وجعل مثواك الجنة ان شاء الله تعالى عندي طلب لحضرتك (وعذراً على رخامتي) هل ممكن ان يتم الترحيل بعد ان اضغط إنتر وانتقل للصف الي بعده ، أي بدون أزرار؟ ثانيا : هذا نموذج مصغر ، فهل يمكني ان أسحب القائمة في شيت 1 ، كما في شيت 2 ، واكتر عدد الأسماء لحوالي عشرة آلاف اسم مثلاً جزيل الشكر لشخصكم الكريم أخيك في الله بكار

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

الله ينور أخى العزيز الغالى / عبد العزيز دائما رائع تقبل تحياتى

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

Protect All Worksheets in Workbook using VBA Sub sbProtectAllSheets() Dim pwd1 As String, pwd2 As String pwd1 = InputBox("Please Enter the password") If pwd1 = "" Then Exit Sub pwd2 = InputBox("Please re-enter the password") If pwd2 = "" Then Exit Sub 'Check if both the passwords are identical If InStr(1, pwd2, pwd1, 0) = 0 Or _ InStr(1, pwd1, pwd2, 0) = 0 Then MsgBox "You entered different passwords. No action taken" Exit Sub End If For Each ws In Worksheets ws.Protect Password:=pwd1 Next MsgBox "All sheets Protected." Exit Sub End Sub Insert a Module for Insert Menu ولحمايته لفترة زمنية كفترة تجريبية Sub workbook_open() If Time >= " 01-01-2016" Then msgbox "the time work of this application is finished" ThisWorkbook.Close False End Sub

تفضل المرفق انقر الزر المسمى اجماليات في ورقة Total MD_111.rar

جرب ان تستبدل الفاصلة "," بالفاصلة المنقوطة ";" في المعادلة

أخي سليم السلام عليكم اشكرك على الرد والاجابه ولكن عذرا كلما اردت انسخ المعادلة ثم الصقها على الملف تظهر لي رسالة يوجد خطأ أرجوا تطبقها على الملف المرفوع وبالنسبة لسؤالك عن 75 و 100 نعم اريدها ان تحتسب يتم الحساب من 75 الى 100 وشكراً

اهداء مصطفى كمال معلم اول مدرسة امل الزقازيق رابط تدريبات الرضيات للصم http://gulf-up.com/do.php?id=27682 رابط تدريبات اللغة الانجليزية للصم http://gulf-up.com/do.php?id=27686 رابط تدريبات اللغة العربية للصم http://gulf-up.com/do.php?id=27691

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