CODE đóng thông báo của EXcel

[nmhung49]

Xin cho mình hỏi làm sao để đóng thông báo của excel khi nó hiện lên thông báo bạn có muốn save mình có đính kèm file. Mình co ghi macro được 1 đoạn code sau mong các bạn và anh chị giúp mình rút ngắn lại đoạn code này và đây là đoạn code mình run nó hiện thông báo. Thật sự thì đoạn code này sử dụng cũng được nếu được rút ngắn thì tốt. Thanks

Sub AutoShape10_Click()
Workbooks.Open Filename:="D:\1311002.csv"
    Columns("E:K").Select
    Selection.Copy
    Windows("checkoverdue.xls").Activate
    Sheets("data").Select
    Columns("D:D").Select
    Range("D5696").Activate
    ActiveSheet.Paste
    Windows("1311002.csv").Activate
    Application.CutCopyMode = False
    Application.CommandBars("Task Pane").Visible = False
    ActiveWindow.Close
    Workbooks.Open Filename:="D:\GBM1800C.csv"
    Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="2"
    Columns("A:E").Select
    Selection.Copy
    Windows("checkoverdue.xls").Activate
    Columns("L:L").Select
    Range("L5696").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("GBM1800C.csv").Activate
    Application.CutCopyMode = False
    Application.CommandBars("Task Pane").Visible = False
    ActiveWindow.Close
    Sheets("report").Select
    Range("C3").Select
End Sub

 

[ptlong04x1]

Xin cho mình hỏi làm sao để đóng thông báo của excel khi nó hiện lên thông báo bạn có muốn save mình có đính kèm file. Mình co ghi macro được 1 đoạn code sau mong các bạn và anh chị giúp mình rút ngắn lại đoạn code này và đây là đoạn code mình run nó hiện thông báo. Thật sự thì đoạn code này sử dụng cũng được nếu được rút ngắn thì tốt. Thanks

Sub AutoShape10_Click()
      Application.DisplayAlerts = False 
      
      ...............................................

      Application.DisplayAlerts = True 
End Sub

Bạn thêm 2 dòng này vào đầu và cuối đoạn code của bạn, nếu bạn muốn chỉnh lại code thì nên đưa file lên đây và nêu rõ yêu cầu.

 

[ptm0412]

Bạn thử thêm dòng màu đỏ cho thông báo lưu file csv

....
Windows("GBM1800C.csv").Activate
    Application.CutCopyMode = False
[COLOR="Red"]    ActiveWorkbook.Saved = True[/COLOR]
    ActiveWindow.Close
.....