PDA

View Full Version : Can not get rid of "Do you want to Save changes"



hernandj
02-25-2013, 06:44 AM
Thanks in advance for helping.
This is my code. Very simple. I want the user to be able to close without the option or message to save". I want to simply close with no option, i.e. click on close and go away

On Error GoTo 0
Cells.Select
Selection.Delete Shift:=xlUp
Workbooks.Open Filename:="\\xxx\Public2\Manufacturing\PMJobs.xls"
Range("Y3:Y3").Select
Selection.AutoFilter
End Sub
Sub auto_close()
ThisWorkbook.Saved = True
ActiveWorkbook.Saved = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
' Workbooks("PMJobs.XLS").Close SaveChanges:=False

Rob342
02-25-2013, 02:09 PM
Try

Sub auto_close()
ThisWorkbook.Save
ActiveWorkbook.Save
'Application.DisplayAlerts = False
ActiveWorkbook.Close False
'Application.DisplayAlerts = True
' Workbooks("PMJobs.XLS").Close SaveChanges:=False