پرسش فرم لاگین در اکسل

[yuri]

درود دوستان
من یه فرم لاگین تهیه کردم ولی بعدش نمیدونم که چیکار کنم وقتی فایل اکسل رو باز میکنم این یوزر فرم لاگین بیاد و ورود کنم بعدش فایل اکسل رو بیاره
یه مشکل دیگه هم هست که وقتی برای اولین بار رمز رو میزنم نشونش میده و وقتی که دوبار رو چک باکس "نمایش رمز عبور" میزنم * میشه "*" من میخوام که همون اول "*" بشه

Private Sub CheckBox1_Click()If UserForm1.CheckBox1.Value = False ThenUserForm1.TextBox2.PasswordChar = "*"ElseUserForm1.TextBox2.PasswordChar = EmptyEnd If
End Sub
Private Sub CommandButton1_Click()If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2017 ThenMe.HideMsgBox ("welcome")ElseMsgBox ("Wrong username or password")End If
End Sub 

[generalsamad]

با سلام
فایل ضمیمه را مشاهده کنید

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub 

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = False Then
    UserForm1.TextBox2.PasswordChar = "*"
Else
    UserForm1.TextBox2.PasswordChar = Empty
End If
End Sub
Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2017 Then
    Me.Hide
    MsgBox ("welcome")
    Application.Visible = True
Else
    MsgBox ("Wrong username or password")
    Application.Visible = False
End If
End Sub 

فایل ضمیمه گردید

[yuri]

ممنون
از بابت ** دار نشون دادن رمز هیچ فرقی نکرد اول باید دو بار رو نشان دادن رمز بزنم تا بعدش ** دار بشه

با سلام
فایل ضمیمه را مشاهده کنید

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub 

Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = False Then
    UserForm1.TextBox2.PasswordChar = "*"
Else
    UserForm1.TextBox2.PasswordChar = Empty
End If
End Sub
Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2017 Then
    Me.Hide
    MsgBox ("welcome")
    Application.Visible = True
Else
    MsgBox ("Wrong username or password")
    Application.Visible = False
End If
End Sub 

فایل ضمیمه گردید

[generalsamad]

فایل ضمیمه شده رو مشاهده کردید؟
شما باید توی فرمتون روی تکست باکس دوم که مربوط به پسورد هست در تنظیمت تکست باکس مقدار PasswordChar رو * قرار دهید این به منظور این هست که مقدار پیشرض تکست باکس برای هر کارکتر * نشان داده شود

[yuri]

از همین کد شما استفاده کردم ولی باز برای اولین بار رمز ** دار نمیشه و باید دو بار روی چک باکس کلیک کنم تا ** دار بشه

فایل ضمیمه شده رو مشاهده کردید؟
شما باید توی فرمتون روی تکست باکس دوم که مربوط به پسورد هست در تنظیمت تکست باکس مقدار PasswordChar رو * قرار دهید این به منظور این هست که مقدار پیشرض تکست باکس برای هر کارکتر * نشان داده شود

[generalsamad]

با سلام
فایل نمونه ای که قرار دادم چنین مشکلی رو نداره
حتما در فایل خودتون این موضوعی که گفتم رو رعایت نمیکنید

[میثم مقدم نیا]

از همین کد شما استفاده کردم ولی باز برای اولین بار رمز ** دار نمیشه و باید دو بار روی چک باکس کلیک کنم تا ** دار بشه

سلام
شما فایل نمونه خودتون را قرار بدید تا چک کنیم ببینم مشکل از اکسل شماست یا برنامه ای که با ماکرو ساختید .و در صورت نیاز در اون تغییرات را اعمال کنیم