[حل شده] مشکل با فرم لاگین

[a.dal65]

با سلام خدمت اساتید
من میخواستم برروی userform خودم ، لاگین فرم بزارم . و از تو اینترنت اینو پیدا کردم و درستش کردم:
http://www.onlinepclearning.com/excel-userform-login-form

حالا توی فایل ، یوزر a با پسورد a تعریف کردم.
وقتی همین ها رو وارد میکنی درست کار میکنه و لاگین میشه . ولی وفتی یوزو رو مثلا abمیزنی باز هم لاکین میشه!!!!!

[Amir Ghasemiyan]

با سلام خدمت اساتید
من میخواستم برروی userform خودم ، لاگین فرم بزارم . و از تو اینترنت اینو پیدا کردم و درستش کردم:
http://www.onlinepclearning.com/excel-userform-login-form

حالا توی فایل ، یوزر a با پسورد a تعریف کردم.
وقتی همین ها رو وارد میکنی درست کار میکنه و لاگین میشه . ولی وفتی یوزو رو مثلا abمیزنی باز هم لاکین میشه!!!!!

سلام دوست عزیز
خط های ۴۴ و ۴۵ کد CommandButton1 رو بصورت زیر اصلاح کنید

'If PName = Code Then 'Use this for passcode text
If PName = Code And PName.Offset(0, -1) = user Then ' Use this for passcode numbers only

[a.dal65]

ممنون
حالا اگه بخوام در ستون Time ، بجای تاریخ میلادی وساعت ، تاریخ شمسی و ساعت ثبت بشه چیکار کنم ؟
و

توی Userform1 نام کاربری که لاگین کرده نمایش داده بشه (با یه Lable مثلا)

ممنون

[Amir Ghasemiyan]

ممنون
حالا اگه بخوام در ستون Time ، بجای تاریخ میلادی وساعت ، تاریخ شمسی و ساعت ثبت بشه چیکار کنم ؟
و

توی Userform1 نام کاربری که لاگین کرده نمایش داده بشه (با یه Lable مثلا)

ممنون

خب برای اون از توابع شمسی ساز که به پروژتون اضافه کردین استفاده کنید. خط های ۲۹ و ۴۸ رو به اینصورت تغییر بدین:

AddData.Offset(0, 1).Value = J_TODAY(1) & " " & Format(Now, "hh:mm")

برای اینکه تو فرم بعدی اسم کاربر بیاد این کدها رو برای فرم userform1 قرار بدین.

Private Sub UserForm_Initialize()
Label1.Caption = "welcome " & Sheet5.Range("K2").Value
End Sub