hướng dẫn xóa sheet không hiện thông báo

[khanhnhuthuong]

từ file này tôi viết code để xóa sheet từ file khác, nhưng mỗi lần xóa đều hiện thông báo, nhờ các bạn hướng dẫn làm cách nào xóa mà không hiện thông báo.
Sub xoasheet()
On Error Resume Next
Dim s As Workbook
strPath = ThisWorkbook.Path
Set s = Workbooks.Open(strPath & "\" & "a.xls")
Sheets("b").Select
ActiveWindow.SelectedSheets.Delete
s.Save
s.Close True
Set s = Nothing
End Sub

 

[ptlong04x1]

Sub xoasheet()
On Error Resume Next
Dim s As Workbook
Application.DisplayAlerts = False ' <-- Thêm vào dòng này
strPath = ThisWorkbook.Path
Set s = Workbooks.Open(strPath & "\" & "a.xls")
Sheets("b").Select
ActiveWindow.SelectedSheets.Delete
s.Save
s.Close True
Set s = Nothing
End Sub

 

[Hai Lúa Miền Tây]

từ file này tôi viết code để xóa sheet từ file khác, nhưng mỗi lần xóa đều hiện thông báo, nhờ các bạn hướng dẫn làm cách nào xóa mà không hiện thông báo.
Sub xoasheet()
On Error Resume Next
Dim s As Workbook
strPath = ThisWorkbook.Path
Set s = Workbooks.Open(strPath & "\" & "a.xls")
Sheets("b").Select
ActiveWindow.SelectedSheets.Delete
s.Save
s.Close True
Set s = Nothing
End Sub

Bạn thâm 2 dòng sau vào:

Sub xoasheet()
On Error Resume Next
Dim s As Workbook
[COLOR=blue]Application.DisplayAlerts = False[/COLOR]
strPath = ThisWorkbook.Path
Set s = Workbooks.Open(strPath & "\" & "a.xls")
Sheets("b").Select
ActiveWindow.SelectedSheets.Delete
s.Save
s.Close True
Set s = Nothing
 [COLOR=blue]Application.DisplayAlerts = True[/COLOR]
End Sub

 

[Hai Lúa Miền Tây]

Sub xoasheet()
On Error Resume Next
Dim s As Workbook
Application.DisplayAlerts = False ' <-- Thêm vào dòng này
strPath = ThisWorkbook.Path
Set s = Workbooks.Open(strPath & "\" & "a.xls")
Sheets("b").Select
ActiveWindow.SelectedSheets.Delete
s.Save
s.Close True
Set s = Nothing
End Sub

Anh nên trả về mặc định cho nó chứ, nếu không rất nguy hiểm cho những lần sau
.Nên thêm Application.DisplayAlerts = True

 

[khanhnhuthuong]

cám ơn các bạn rất nhiều