طلب بسيط ولكنه يهمني

[طارق_نادر]

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

 

Private Sub CommandButton1_Click()
If Me.TextBox1 = "" Then
MsgBox "من فضلك أدخل كلمة المرور للدخول", vbOKOnly + vbCritical, "كلمة المرور"
Me.TextBox1.SetFocus
GoTo 1
  Else
      Select Case Me.TextBox1.Value
        Case 129806
        MsgBox "مرحباً ...طارق نادر ...  تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا"
        Sheet10.Range("G80").Value = "طارق نادر"
        Sheet12.Range("g80").Value = "طارق نادر"
        Sheet13.Range("g80").Value = "طارق نادر"
        Sheet15.Range("g80").Value = "طارق نادر"
        Sheet16.Range("g80").Value = "طارق نادر"
       
        GoTo 2
       
        Case 100158
        MsgBox "مرحباً ...وصفي أبو عليقة ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا"
        Sheet10.Range("G80").Value = "وصفي أبو عليقة"
        Sheet12.Range("G80").Value = "وصفي أبو عليقة"
        Sheet13.Range("G80").Value = "وصفي أبو عليقة"
        Sheet15.Range("G80").Value = "وصفي أبو عليقة"
        Sheet16.Range("G80").Value = "وصفي أبو عليقة"
       
        GoTo 2
       
        Case 118969
        MsgBox "مرحباً ...عطاالله السعود ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا"
        Sheet10.Range("G80").Value = "عطاالله السعود"
        Sheet12.Range("G80").Value = "عطاالله السعود"
        Sheet13.Range("G80").Value = "عطاالله السعود"
        Sheet15.Range("G80").Value = "عطاالله السعود"
        Sheet16.Range("G80").Value = "عطاالله السعود"
       
        GoTo 2
   
       
       
        Case 129319
        MsgBox "مرحباً ...سعد الشرفات ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا"
        Sheet10.Range("G80").Value = "سعد الشرفات"
        Sheet12.Range("G80").Value = "سعد الشرفات"
        Sheet13.Range("G80").Value = "سعد الشرفات"
        Sheet15.Range("G80").Value = "سعد الشرفات"
        Sheet16.Range("G80").Value = "سعد الشرفات"
       
        GoTo 2
   
       
        Case 159819
        MsgBox "مرحباً ...نايف الفواعرة ... تفضل بالدخول", vbOKOnly + vbInformation, "مرحبا"
        Sheet10.Range("G80").Value = "نايف الفواعرة"
        Sheet12.Range("G80").Value = "نايف الفواعرة"
        Sheet13.Range("G80").Value = "نايف الفواعرة"
        Sheet15.Range("G80").Value = "نايف الفواعرة"
       
        GoTo 2
       
        Case Else
         MsgBox "نأسف انت لست من أعضاء القسم ... حاول مرة ثانية", vbCritical + vbOKOnly, "كلمة مرور خاطئة"
         Me.TextBox1 = ""
         Me.TextBox1.SetFocus
         GoTo 1
      End Select
End If

2:
Application.Visible = True
Unload Me
1 End Sub

Private Sub CommandButton2_Click()
Unload Me
Application.Quit
End Sub

[طارق_نادر]

للرفع رفع الله مقداركم  

[ibn_egypt]

اخى الفاضل

 

حسب ما فهمت .. انسخ الكود التالى بأكمله والصقه اسفل الكود الموجود لديك

Private Sub UserForm_Initialize()
Me.TextBox1.SetFocus
End Sub

تحياتي  

[طارق_نادر]

جمايلك كترت كتير الله ينصرك انت غالي عندي كتييييييير دائما دقيق وعلاجك شافي تماما