السلام عليكم ورحمة الله أخي مصطفى هلال وأهلا بيك بين اخواتك
أولا" من تعليمات الموقع ان يكون اسم العضو باللغة العربية
وللتسهيل على الاخوة حتى يستطيعوا مساعدتك ان ترفق ملف للعمل علية
واخيرا" تفضل اخي المرفق علة يفي بالغرض
mywael.rar
اخي قلم الأكسيل الملف يعمل بالطريقتين طريقة اخي ياسر واخي رمهان
قد يكون لديك مشكلة بالاكسيل
معلومة: كانت لدي مشكلة مع الاكسيل ولم استطع حلها الا عندما قمت بعمل يوزر جديد ومسحت اليوزر القديم
الحروف المعكوسة.rar
اخي محمد لعل الاخوة افادوك كما تريد لكن اود ان اوجه نظرك لمسألة ان التنسيقات الكثيرة في ملف ما تضاعف المساحة وتثقل الملف فانتبة الا تفرط في استخدامها كثيرا
ولية تصعبها على نفسك شوف كدة المحاولة في الملف المرفق اضغط على الزرار اللي في الصفحة ح يظهر الفورم عملت لك تيكست بوكس في اول بند وحطيت ليبل على زر الادخال جرب وشوف كان مناسب اتبع نفس المنطق
Desktop.rar
الحمد لله اللذي بنعمته تتم الصالحات
ومبروك عليك ان وجدت ضالتك وأشكرك على أطرائك اللذي لا أستحقه فأنا مجرد متعلم مثلك
نسأل الله ان ينفعنا بما علمنا وان يفتح علينا ويهيء لنا من امرنا رشدا
{رَّبِّ أَدْخِلْنِي مُدْخَلَ صِدْقٍ وَأَخْرِجْنِي مُخْرَجَ صِدْقٍ وَاجْعَل لِّي مِن لَّدُنكَ سُلْطَاناً نَّصِيراً}
يعني نسخة الموديول وبعدين نسخت
Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub
Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub
Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub
في thisworkbook