Xóa Trang tính và tránh Excel yêu cầu người dùng xác nhận, bằng cách sử dụng thông báo tùy chỉnh thay vì

Question

Tôi có nút kích hoạt chuỗi sự kiện. Một trong những sự kiện này là để xóa một trang tính. Trước khi anh ta xóa bất cứ điều gì, tôi bật lên tin nhắn YES/NO tùy chỉnh của tôi yêu cầu anh ta xác nhận toàn bộ quá trình.

Sau đó, đến sự kiện phụ xóa trang tính và Excel yêu cầu thông báo riêng của mình để xác nhận việc xóa trang tính. Vấn đề là nếu anh ta nói không vào thời điểm đó, điều đó đặt ứng dụng của tôi ở trạng thái không nhất quán.

Làm cách nào để bỏ qua Excel yêu cầu xác nhận xóa của trang tính?

Answer 1

Bạn có thể thay đổi hiển thị mặc định tham số cảnh báo của Excel sử dụng:

Application.DisplayAlerts = False 

đừng quên để khôi phục lại các hành vi tiêu chuẩn ở phần cuối của quá trình của bạn:

Application.DisplayAlerts = True 

Answer 2

ĐẾN XÓA TẤT CẢ CÁC BẢNG CÓ BẢNG BÁO CÁO "BÁO CÁO" **

Dim NM As String 
Dim CTS As Integer 
Dim CNT2 As Integer 
Dim CNT3 As Integer 
CNT3 = 1 
CNT2 = 1 
CTS = Sheets.Count 
Do Until CNT2 = CTS + 1 
NM = Sheets(CNT3).Name 
If Name = "Report" Then 
Range("A1").Select 
CNT3 = CNT3 + 1 
Else 
Sheets(NM).Select 
Application.DisplayAlerts = False 
ActiveWindow.SelectedSheets.Delete 
Application.DisplayAlerts = True 
End If 
CNT2 = CNT2 + 1 
Loop 

Answer 3

Tôi đã gặp sự cố này khi sử dụng Excel 2016 và đáng ngạc nhiên là DisplayAlerts vô dụng. Không chắc chắn nếu có ai khác đã trải nghiệm điều này. Tôi vẫn không chắc chắn là tại sao, nhưng đọc thread này, theo nhận xét của các phương pháp Worksheet.Delete (here):

Khi bạn xóa một Worksheet, phương pháp này sẽ hiển thị một hộp thoại sẽ nhắc người dùng xác nhận xóa. Hộp thoại này được hiển thị theo mặc định. Khi được gọi trên đối tượng Worksheet, phương thức Delete trả về một giá trị Boolean là False nếu người dùng nhấn Cancel trên hộp thoại hoặc True nếu người dùng nhấn Delete.

Trong Excel 2016, mặc dù Application.DisplayAlerts được đặt thành False, nó vẫn hiển thị cảnh báo sau (hoặc thay vì trước) xóa.

tôi đã không tìm thấy một công việc thực sự xung quanh bài viết nào, vì vậy tôi chỉ đơn giản là làm cho tờ Tôi muốn xóa "biến mất" sử dụng một vòng lặp for each:

Sht.UsedRange.clear For each shp in sht.Shapes shp.Delete Next For each nm in sht.Parent.Names if nm.RefersToRange.Parent is sht then nm.Delete Next sht.visible = xlSheetVeryHidden

(mã là một dự thảo không được kiểm soát ; các lỗi cuối cùng có thể được xử lý với một số ít nhất là on error resume next)

Nó rất lý tưởng, nhưng nó làm những gì tôi cần làm (với chi phí bộ nhớ nhiều hơn, chắc chắn). Có lẽ tôi nên trả lời câu trả lời này thành câu hỏi và xem ai đó có ý tưởng hay hơn cho Excel 2016.