مشكلة اليوزر فورم باسم المستخدم وكلمة المرور

معلش اخى العزيز كنت مسافر والايام دى بسافر ومعنديش نت وبدون اللاب
الامر وما فيه انك لم تعرف الشيت الخاص باستدعاء البيانات وعليه اذا كان شيت id هو المفعل عمل الفورم جيدا واذا كان شيت غير هو المفعل لم يعمل باس الدخول لانه سيبحث في العمود a من الشيت الاكتف
وعلية جرب هذا التعديل

واليك الكود بعد التعديل
Private Sub CommandButton1_Click()
Dim user As String
Dim pass As String
user = TextBox1.Text
pass = TextBox2.Text
Dim x As Integer
Dim sh As Worksheet

Set sh = Sheets("id")
x = 3
Do While sh.Cells(x, 1).Value <> ""
   If sh.Cells(x, 1).Value = user And sh.Cells(x, 2).Value = pass Then
   MsgBox "أهلا وسهلا يا " & " " & username, , " كشف الموظفين"""
   End
   ad.Show
   Else
   x = x + 1
   End If
Loop
MsgBox "Please check you username or Password!"
'ActiveWorkbook.Close True
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
End Sub

عزيزى شككتنى انظر الصور اعمل زر لظهور الفورم فى جميع اوراق الشيت وجرب انظر الصور