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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil اكثر من 350 لعبة فلاش للأطفال مجمعه في برنامج واحد Y-GAMES اكسيل اسئله واجابات


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



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





تعديل كود دخول المستخدم

ارجو المساعدة فى تعديل الكود التالى لجعل الاكسيل يكون Application.Visible = True وذلك إذا كان المستخدم quot;احمدquot; أ ..



12-10-2018 01:55 مساء
yehya mahmoud
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 53
الاعجاب : 0
 offline 

ارجو المساعدة فى تعديل الكود التالى لجعل الاكسيل يكون  Application.Visible = True وذلك إذا كان المستخدم "احمد"
أما أى مستخدم أخر Application.Visible = False 
وذلك لأن البرنامج يفتح على
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
        Application.Visible = False
            SplashForm.Show
        Application.Visible = True
    Application.ScreenUpdating = True
End Sub
ولكم جزيل الشكر

 






13-10-2018 09:19 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6450
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17734
الاعجاب : 452
 offline 
look/images/icons/i1.gif تعديل كود دخول المستخدم
أخي الكريم يحيى
جرب الكود التالي واستبدل Future بالاسم "أحمد"
Private Sub Workbook_Open()
    With Application
        .ScreenUpdating = False
            .Visible = (Application.UserName = "Future")
            SplashForm.Show
        .ScreenUpdating = True
    End With
End Sub





13-10-2018 05:30 مساء
مشاهدة مشاركة منفردة [2]
yehya mahmoud
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 53
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل كود دخول المستخدم
اشكرك يا استاذ ياسر على الاهتمام وبارك الله فى علمك .
انا نفذت الكود ولكن تقريباً انا لم استطيع توضيح طلبى جيداً فأرجوا أن أوفق فى التويح التالى :-
احمد هو من يريد أن يدخل على مصنف الإكسيل مباشرة بعد كتابة اسمه و الباسورد الخاص به و هى 456
اما محمد أو أى مستخدم أخر يجب أن يعمل من خلال الفورم فقط وبدون إتاحة المصنف له و كلمة المرور لمحمد 123
وإليك ملف العمل ليتضح الأمر
ولك جزيل الشكر ,,,

 
 
 
  user.rar   تحميل rar مرات التحميل :(6)
الحجم :(47.019) KB

سبب التعديل : اضافة






13-10-2018 05:59 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6450
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17734
الاعجاب : 452
 offline 
look/images/icons/i1.gif تعديل كود دخول المستخدم
جرب الكود بهذا الشكل
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("ورقة1").Select
    Dim user As String
    Dim pass As String
    Dim y As Integer
    user = ComboBox1.Value
    pass = TextBox1.Value
    x = 3
    Do While Cells(x, 1) <> ""
        If Cells(x, 1) = user And Cells(x, 2) = pass Then
            If user = "احمد" Then Unload Me: Application.Visible = True: Exit Sub
            Range("a1").Value = ComboBox1.Value
            Unload Me
            main.Show
            End
        Else
            x = x + 1
        End If
    Loop
    MsgBox "عفواً تأكد من كلمة السر"
    ComboBox1.Value = ""
    TextBox1.Value = ""
    Application.ScreenUpdating = True
End Sub





13-10-2018 06:30 مساء
مشاهدة مشاركة منفردة [4]
yehya mahmoud
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 53
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل كود دخول المستخدم
أنا مش عارف أشكرك حضرتك ازاى 
فعلاً التعديل اللى عملته على الكود أوفى بالمطلوب اللى كنت أتصوره
فلك كل التقدير و الاحترام





13-10-2018 08:58 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6450
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17734
الاعجاب : 452
 offline 
look/images/icons/i1.gif تعديل كود دخول المستخدم
بارك الله فيك أخي الكريم يحيى
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات





20-10-2018 12:56 مساء
مشاهدة مشاركة منفردة [6]
yehya mahmoud
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 53
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل كود دخول المستخدم
استاذ ياسر أرجو المعذرة
فى حالة حماية ورقة1 كيف يكون تعديل الكود






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم حضور وانصراف عاملين واذن خروج ودخول مجدى يونس
27 707 مجدى يونس
شرح كيفية عمل فورم من خلال دخول ارقام فى خانة المرتب وعدم زيادة تاريخ العام الجذء الرابع مجدى يونس
2 179 مجدى يونس
كيفية الغاء الرسائل الظاهرة عند الدخول للاكسيل حسين مامون
2 162 حسين مامون
عمل فورم استدعاء منه بيانات من شيت وطباعة مباشرة بدون دخول الى شيت بيانات malik
6 1092 YasserKhalil
سؤال الغاء الدخول الى محرر الاكواد من AltوF11 Omar2
2 181 ali mohamed ali

الكلمات الدلالية
تعديل ، دخول ، المستخدم ،


 







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



الساعة الآن 01:51 مساء

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