Giúp code Lưu và thoát cho excel 2007 va 2010 (1 người xem)

[minhtuan55]

Sub luuvathoat()
Application.DisplayFullScreen = False
ThisWorkbook.Save
Application.Quit
Application.DisplayAlerts = True
End Sub

Code trên mình dùng Excel 2003 thì khi bấm vào là nó Lưu và thoát luôn là ok. Còn excel 2007,2010 nó cũng Lưu nhưng không tự thoát ra được mà còn hiện thông báo " Do you want to Save to.... ". Giờ có cách nào cho nó đừng hiện bảng thông báo trên Lưu và thoát ra giống y chang excel 2003 không. Thank

 

[hhoang_56]

Bạn thử code này

Sub Save_Quit()
'Closes the workbook & saves any changes
    ThisWorkbook.Close True
    Application.Quit
End Sub

 

[minhtuan55]

Bạn thử code này

Sub Save_Quit()
'Closes the workbook & saves any changes
    ThisWorkbook.Close True
    Application.Quit
End Sub

Code anh em thử Trên Excel 2003 nó chỉ lưu và thoát của 1 wortbook thôi em muốn nó thoát luôn Excel luôn

 

[hhoang_56]

Code anh em thử Trên Excel 2003 nó chỉ lưu và thoát của 1 wortbook thôi em muốn nó thoát luôn Excel luôn

Nếu vậy, sửa code của bạn lại như sau:

Sub luuvathoat()
      Application.DisplayFullScreen = False
      Application.DisplayAlerts = False
      ThisWorkbook.Save
      Application.DisplayAlerts = True
      Application.Quit
End Sub