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



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





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

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



12-10-2018 01:55 مساء
yehya mahmoud
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-10-2018
رقم العضوية : 8303
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 13-1-1969
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 24
الاعجاب : 7
 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
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13381
الاعجاب : 4952
 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

أثارت هذه المشاركة إعجاب: ali mohamed ali، محمد الدسوقى، Eslam Abdullah،




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

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

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


أثارت هذه المشاركة إعجاب: Eslam Abdullah،




13-10-2018 05:59 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13381
الاعجاب : 4952
 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

أثارت هذه المشاركة إعجاب: yehya mahmoud، محمد الدسوقى، Eslam Abdullah،




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

أثارت هذه المشاركة إعجاب: محمد الدسوقى، YasserKhalil، Eslam Abdullah،




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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اعمل شاشة دخول برنامجك بنفسك Yasser Elaraby
10 886 aboseaveen
طلب عمل شاشة دخول بكلمة المرور اباالياس
5 163 اباالياس
شاشه دخول للاكسيل بالفورم Osmanko
1 188 Osmanko
عمل فورم استدعاء منه بيانات من شيت وطباعة مباشرة بدون دخول الى شيت بيانات malik
4 450 malik
اسهل واسرع طريقة لتغيير خلفية اليوزرفورم بدون الدخول الى محرر الاكواد بطريقة ديناميكية emad ghazi
4 609 YasserKhalil

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


 







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



الساعة الآن 05:42 صباحا

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