المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب

المشاركة الأصلية كتبت بواسطة: gedo_hafs

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

بالنسبة للمشكلة الى فاهما من كتابتك حاليا هى كود الدخول  من النظر للكود ستجد ان الملف عند فتحه يكون شيت المبيعات هو المفعل او الاكتف والكود الخاص بك لم يعرف الخلايا التى سيبحث فيها لانك كاتب cells والصح 1- يا اما تفعل شيت الباسورد عند فتح البرنامج عن طريق 

Private Sub Workbook_Open()
Application.Visible = False
Dim sh As Worksheet
Set sh = Sheets("اسم المستخدم")
sh.Activate
Form.Show
End Sub

في حدث thisWorkbook او وافضل 2- غير السطور الحالية بالكود القديم لديك

Dim username As String
Dim password As String


username = TextBox1.Text
password = TextBox2.Text

Dim x As Integer
x = 2
Dim sh As Worksheet
Set sh = Sheets("اسم المستخدم")
Do While sh.Cells(x, 1).Value <> ""
If sh.Cells(x, 1).Value = username And sh.Cells(x, 2).Value = password Then
MsgBox "welcome"
Me.Hide
Form1.Show
End
Else
x = x + 1
End If
Loop
MsgBox "wrong username or password or poth of them"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus

اما باقي الطلبات اعرضها بموضوع اخر كل طلب مع شرحه بالتفصيل ونصيحة اخيرة اجعل الاسم البرمجي لورقة العمل بدلا من ورقة1  اجعلها sheet1 واذا كانت لغة الاوفس عندك عربي مع كل اضافة لشيت جديد غير الاسم  طيب ليه اقولك بيختصر اكواد مثلا في الطريقة 1 هتكتفي انك تقول 

Private Sub Workbook_Open()
Application.Visible = False
sheet1.Activate
Form.Show
End Sub

والتانية 2- 

Do While sheet1.Cells(x, 1).Value <> ""
If sheet1.Cells(x, 1).Value = username And sheet1.Cells(x, 2).Value = password Then

وفي النهاية اتمنى ان اكون قد اوضحة سبب المشكلة بالكود الذى لديك تحياتى وتقديرى

المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب

المشاركة الأصلية كتبت بواسطة: عبدالجيد »

استاذ محمود اين تعليقاتك الجميلة ونصائحك عندك موضوعين جديدين فى أولى فيديوهاتى فى الاكسس

اسف لم اخ