Message box dead end!

[Akashwani]

Hi,

I keep trying and searching BUT,
I have the following problem..

I want the user to click YES to enter the workbook.
If they click NO, I want the workbook to close.

This is what I have so far...

Dim t As Date
Private Sub Workbook_Open()
Dim s As String
ans = MsgBox("Do you want to Enter?", vbYesNo, "My Workbook?")
If ans = vbYes Then
End If
How do I get the workbook to close if they click NO?
s = InputBox("To Login In Enter your first name")
t = Now
Const strRightAnswer As String = "Ottawa"
Dim strAnswer As String
While Not (strRightAnswer = strAnswer)
strAnswer = InputBox("What is the capital of Canada?")
If Not (LCase(strRightAnswer) = LCase(strAnswer)) Then MsgBox "Incorrect answer please try again."
Wend
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "You have been active for " & Format(Now - t, "nn") & " minutes and " & Format(Now - t, "ss") & " seconds."
Dim res
res = MsgBox(" Have you finished?", vbYesNo)
If res <> vbYes Then Cancel = True
End Sub


Thanks for you time.

Ak

 

[Andrew Poulsom]

Try:

If ans = vbNo Then
    ThisWorkbook.Close False
End If

 

[GTO]

Unless you are using "ans" someplace else, try:

If Not MsgBox("Do you want to enter?", _
              vbYesNo + vbQuestion, "My Workbook") = vbYes _
                Then ThisWorkbook.Close False

 

[Akashwani]

Thanks for the replies.
This forum never fails to help this novice.

Both work BUT,
When NO is clicked the "time box" and "have you finished box" appear.
Is it possible to click NO and the workbook closes straight away?

Thanks

Ak

 

[GTO]

At the top of ThisWorkbook module:

Dim bolOpening as Boolean

In the opening event code:

    If Not MsgBox("do you etc...", vbYesNo + vbQuestion, "") = vbYes Then
        bolOpening = True
        ThisWorkbook.Close False
    End If

In the BeforeClose code, surround the current stuff that you don't want done with:

If Not bolOpening Then
 
    '...Statements...
 
End if

 

[Akashwani]

GTO,
Thanks very much, It was spot on.

Ak

 

[GTO]

You betchya and glad it worked!

Have a great day,

Mark