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

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

تفضل استاذى الفاضل وائل استبدل الجزء الخاص بالخليه A4 بالتالى اذا كنت عايز تستخدم اسم الشيت يبقى لازم تكتب ("اسم الشيت") Sheets If x = Sheets("users").Range("a4") Then او السطر التالى بفرض ان الشيت المسمى Users هو شيت رقم 3 ( وعلشان تعرف رقمه ممكن من محرر الاكواد شوف الشيت users بجوارة رقم الشيت If x = Sheet3.Range("a4") Then كلا السطرين يؤدو نفس الغرض اعتذر للجميع لقلة تواجدى هذه الايام نظرا لانشغالى واسالكم الدعاء اعتذر ابوالبراء لم ارى مشاركتك الا بعد ما عملت حفظ لا يفتى ومالك بالمدينة تقبل تحياتى

اخى صلاح المصرى كما اشار الاخ وائل الاسيوطى في رابط الشرح للاجابه على سؤالك نعم يمكن بطريقتين اولا بالمجال الديناميكى وهو يزيد او ينقص بزيادة ونقص البيانات من صيغ ادارة الاسماء تحرير سمى المجال باسم يدل على العمل او باختيارك ثم في refer to ضع المعادله =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),4) الطريقة الاسهل حدد بياناتك واضغط ctr+t لانشاء جدول جديد واختار الجدول كمصدر للبيانات ويمكن تحديث التقرير تلقائىه بالكود التالى Sub RefreshPivotTables() Dim pivotTable As PivotTable For Each pivotTable In ActiveSheet.PivotTables pivotTable.RefreshTable Next End Sub

السلام عليكم ..جزاكم الله خيراً أخي الحبيب أبو أسيل تم التثبيت بفضل الله ثم بفضلكم تقبل تحياتي العطرة.

جرب ياريس Sub Yasser() Dim x As String x = InputBox("من فضلك فم بادخال كلمة المرور.", "Password Required") If x = users.Range("a4").Value Then users.Visible = xlSheetVisible users.Select Else MsgBox "كلمة المرور خطأ" End If End Sub اكيد دا ملف الصلاحيات

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

السلام عليكم و رحمة الله و بركاته بارك الله فيك أخي محمد أبو صهيب .. فورم ممتاز جزاك الله خيرًا و زادها بميزان حسناتك إحتراماتي

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

أخي الكريم وائل لما لم ترفق ملف ؟ لما لم تضع الكود بين أقواس الكود؟! ما هو الخطأ الذي يظهر معك عند النقر على كلمة Debug؟ هل الاسم users الاسم البرمجي لورقة العمل المراد ربط الباسورد بها؟ هل جربت استخدام كلمة Sheets يليها قوس مفتوح ) ثم أقواس تنصيص " ثم اسم ورقة العمل users ثم إغلاق أقواس التنصيص " ثم إغلاق القوس ( ...؟ تقبل تحياتي

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

السلام عليكم اسمي عبدالواجد - ومعنى الواجـد الواجد.. الغنيُّ الذي لا يفتقر، والواجد هو الذي لا يضلُّ عنه شيء، فأحياناً الإنسان لضعفه يقول: بحثت عنه كثيراً فلم أجده، أي احترت في أمري فأين أجده، فاته الشيء غاب عنه، لكنَّ الله سبحانه وتعالى هو الواجد الذي لا يضلُّ عنه شيء، ولا يفوته شيء، الله جلَّ جلاله الواجد.. قال: " هو الذي يجد كلَّ ما يطلبه ويريده ". فالإنسان قد يطلب آلاف الطلبات ولا يجدها، يريد آلاف الأهداف ولا يُحصِّلها، لكنَّ الله سبحانه وتعالى لا يضلُّ عنه شيء ولا يفوته شيء، وهو الذي يجد كلَّ ما يطلبه ويريده ولا يُعوزه شيءٌ من ذلك، ولا يُعجزه شيء ذلكم الله ربُّ العالمين، أي شتَّان بين من يكون عبداً لغير الله وبين من يكون عبداً لله. أما بخصوص الشريط المتحرك / فإذا كان به ارهاق على الملف فلا احتاج اليه ، إنما شيء كمالي ولكن بحثت في المتتدى ووجد ملف للأستاذ البسكري سهل وسريع ، ولكن وجدت صعوبة بالتغيير في الشريط شريط شريط.rar

السلام عليكم ... من رخصة الاستاذ سعيد ... Private Sub Command8_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE table3.id, table3.Classe, table3.Tech, table3.Fees from table3 WHERE(((table3.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table3.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table3.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table3.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))" DoCmd.RunSQL "DELETE table2.id, table2.Classe, table2.Tech, table2.Fees from table2 WHERE(((table2.ID) = [Forms]![table1]![Table2 Subform1]![ID]) And ((table2.Classe) = [Forms]![table1]![Table2 Subform1]![Classe]) And ((table2.Tech) = [Forms]![table1]![Table2 Subform1]![Tech]) And ((table2.Fees) = [Forms]![table1]![Table2 Subform1]![Fees]))" DoCmd.SetWarnings True Me.Requery End Sub

حبيبي الغالي ابو يوسف اذا كان هو البرنامج بالفعل يبقي اظن اثناء التحميل سقط امتداده معرفشي ازاي المهم جرب الشرح دا وشوف يمكن ينفع تقبل تحياتي yasser.rar

أخي الغالي وحبيبي في الله أبو القبطان .. الملف سيء !! أيوا سيء !! أيوا زي ما بقولك كدا سيء@@ زعلت ؟؟! حقك عليا ! الملف جيد أيوا جيد .. بقولك جيد واحد هيقول العضو دا شكله مجنون أو عبيط .. هرد أقوله أشكرك ... بس كل واحد له طريقة تفكيره وكل شيخ وله طريقة بالأمس لم أطلع على الملف الجيد بشكل جيد .. لكن أتيحت لي الفرصة أن أطلع عليه فوجدت الأكواد جميلة ولكنها تحتاج لترتيب .. نريد أن نتعود عند إرفاق ملفات بالمنتدى أن تكون الأمور مرتبة ومنطقية .. ويتم إزالة الشوائب منها أولاً بالنسبة للكود في حدث المصنف وجدت أنه نفس الكود في موديول رقم 1 ..فلما التكرار الغير مرغوب فيه؟! يمكن الإبقاء على الكود في الموديول رقم 1 والإشارة إلي اسم الإجراء الفرعي في حدث فتح المصنف باستخدام كلمة Call يليها اسم الإجراء الفرعي ثانياً وجدت كود يخص الفورم في الموديول العادي !! ليس مكانه ثالثاً الكود في الموديول الثاني أعتقد أنه ماكرو مسجل ، وكم أكره شكل أسطر الكود الناتجة عن تسجيل الماكرو .. فهناك شوائب كثيرة فيها غير أن الكود ليس له علاقة بالموضوع ومن ثم يجب إزالة جميع الأكواد من المصنف الخاص بك وإعادة ترتيبها بهذا الشكل (لاحظ أيضاً شكل أسطر الكود وكيف تم تنسيقها ليسهل الإطلاع عليها) ضع الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_Open() Call Picture1_Click End Sub والكود التالي يوضع في الموديول رقم 1 Sub Picture1_Click() Dim I As Long, lastRow As Long Dim Name1 As String lastRow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row For I = 2 To lastRow Cells(I, 4).Interior.ColorIndex = xlNone Cells(I, 4).Font.ColorIndex = xlAutomatic Cells(I, 4).Font.Bold = False If Cells(I, 4) = Date Then With UserForm1.ListBox1 .AddItem .List(.ListCount - 1, 0) = Sheet1.Cells(I, 1).Text .List(.ListCount - 1, 1) = Sheet1.Cells(I, 2).Text .List(.ListCount - 1, 2) = Sheet1.Cells(I, 3).Text .List(.ListCount - 1, 3) = Sheet1.Cells(I, 4).Text .List(.ListCount - 1, 4) = Sheet1.Cells(I, 5).Text .List(.ListCount - 1, 5) = Sheet1.Cells(I, 6).Text .List(.ListCount - 1, 6) = Sheet1.Cells(I, 7).Text .List(.ListCount - 1, 7) = Sheet1.Cells(I, 8).Text End With Cells(I, 4).Interior.ColorIndex = 3 Cells(I, 4).Font.ColorIndex = 2 Cells(I, 4).Font.Bold = True End If Next I UserForm1.Show End Sub والكود التالي يوضع في حدث الفورم Private Sub CommandButton1_Click() End End Sub Private Sub Image1_Click() UserForm1.PrintForm End Sub Private Sub Image2_Click() UserForm1.PrintPreviewForm End Sub Private Sub UserForm_Activate() lblDate.Caption = Date End Sub أرجو ألا أكون قد أزعجتك .. ولكني أحب أن أرى الأشياء في أجمل صورة لها ، وحتى يستفيد منها من أرد الاستفادة لا أن تكون مجرد ملف مرفق يلقى به في مكانٍ ما ويطويه النسيان أردت الاستفادة للجميع من الملف الرائع ولكن بصورة أفضل تقبل تحياتي

السلام عليكم ورحمه الله وبركاته سؤال عن طريقه تجميع علامات الصح هل يمكن ذلك وشكرا تجميع علامه صح.rar

من المواضيع المتجددة والمفيدة في الحياة العملية وخاصة لأصحاب العقارات، وقد تم طرحه سابقاً، وهي كيفية معرفة العقود التي قاربت على الانتهاء خلال 30 يوماً من خلال الفورم.. تحيـــــــــــــــــــــــاتي القلبيــــــــــــــــــــــة تذكير بتاريخ الانتهاء.rar

ارفاقك للملف دا بالاخص خلاني عرفت انك عارف انا بتكلم علي ايه القلوب عند بعضيها احبيبي ابو العربي عامه انا كدا كدا هارفعهوه لان في مشكله تانيه كبيره ياراجل في ملف برضو 10 ميجا ينفع الكلام دا مشكله ياريت نلاقيلها حل

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

يعنى لازم تحطه على الملاء ياعربى وباعدين انت مش عاوز تحط الشرح ليه ؟

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

chart display idea.rar دبل كليك على العمود في المخطط البياني ومن ثم اختر fill ومن ثم الصورة كما في الشكل التالي:

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

ان شاء الله سوف نجاهد لحل المشكله حتى لو فكينا الاكسيل حته حتى عند الميكانيكى ههههه سوف اقوم بتجربه الكود عند عودتى من مشوار بره بالتوفيق

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

جرب هذا الماكرو Sub sum_of_Many_sheets1() Dim My_sheet As Worksheet Set My_sheet = Sheets("total") x = Sheets.Count My_sheet.Cells(7, 3).Activate For i = 0 To 4 K = 0: s = 0: t = 0 For j = 2 To x t = Sheets(j).Cells(9, 42 + i).Value ' My_sheet.Cells(K + 1, 4) = t K = K + 1 s = s + t Next ActiveCell = s ActiveCell.Offset(1, 0).Activate Next ActiveCell.Delete End Sub

لا يوجد داعي لعمل قسم جديد للبرمجة هو فين المبرمجين ياعم دا يدوب واحد مبتدئ العملية مش مستاهلة الان هو مجرد موضوع ولما ربنا يكرمنا ونحترف نبقي ندور نعمل قسم ؟؟؟؟؟؟ تقبل تحياتي بخصوص النسخة مش هتفرق كل النسخ زي بعض من 2010 2015 قريبين من بعض عادي حتى الاصدارات نفس الشئ ولكن اختلاف طفيف في المظهر العام وان كان ولا بد انا بشتغل على 2012

أحسنت وسلمت يداك والشكر موصول الى الاستاذ سعيد

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then Call kh_Show_UFormChang1 End If '********************************************************** If Target.Column = 5 Then Target.Value = Date Selection.NumberFormat = "yyyy/mm/dd" Target.Offset(0, 1).Select End If If Target.Column = 6 Or Target.Column = 8 Then Target.Value = Target.Offset(-1, 0) Target.Offset(0, 1).Select End If ThisRow = Target.Row If Target.Column = 7 And Range("f" & ThisRow) = "قيد يومية" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("f4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("f4").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "استلام شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g1").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g1").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "قبض نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g2").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g2").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف نقدي" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g3").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g3").Value Target.Offset(0, 1).Select End Select End If If Target.Column = 7 And Range("f" & ThisRow) = "صرف شيك" Then YESNO = MsgBox("رقم المستند جديد ؟", vbYesNo + vbCritical, "Caution") Select Case YESNO Case vbYes Target.Value = Range("g4").Value + 1 Target.Offset(0, 1).Select Case vbNo Target.Value = Range("g4").Value Target.Offset(0, 1).Select End Select End If End Sub وبعدين تعالى هنا قولي : هو أنا لما بطلب فتح موضوع جديد لكل طلب ، بطلب شيء صعب ولا مستحيل .. أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر وفي النهاية كل واحد له مطلق الحرية لفعل ما يريد ولن أطلب فتح موضوع جديد مرة أخرى إذا كان هذا يضايق الأعضاء ، وسأدعهم يفعلوم ما يريدون ..

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

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

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

اسال الله لك العفو والعافيه وان يجمعنا فى جنة الخلد مع النبيين والصديقين والشهداء الأطهار

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

أخي الحبيب سعيد بيرم شايف الرقم 2 في السطر التالي Range(Cells(LR + 1, "B"), Cells(LR + 2, "C")) = "" غيره خليه 4 وجرب وشوف

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar

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

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

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

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

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

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

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

أخي الحبيب أحمدأنا بس بحب أناغشك وأهزر معاك .. ولد من دمياط بيقول أبوه عايز جنيه .. رد ابوه وقاله : عاااااااااااااايز نص جنيه ، هتعمل ايه بالربع جنيه ، معايا بريزه تاخد شلن وتسيب شلن!! تقبل تحياتي

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

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

شوفولي هالبرنامج و إدعولي وما بدي أذكركم هاي برامج مجمعة من مواقع ومنتديات ، يعني مش أنا إلي عاملها وبشكر أصحاب هذه البرامج لأنها راح تكون مفيدة للجميع إنشاء الله wzbackup.zip

وهنا المزيد المزيد ،،،، سأقوم بوضع برامج بشكل يومي وبشكل كبير ، ، ، بس أهم شي زي ما وصيتكم الردود و الدعاء accarch154.zip accarch161.zip

وهنا برامج أخرى ،،،،، لا تنسونا بالدعاء زي ما وصيتكم ، ، ، accarch179.zip accarch171.zip