Private Sub CommandButton2_Click()
If TextBox1 = "robi" Then
MsgBox "welcome"
Application.Visible = True
Unload Me
Unload UserForm1
Else
MsgBox "Wrong Password"
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
ActiveWorkbook.Close True
Application.Quit
End Sub
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
কোন মন্তব্য নেই:
একটি মন্তব্য পোস্ট করুন