محمود_الشريف

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

الأخ الكريم // سالم العمل على التخمين أمر قد يشوبه الخطأ وأري من الأفضل أن تقوم بعمل الملف من جديد مع نقل كافة الأكواد او نسخها ولصقها ثم احفظ المصنف(الملف) بإمتداد Excel Macro - Enabled Workbook لأنه يبدو لى أن الملف ليس منشأ على الجهاز الذى تعمل عليه

اخى الكريم ضع الكود التالي فى حدث ThisWorkbook Module وهذا الكود ليس لى هو للأستاذ جعفر _(حفظا للحقوق) سيقوم الكود بتشغيل الملف مع بدء تشغيل الجهاز كل ما عليك بعد وضع الكود قم بالحفظ ثم أغلق الملف وقم بإعاده فتحه من جديد تظهر لك الرساله اضغط على زر YES ثم أغلق الملف وأعد تشغيل الجهاز ستجد أن الملف تم وضعه بالقائمة وسيتم تشغيله وهذه الطريقة تغنيك عن الطريقة اليدوية Private Sub Workbook_Open() If MsgBox("Do you want to add this workbook to the Windows startUp ?", vbYesNo + vbQuestion) = vbYes Then AddToWinStartUp Me.FullName, True End If End Sub Private Sub AddToWinStartUp(ByVal File As String, ByVal Add As Boolean) CreateObject("wscript.shell").RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\", IIf(Add, File, vbNullString), "REG_SZ" End Sub أما فيما يختص بالملفات التنفيذية فيجب شراء برنامج لحماية محرر الأكواد ووضع أكواد معينه بخلاف أكواد التنبيه ، وأفضل برنامج موجود بالسوق (لن أذكر اسمه حتى لايكون دعاية ) ثمنه 450 دولار وأرى أنك لا تحتاج إليه بوجود طريقة تشغيل الملف مع بدء تشغيل الجهاز

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

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

أخى الكريم بالمرفقات ما طلبت توضيح (( اليوزرفورم المستخدم )) بعد فتح الملف ، قم بالوقوف على الخلية المراد لصق البيانات بدءا منها ثم من خلال الضغط على زر اضغط هنا يقوم بفتح نافذة حوار من خلالها قم بإختيار الملف المطلوب النسخ منه ثم تقوم بتحديد البيانات أو النطاق المراد نسخ البيانات منه سيظهر النطاق المحدد باليوزرفورم ثم اختر طريقة اللصق التى تفضلها ثم اضغط على زر لصق الملف المطبق به اليوزرفورم v1.xlsm

أعتقد والله أعلم - أخى الكريم / ان المشكلة فى الإعدادات وليست نسخة الأوفيس قد يكون سببها انك استخدمت شفرة برمجية قامت بتغيير الإعدادات الافتراضية ولحل المشكلة من جذورها يجب ان تصل لهذا الملف الذى به تلك الشفرة وتقوم بعكسها أى ارجاعها الى الاعدادات الافتراضية اذا لم تستطع الوصول لها عليك بإلغاء التشغيل التلقائي لتمكين وحدات الماكرو وراجع اعدادات الـ Advanced كالتالي File tab >> click Options >> click Advanced قم بالنزول ال اسفل حتى تجد Display اذا وجدت تحديدا على المربع الذى بجوار جملة Disable hardware graphics acceleration قم بإلغاء التحديد ثم الحفظ واغلق الاكسل واعد فتحه من جديد للعلم هذه إحدى الطرق وقد تنفع معك أو لا ... فى حالة لا قدر الله لم تصلح معك يمكنك تحميل تلك الأداه تصلح لويندوز 7 لتصحيح الأخطاء لتحميل الأداة  اضغط هنا أو يمكنك زيارة الرابط التالي وتجربة عدة طرق لتصيح المشكلة اضغط هنا - docs.microsoft

بعد اذن الأستاذ // علي محمد علي والأستاذ // أبو عيد الأخ الكريم الخطأ رقم 1004 إليك توضيح بسيط عنه بإيجاز (أسبابه) ------------------------------------------------------------------------------------------------------------------------ تعريفه : خطأ في التطبيق أو تعريف الكائن الوصف : هذه رسالة خطأ catch-all شائعة جدًا. لماذا يحدث ؟ : يحدث هذا الخطأ عندما لا يتطابق أحد الأخطاء مع الخطأ المحدد بواسطة VBA . بمعنى آخر ، يتم تعريف الخطأ بواسطة Excel (أو بعض الكائنات الأخرى) ويتم نشر مرة أخرى إلى VBA. ---------------------------------------------------------------------------------------------------------------------- وبما أنك لم تحدد ما هو الخطأ بالكود ال حضرتك كاتبه بطريقة النسخ واللصق ( لذا الكود غير واضح ) فالأفضل رفع الملف لتسهيل العمل عليه ----------------------------------------------------------------------------------------------------------------- أو اذا اردت التعامل مع الخطأ بنفسك قم بتشغيل الكود وعندما تظهر لك رسالة الخطأ اضغط على كلمة Debug سيقوم بفتح المحرر وسيقوم قاريء المحرر تلقائيا بتحديد سطر ووضع خلفية باللون الأصفر عليه قم بإلغاء التحديد بالضغط على أيقونة Reset ( شكلها مربع بلون ازرق) بجوار زر الـ Run الأخضر من شريط المهام بالأعلي بأيقونة ثم حاول تصحيح الخطأ

اذا كان اصدار ماك لديك تحت رقم 15.40 يلزم تحديث الاصدار للتحديث اذهب الى قائمة المساعدة Excel's Help اختر التحقق من التحديثات Check For Updates بتطبيق AutoUpdate اختر مربع Insider program واستخدم Insider Slow للحصول على آخر تحديث اضغط مرة اخري Check For Updates بعد اختيار Insider Slow وجرب تشغيل وحدات الماكرو بعد التحديث

أتقدم بخالص الشكر والتقدير للسيد المهندس // محمد طاهر لموافقته على نشر سلسلة الفيديوهات بالموقع الخاصة بـ ( تعلم لغة الفيجوال بيسك للتطبيقات ) وليس فقط على الموقع بل رحب بنشر تلك السلسلة التعليمية بمجموعة أوفيسنا على الفيس بوك وهذا ليس غريبا عليه ولا على موقع أوفيسنا الذى لا أنسي فضل هذا الموقع على بعد رب العالمين فى تعلم أساسيات لغة الفيجوال بيسك للتطبقات على يد أساتذة أجلاء فى حين أن 21 موقع عربي آخر قمت بمراسلتهم وجميعهم اما ان تهربوا بعدم الرد أو بالرفض بشكل صريح ولا أفهم السبب رغم أن من أصحاب تلك المواقع من أعرفه معرفة شخصية أو تواصلت معه كثيرا عبر الهاتف غير أنهم يرفضون نشر تلك السلسلة التعليمية على جروباتهم على الفيس بوك أو يوافقوا عليها بمضض ويعلم الله عز وجل أننى لا أريد من وراء تلك السلسلة التعليمية سوى نشر العلم ووضع من يرغب فى التعلم على الطريق الصحيح وأن يجعله الله فى ميزان حسناتى يوم القيامة داعيا المولى عز وجل أن يوفقنا جميعا لما يحبه ويرضاه

الأستاذ الكريم // ali mohamed ali جزاكم الله خير الخير #ExcelVBA التهيئة وإعدادات الأمان

بسم الله الرحمن الرحيم السادة // أعضاء المنتدى الكرام السلام عليكم ورحمه الله وبركاته ،،، كل منا يرغب فى تطوير ذاته ، بعدة طرق شتى وهناك الكثير الأسئلة التى تندرج تحت معرفة لغة الفيجوال بيسك للتطبيقات والتى تختصر الى VBA وهناك أيضا الكثير من الأسئلة التى تطرح هنا وهناك حول كيفية تعلم تلك اللغة وكنت أنا ممن يبحثون عن كيفية التعلم ومازلت أتعلم ، فالعلم كل يوم فى تطوير وابتكار وابداع وتفكير مستمر وأحمد الله عز وجل على أننى وصلت لمرحلة متقدمة لحد ما فى هذه اللغة وقررت أن أشارككم معرفتى وحصيلتى العلمية حولها من خلال فيديوهات تعليمية ( برنامج تعليمي ) يبدأ معك من الصفر الى ما لا نهاية وأود أن أشير إلى أننى سأحاول قدر استطاعتى وأسأل الله عز وجل أن يعيننى على ذلك أن أضعك على الطريق الصحيح لسلك درب التعلم ، ولكل مجتهد نصيب ، ( بمعنى عليك بذل المزيد من الجهد والصبر والممارسة فى مراحل التعلم ) لأننى لن أستطيع أن أغطى جميع جوانب اللغة ولكننى سأعطيك دليلا شاملا لتعلم لغة الفيجوال بيسك للتطبيقات "" توجد تدريبات فى نهاية بعض الفيديوهات أتمنى من كل متدرب أن يطبقها ، وأن يطبق كل شىء يتعلمه بدون الممارسة المستمرة لن تتعلم شيئا "" "" للمهتمين : توجد ملاحظات أسفل كل فيديو يرجى قرائتها بعناية "" يمكنك الضغط على العنوان للإنتقال للمشاهدة أو بالضغط على الفيديو لمشاهدته المقدمة

الأخ الكريم سؤالك غير منطقى وغير مفهوم انت تقول ... ((( على سبيل المثال البحث عن تاريخ 5/2/2018 هو تاريخ محصور بين تاريخين فى شيت الاكسل هما من 1/2/2018 : 28/2/2018 وفى المقابل يقوم بعرض البيانات المقابله له فى التكست بوكس المقابله له . على الرغم ان تاريخ 5/2/2018 غير مدرج فى شيت الاكسل ولاكن هو فترة زمنيه محصورة بين تاريخين معينين . ))) فكيف للاكسل ان يجد هذا التاريخ !!!! ؟ وكيف يكون له بيانات وهو غير مدرج !!!! ؟

لا أعلم بالضبط ما هى المشكلة الموجوده لديك ولكنى أقترح بعض الأمور * تأكد من اعدادات الاكسل من File > Options > Add-ins تأكد من وجود الوظائف الاضافية الخاصة بالـ VBA ان لم تكن موجودة عليك بتثبيتها من موقع مايكروسوفت * تأكد من اظهار قائمة Developer ( المطور ) * تأكد من وجود مسار الحفظ الخاص بالملفات التى تحتوى على ماكرو وهو Excel Macro - Enabled Workbook من خلال حفظ اى مصنف بأسم جديد مع تغيير نوع مسار الملف ان لم يكن هذا المسار موجود ( فلديك مشكلة بنسخة الأوفيس الموجودة لديك ، ولا ينفع تسطيب نسخة أوفيس جديدة الا بعد عمل فورمات فى هذه الحالة )

أخى الكريم يمكنك التعديل بكل سهولة عند الضغط على ALT+F11 يظهر محرر الأكواد اضغط على نموذج الفورم المسمى Toumana الموجود على يسار النافذة ، تظهر الفورم ومن خلالها يمكنك تغيير ما تريد الشعار موجود فى أعلى الفورم بالمنتصف وهو بداخل Image1 بالضغط عليها كليك يسار ثم اختر خصائص تظهر لك نافذة تجد على يسار النافذة الجديدة كلمة picture وبجوارها بالجانب الأيمن عند الضغط عليها تظهر نافذة إختر الصورة المطلوبة من جهازك (( الشعار )) أما البيانات يمكنك الكتابة مباشرة بعد تحديد الكتابة الحالية