كود اسم مستخدم وكلمة المرور

[ابو حمادة]

السلام عليكم ورحمة الله تعالي وبركاته

الاخوة الاعضاء الكرام

عندي استفسار بسيط اتمنى حد يساعدني علي فهمه هذا الكود

علما ان الكود يعمل جيدا وبشكر الاخ الفاضل ابو عيد علي مجهوده في هذا الكود

الكود

On Error GoTo 88
If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l50"), 2, 0) = TextBox1.Text Then
'Me.Hide
Form1.Show
 Else
88
Label7 = Label7 + 1
MsgBox " áÞÏ ÇÓÊÎÏãÊ  " & Label7 & " ãÍÇæáÉ ãä ÇÕá  5  ãÍÇæáÇÊ", vbCritical, "elmalak_elhazen_yasser@yahoo.com"
If Label7 = 5 Then
MsgBox "áÞÏ ÇÓÊäÝÐÊ ÌãíÚ ÇáãÍÇæáÇÊ"
ActiveWorkbook.save
ActiveWorkbook.Close
End If
End If

 

اريد فقط كيف يتم تغيير العمود     a2

واستبداله بالعمود                      cb2

علما ان اسم المستخدم سوف يوضع في الخليه  cb2 والباس ورد في الخليه  cA2    

اتمني كيفيه تعديل الكود لفهم هذا الكود

وجزاكم الله خيرا

 

[ياسر العربى]

تفضل اخي الغالي الموضوع الاصلي

http://www.officena.net/ib/topic/65092-شرح-عمل-صلاحيات-للدخول-على-شيتات-داخل-ملف-الاكسيل/

كيفية التعديل غير ما تريد في هذا السطر

If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l50"), 2, 0) = TextBox1.Text Then

بدل النطاق من a2:i50  الى ما تريده ca2:cb50 مثلا

 

تم تعديل ديسمبر 17, 2015 بواسطه ياسر العربى