أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




تعديل فورمه ..

بسم الله الرحمن الرحيم احبابنا في الله حفظكم الله واعانكم هذا ملف به فورمه عندما اضغط على زر نسخ صفوف تظهر فورمه بها مك ..



24-08-2017 11:49 مساء
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
بسم الله الرحمن الرحيم
احبابنا في الله
حفظكم الله واعانكم

هذا ملف به فورمه
عندما اضغط على زر نسخ صفوف
تظهر
فورمه بها مكان لكلمه سر .. 
اذا اردت الرجوع عن هذه الخطوه ارجع واضغط على X 

اما عندما اكتب الرقم السري واضغط موافق
تظهر رساله اخري هل انت موافق ...
هنا المشكله
لو انا اردت العدول عن تنفيذ الكود وضغط على X 
تتم وكاني موافق على تنفيذ الكود .

. عايز في هذه الخطوه يكون فيه امكانيه الرجوع

Private Sub CommandButton1_Click()
    If TextBox1.Text = Sheets("إدخال بيانات أساسية").Range("F1") Then
        Me.Hide
        TextBox1.Text = ""
        MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب"
        
        Application.ScreenUpdating = False
        
        '=*=*=*=*=*=*=*=*=*=*=*=*
        'يستدعى الكود المطلوب تنفيذه
            Call DoIt
        '=*=*=*=*=*=*=*=*=*=*=*=*
           
        Application.ScreenUpdating = True

        Unload Me
    Else
        MsgBox "عفوا كلمة المرور خاطئة و لن يتم تنفيذ المطلوب"
        TextBox1.Text = ""
        TextBox1.SetFocus
    End If
End Sub

Private Sub UserForm_Click()
End Sub

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل فورمه.rar   تحميل rar مرات التحميل :(3)
الحجم :(37.416) KB




توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 01:17 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif تعديل فورمه ..
السلام عليكم أخي العزيز ناصر
ضع السطر التالي بعد سطر رسالة "كلمة المرور صحيحة ....."
If MsgBox("Do you want to continue?", vbQuestion + vbYesNo) <> vbYes Then MsgBox "Cancelled", vbExclamation: Exit Sub




25-08-2017 02:38 صباحا
مشاهدة مشاركة منفردة [2]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
look/images/icons/i1.gif تعديل فورمه ..

Private Sub CommandButton1_Click()
    If TextBox1.Text = Sheets("إدخال بيانات أساسية").Range("F1") Then
        Me.Hide
        TextBox1.Text = ""
        MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب"
        If MsgBox("هل تريد ان تكمل ?", vbQuestion + vbYesNo) <> vbYes Then: Exit Sub
        Application.ScreenUpdating = False
        
        '=*=*=*=*=*=*=*=*=*=*=*=*
        'يستدعى الكود المطلوب تنفيذه فقط
         يعني كتابه اسم الموديول بعد كلمه Call
                       Call DoIt
        '=*=*=*=*=*=*=*=*=*=*=*=*
           
        Application.ScreenUpdating = True

        Unload Me
    Else
        MsgBox "عفوا كلمة المرور خاطئة و لن يتم تنفيذ المطلوب"
        TextBox1.Text = ""
        TextBox1.SetFocus
    End If
End Sub
Private Sub UserForm_Click()

End Sub

يارب امدد اخي النشط ياسر خليل الصحه يارب



توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 08:55 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif تعديل فورمه ..
بارك الله فيك أخي العزيز ناصر ومشكور على دعائك الطيب ، ولك بمثله إن شاء العلي القدير






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
التعديل من خلال الليست بوكس ANASS1
1 27 ANASS1
تعديل كود اختصار الصنف احمد 9598
0 27 احمد 9598
طلب تعديل لشيت حضور وانصراف saberb3a7
0 38 saberb3a7
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
19 977 مجدى يونس
ماكرو بحث وتعديل البيانات oshebly
1 49 oshebly

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 








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

الساعة الآن 06:49 مساء

أعلن هنا
أعلن هنا
أعلن هنا