ياسر خليل أبو البراء

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

الأخ عاشق الإسلام ضع الأسطر التالية في أول الكود وسيتم حل المشكلة بإذن المولى Dim StopTimer As Boolean Dim Etime As Single Dim Etime0 As Single Dim LastEtime As Single

الأخ أيمن قد تكون مشكلتك مرتبطة بنظام الأوفيس الذي تم تنصبيه هل هو 32 بت أم 64 بت؟ يرجى رفع الملف الذي فيه مشكلة لمعرفة إذا ما كان الملف شغال أم لا عند الأعضاء

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

الحمد لله أن تم الحل هل يمكنك إرفاق الملف للفائدة أخي الحبيب

تفضل أخي الحبيب : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C18:C2014")) Is Nothing Then Select Case Target Case 1 Target = "اولي ابتدائي" Case 2 Target = "ثانية ابتدائي" Case 3 Target = "ثالثة ابتدائي" Case 4 Target = "الصف الرابع" Case 5 Target = "الصف الخامس" Case 6 Target = "الصف السادس" Case 7 Target = "الصف السابع" Case 8 Target = "الصف الثامن" Case 9 Target = "الصف التاسع" End Select End If End Sub

بارك الله فيك على المجهود الرائع

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

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

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

تصحيح الخطأ في الكود الذي تفضلت به : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.OnKey "{F12}", "" End Sub

السلام عليكم أخي الغالي تفضل المرفق التالي فيه تعطيل وتمكين زر F12 Disable F12.rar

ما المشكلة في الدالة VLookup طالما أنها تؤدي الغرض؟

بارك الله فيك أخ حماده باشا ...

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله الذي بنعمته تتم الصالحات

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

أخي الحبيب المشكلة في إدخال البيانات لديك (قمت بعمل بحث عن (أ.نفسى مساعد) فوجدت أن هناك واحد فقط في العمود D ثم وجدت أن كلمة (اعدادى) في العمود M بعدها مسافة (قم بإزالة المسافة أولاً) جرب هذه المعادلة في الخلية C6 =SUMPRODUCT((DATA!$D:$D=$C$3)*(DATA!$M:$M=$B6))

أخي الغالي جرب الملف التالي الملف يقوم بعمل حفظ كل 10 ثواني AutoSave Every 10 Seconds.rar

بدون أكواد أخي الحبيب قم بالضغط على Office Button ثم Excel Options ثم من القائمة على اليسار اختر Save ثم ستجد خيار عليه علامة صح اسمه Save AutoRecover Information every ثم حدد الوقت المراد عمل حفظ الملف طبقا له بشكل أوتوماتيكي (الافتراضي كل 10 دقائق ) غير القيمة بما يناسبك ثم OK بس خلاص

ببساطة شديدة هذه المعادلة تكتب في الخلية M7 =IF(K7=0;"";K7)

عفواً اخي الغالي أبو حنين لم ألاحظ مشاركتك (سبقني بها عكاشة)

أخي الحبيب قم بتحديد جميع خلايا ورقة العمل من خلال النقر على المربع الصغير (تقاطع الصفوف والأعمدة) كليك يمين بعد تحديد الخلايا ثم Format Cells ثم انقر التبويب Protection وقم بإزالة علامات الصح من الخيارين Locked و Hidden ثم OK قم بتحديد الخلايا ونفس الخطوات السابقة ، ثم قم بوضع علامات الصح على الخيارين المذكورين في الخطوة السابقة ثم OK الآن قم بتحديد الخلية B1 وكليك يمين عليها ثم Format Cells ثم Protection ثم أزل علامات الصح من الخيارين ثم OK قم بالنقر على التبويب Review ثم اضغط على Protect Sheet ثم اكتب كلمة المرور ثم OK ثم أعد كتابتها مرة أخرى ثم OK بس خلاص

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

الملف أخي الغالي بالفعل ظهرت لي الرسالة المزعجة التي أرهقتك ، وقمت بتجربة أول حل قدمته لك وتم حل المشكلة بكل بساطة جرب مرة أخرى من Office Button اختر Excel Options ثم Trust Center ثم Trust Center Settings ثم Privacy Options ثم Document Inspector ثم حاول في تجريب الخيارات الموجودة ، وإن شاء المولى تنحل المشكلة شيل علامة الصح من الخيار Remove personal information from file properties on save