تعديل كـود صلاحية المستخدمـين

[tiger2016]

السلام عليكم 

بعد اذن السادة الافاضل كنت عاوز اعمل على شيت فاتورة المبيعات اكتر من مستخدم

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

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Or UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then
Application.Visible = True
UserForm1.Hide

If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Then
Sheets("sheet5").Select
End If
If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then
Sheets("sheet1").Select
End If

بس لما بدخل بيدخلنى على نفس الشيت مش مفعل الكود كويس  والكود ده موجود فى اليوزرفورم بالضغط على submit 

ممكن حد يصحح لى الخطأ  ولكم جزيل الشكر 

 اسم المستخدم admin

الباسورد 2020

المشاركة لطلب واحد فقط ... طالما تحصلت عليه وجب غلق المشاركة لعدم التشتيت

شيت فاتورة مبيعات .xlsm

[حسين مامون]

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

If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Then
Sheets("الرئيسية").Activate
End If

وهذا ايضا

If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then
Sheets("فاتورة").Select
End If

 

[Ali Mohamed Ali]

بارك الله فيك استاذ حسين _ بعد اذنك ولإثراء الموضوع .. على ان يكون ايضاً الكود بهذا الشكل

Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Or UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then
Application.Visible = True
UserForm1.Hide

If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Then
Sheet5.Select
End If
If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then
Sheet1.Select
End If

Else
MsgBox "بـرجاء مراجـعـة اســم المستخدم وكلمـة المـرور", , "Error"
Label4.Caption = Label4.Caption - 1
If Label4.Caption = 0 Then
ThisWorkbook.save
Application.Quit
End If
End If
End Sub

شيت فاتورة مبيعات .xlsm