تعديل على هذا الكود CheckBox

[الجموعي]

الرجاء تعديل على هذا الكود

الكود يعمل عند الضغط على CheckBox واقوم بإدخال كلمة المرور وتطلع لي رسالة كلمة مرور صحيحة ولكن نافذه إدخال كلمة السر تظهر من جديد وأنا أريدها عند الضغط فقط:

مثلا القيمة true في CheckBox وعند إدخال كلمة المرور تختفي الصفوف المختارة

وعندما تكون القيمة false في CheckBox تظهر الصفوف المخفية

Private Sub CheckBox1_Click()
Dim PASS As String: PASS = "1234"
With CheckBox1 = 1
If Application.InputBox("تصريح دخول الرجاء إدخال كلمة المرور حتى تتمكن من مشاهدة البيانات") <> PASS Then
MsgBox (" عفوا كلمة المرور غير صحيحة ")
Else
MsgBox (" كلمة المرور صحيحة ")
Call Hidden1
End If
End With
With CheckBox1 = 0
If Application.InputBox("تصريح دخول الرجاء إدخال كلمة المرور حتى تتمكن من مشاهدة البيانات") <> PASS Then
MsgBox (" عفوا كلمة المرور غير صحيحة ")
Else
MsgBox (" كلمة المرور صحيحة ")
Call Hidden0
End If
End With
End Sub

وهذا كود ثاني

Private Sub CheckBox1_Click()
Dim PASS As String: PASS = "1234"
With CheckBox1 = 1
If Application.InputBox("تصريح دخول الرجاء إدخال كلمة المرور حتى تتمكن من مشاهدة البيانات") <> PASS Then
MsgBox (" عفوا كلمة المرور غير صحيحة ")
Else
MsgBox (" كلمة المرور صحيحة ")
Call Hidden1
End If
End With
If CheckBox1 = 0 Then
Call Hidden0
End If
End Sub

pass.rar

[ibn_egypt]

اخى الفاضل

 

أين الملف الذي به الأكواد هذه ... أرفق الملف أفضل

 

تحياتي  

[ibn_egypt]

اخى الفاضل

 

تفضل الملف بعد التعديل ... لعله المطلوب

 

تحياتي  

pass.rar

[الجموعي]

اخى الفاضل

 

أين الملف الذي به الأكواد هذه ... أرفق الملف أفضل

 

تحياتي  

 

تم إضافة المرفق استاذي في المشاركة 1

[ibn_egypt]

 

اخى الفاضل

 

أين الملف الذي به الأكواد هذه ... أرفق الملف أفضل

 

تحياتي  

 

تم إضافة المرفق استاذي في المشاركة 1

 

 

وتم تعديل المشاركة 3 باضافة الملف بعد التعديل

 

تحياتي

[الجموعي]

اخى الفاضل

 

تفضل الملف بعد التعديل ... لعله المطلوب

 

تحياتي  

فعلا هو المطلوب أستاذي ياريت شرح بسيط لهذه الجزئية

GoTo 1

1 End Sub

[ibn_egypt]

 

فعلا هو المطلوب أستاذي ياريت شرح بسيط لهذه الجزئية

GoTo 1

1 End Sub

 

يعني اذهب الى رقم 1 ... وبعدها على طول ليس هناك اكواد اخري بل End Sub مباشرة .. حتى ينهي الكود ولا يكمل الأسطر المتبقية ... ليس بالضرورة 1 ممكن 2 او اى رقم ... مجرد اشارة لسطر كود يذهب اليه وهناك اعضاء افاضل يكتبون مكانها Exit Sub ...  اتمنى ان تكون المعلومة وضحت

 

تحياتي  

[الجموعي]

 

 

فعلا هو المطلوب أستاذي ياريت شرح بسيط لهذه الجزئية

GoTo 1

1 End Sub

 

يعني اذهب الى رقم 1 ... وبعدها على طول ليس هناك اكواد اخري بل End Sub مباشرة .. حتى ينهي الكود ولا يكمل الأسطر المتبقية ... ليس بالضرورة 1 ممكن 2 او اى رقم ... مجرد اشارة لسطر كود يذهب اليه وهناك اعضاء افاضل يكتبون مكانها Exit Sub ...  اتمنى ان تكون المعلومة وضحت

 

تحياتي  

بارك الله فيك استاذي على التوضيح

استاذي عند كتابة رقم سر خاطى تظهررسالة بان كلمة المرو خاطئة عند الضغط على موافق تظهر البيانات وتختفي بسرعة هل لاحظت ذلك

هل فيه إمكانية لعدم ظهور البيانات

[ibn_egypt]

 

بارك الله فيك استاذي على التوضيح

استاذي عند كتابة رقم سر خاطى تظهررسالة بان كلمة المرو خاطئة عند الضغط على موافق تظهر البيانات وتختفي بسرعة هل لاحظت ذلك

هل فيه إمكانية لعدم ظهور البيانات

 

 

لم الاحظ ذلك عندى اطلاقا اخى الجموعي