السماح لزر في الفورم بالعمل

[النهر العطشان]

السلام عليكم ارجو المساعده في الملف المرفق

وهو عند الضغط على زر الحاسبة لاتضهر حاسبة الوندوز ألا بعد ادخال الباسوورد فيقوم بالسماح بعمل زر الحاسبة .

وشكرا

test 2.rar

[محمدنجار]

15 minutes ago, النهر العطشان said:

السلام عليكم ارجو المساعده في الملف المرفق

وهو عند الضغط على زر الحاسبة لاتضهر حاسبة الوندوز ألا بعد ادخال الباسوورد فيقوم بالسماح بعمل زر الحاسبة .

:: تفضل

test 2_UP.rar

[النهر العطشان]

السلام عليكم

استاذي الفاضل انا احتاج ان يكون زر الباسوورد منفصل عن زر الحاسبة وذلك لايقاف مجموعه من الازرار عن طريق زر الباسوورد وبذلك لا احتاج ان اضع كود الباسوورد عند كل زر .

وشكرا

[محمدنجار]

7 minutes ago, النهر العطشان said:

 

استاذي الفاضل انا احتاج ان يكون زر الباسوورد منفصل عن زر الحاسبة وذلك لايقاف مجموعه من الازرار عن طريق زر الباسوورد وبذلك لا احتاج ان اضع كود الباسوورد عند كل زر .

:: وما المطلوب الان ؟

test 3_UP.rar

[النهر العطشان]

استاذي الفاضل

اريد عند ادخال الباسوورد الصحيح في زر الباسوورد كما في الصورة المرفقة

بعدها عند الضغط على الزر الحاسبة تعمل

 

[Shivan Rekany]

استأذن من استاذنا @محمدنجار 

الان, النهر العطشان said:

اريد عند ادخال الباسوورد الصحيح في زر الباسوورد كما في الصورة المرفقة

بعدها عند الضغط على الزر الحاسبة تعمل

اتفضل

غيرت خاصية زر الحاسبة Enabled = no

واستخدمت هذا الكود لزر تشغيل الحاسبة

Private Sub أمر17_Click()
    X = InputBox("ادخل كلمة السر الصحيحة", "تنبيه")
        If X = 1 Then
            Cancel = MsgBox("كلمة السر صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه")
                Me.Command26.Enabled = True
            Else: MsgBox "كلمة السر غير صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه"
                Me.Command26.Enabled = False
        End If
End Sub

اتفضل مع القاعدة

 

test 3_UP.rar

[النهر العطشان]

السلام عليكم

شكر الى الاستاذ محمدنجار  والاستاذ شفان ريكاني على الاجابة

بالنسبة لجواب الاستاذ شفان ريكاني :

فقد تم تجربة الكود المرسل من قبله مشكورا

لكن هل يمكن تغيير خاصية زر عن طريق كود ليكون اكثر امانا من تغييره في الفورم

[Shivan Rekany]

الان, النهر العطشان said:

لكن هل يمكن تغيير خاصية زر عن طريق كود ليكون اكثر امانا من تغييره في الفورم

حسب فهمي لطلبك

تقدر تستخدم هذا الكود عند فتح النموذج

Me.Command26.Enabled = False

 

تم تعديل يونيو 13, 2017 بواسطه Shivan Rekany

[النهر العطشان]

الى الاستاذ محمدنجار  والاستاذ شفان ريكاني المحترمون

هذا هو المطلوب

جعلها الله في ميزان حسناتكم

[MAK4]

فكرة جميلة جدا