[حل شده] نحوه اجرای فرم دوم بعد از برقرار نبودن شرط در فرم اول

[a.heidari]

سلام دوستان
من یه فرم دارم که قبل از ورود به فایل اکسل یک کلمه به عنوان شرط ورود رو چک میکنه اگر کلمه درست تایپ شده بود فایل باز میشه ولی اگر اشتباه بود فرم دوم رو باز نمیکنه که بگه کلمه ورود اشتباه بوده. در اصل توی این قضیه طریقه اجرا شدن خود به خودی فرم دوم بعد از اینکه شرط برقرار نبود گیر افتادم. لطفا اگر کسی میتونه بگه اشکال کارم کجاست. یا حتی به جای فرم دوم هم چطور میشه پیغام خطا از طریق MsgBox صادر کنم.
متشکرم

کد هایی که نوشتم اینهاست.

Private Sub CommandButton1_Click()
If TextBox1.Value = "admin" Then
Application.ActiveWorkbook.Application.Visible = True
Unload Me
End If
End Sub


Private Sub TextBox1_Enter()
If TextBox1.Value = "admin" Then
Application.ActiveWorkbook.Application.Visible = True
Unload Me
If TextBox1.Value <> "admin" Then
UserForm2.Show
End If
End If
End Sub

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

سلام دوستان
من یه فرم دارم که قبل از ورود به فایل اکسل یک کلمه به عنوان شرط ورود رو چک میکنه اگر کلمه درست تایپ شده بود فایل باز میشه ولی اگر اشتباه بود فرم دوم رو باز نمیکنه که بگه کلمه ورود اشتباه بوده. در اصل توی این قضیه طریقه اجرا شدن خود به خودی فرم دوم بعد از اینکه شرط برقرار نبود گیر افتادم. لطفا اگر کسی میتونه بگه اشکال کارم کجاست. یا حتی به جای فرم دوم هم چطور میشه پیغام خطا از طریق MsgBox صادر کنم.
متشکرم

کد هایی که نوشتم اینهاست.

Private Sub CommandButton1_Click()
If TextBox1.Value = "admin" Then
Application.ActiveWorkbook.Application.Visible = True
Unload Me
End If
End Sub


Private Sub TextBox1_Enter()
If TextBox1.Value = "admin" Then
Application.ActiveWorkbook.Application.Visible = True
Unload Me
If TextBox1.Value <> "admin" Then
UserForm2.Show
End If
End If
End Sub

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

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

سلام دوستان
من یه فرم دارم که قبل از ورود به فایل اکسل یک کلمه به عنوان شرط ورود رو چک میکنه اگر کلمه درست تایپ شده بود فایل باز میشه ولی اگر اشتباه بود فرم دوم رو باز نمیکنه که بگه کلمه ورود اشتباه بوده. در اصل توی این قضیه طریقه اجرا شدن خود به خودی فرم دوم بعد از اینکه شرط برقرار نبود گیر افتادم. لطفا اگر کسی میتونه بگه اشکال کارم کجاست. یا حتی به جای فرم دوم هم چطور میشه پیغام خطا از طریق MsgBox صادر کنم.
متشکرم

کد هایی که نوشتم اینهاست.

Private Sub CommandButton1_Click()
If TextBox1.Value = "admin" Then
Application.ActiveWorkbook.Application.Visible = True
Unload Me
End If
End Sub


Private Sub TextBox1_Enter()
If TextBox1.Value = "admin" Then
Application.ActiveWorkbook.Application.Visible = True
Unload Me
If TextBox1.Value <> "admin" Then
UserForm2.Show
End If
End If
End Sub

اگه منظور شما را درست متوجه شه باشم

شما با تغییر در کد اولتون میتونید این کار را انجام دهید و نیازی به کد دو هم نیست

Private Sub CommandButton1_Click()

If TextBox1.Text <> "admin" Then

MsgBox "لطفا نام کاربري را وارد کنيد", vbOKOnly + vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "خطا"
Unload Me
UserForm2.Show
Exit Sub
End If

If TextBox1.Value = "admin" Then
Application.ActiveWorkbook.Application.Visible = True
Unload Me
End If
End Sub 

در کد بالا هم پیغام براتون گذاشتم هم باز شدن یوزر فرم دیگر بسته به نیاز خود هر کدوم را خواستید حذف کنید

[a.heidari]

سلام جناب مقدم نیا
از راهنمایی شما متشکرم
با ترکیب
if
else
و صدور پیغام خطایی که شما زحمت کشیده بودید مشکل حل شد.
و جالبتر اینکه با همون ترکیب در روش دیگری به جای صدور پیغام خطا هم توانستم فرم دوم را نمایش بدم.