This closes without warnings or saving, works well for me:

Sub CloseBook()
'Closes the spread sheet without saving edits

Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

To save changes, change :
ActiveWorkbook.Close ----> ActiveWorkbook.Close savechanges:=True