Close workbook

[Chandrasheka]

Hi,

How to reset application.displayalerts to True. because here excel will close then further code will not execute.
How to taggle this?

Sub Picture80_Click()
conf = MsgBox("Do you want to exit", vbOKCancel, "Confirm to Exit")
If conf = 1 Then
If Workbooks.Count = 1 Then
Application.DisplayAlerts = False
Application.Quit
Else
Application.DisplayAlerts = False
ThisWorkbook.Close False
End If
End If
End Sub

[austenr]

Maybe:


Sub Picture80_Click()
conf = MsgBox("Do you want to exit", vbOKCancel, "Confirm to Exit")
If conf = 1 Then
If Workbooks.Count = 1 Then
Application.DisplayAlerts = False
Application.Quit
Else
Application.DisplayAlerts = False
ThisWorkbook.Close False
End If
End If
Application.DisplayAlerts = True
End Sub

[Chandrasheka]

Hi,

Its shows application display alert. Please let me know why?

Thanks

Chandra Shekar

Sub Picture80_Click()
conf = MsgBox("Do you want to exit", vbOKCancel, "Confirm to Exit")
If conf = 1 Then
If Workbooks.Count = 1 Then
Application.DisplayAlerts = False
Application.Quit
Else
Application.DisplayAlerts = False
ThisWorkbook.Close False
End If
End If
Application.DisplayAlerts = True
End Sub

[Chandrasheka]

Any suggestions pls

[Bob Phillips]

What shows application display alert? Explain more clearly.

[Chandrasheka]

Hi XLD GA,

Here I am closing active workbook. If worbook count if 1 I am closing whole excel application itself. If workbook count more than 1 I am closing active workbook. Here my problem is
1) I should ignore applications display alerts
2) I should reset application display alerts to true.

In the above code its not happening when it enters last endif again it shows application display alerts whether to save workbook or not. How to come out this. Please let me know.

Thanks

Chandra Shekar


Sub Picture80_Click()
conf = MsgBox("Do you want to exit", vbOKCancel, "Confirm to Exit")
If conf = 1 Then
If Workbooks.Count = 1 Then
Application.DisplayAlerts = False
Application.Quit
Else
Application.DisplayAlerts = False
ThisWorkbook.Close False
End If
End If
Application.DisplayAlerts = True
End Sub

[Chandrasheka]

Hi,

Any suggestion pls.

Thanks

Chandra Shekar

[Aussiebear]

To my way of thinking you need to have the Application.Quit and Workbook close nested inside of the DisplayAlerts False/True statements, not having the DisplayAlerts partly hidden inside of the sub sections.

[Charlize]

Something like this ?
Sub Picture80_Click()
conf = MsgBox("Do you want to exit", vbOKCancel, "Confirm to Exit")
If conf = 1 Then
If Workbooks.Count = 1 Then
ThisWorkbook.Close False
Application.Quit
Else
ThisWorkbook.Close False
End If
End If
End SubCharlize

[kroz]

you could always nest them nice and tidy but it looks redundant


If conf = 1 Then
If Workbooks.Count = 1 Then

Application.DisplayAlerts = False
ThisWorkbook.Close False
Application.Quit
Application.DisplayAlerts = True
Else
ThisWorkbook.Close False

[Chandrasheka]

Hi,

I tried below code if workbook count is 1. Its closing workbook but its not coming to msgbox showing msg "AA" and its not quiting application. Please let me know what is the problem in the code.

Sub Picture80_Click()
conf = MsgBox("Do you want to exit", vbOKCancel, "Confirm to Exit")
If conf = 1 Then
If Workbooks.Count = 1 Then
Application.DisplayAlerts = False
ThisWorkbook.Close False
Application.Quit
Application.DisplayAlerts = True
Else
Application.DisplayAlerts = False
ThisWorkbook.Close False
End If
End If
MsgBox "AA"
Application.DisplayAlerts = True
End Sub

[Aussiebear]

Should you have elipses ( ) around the message?