Code macro xóa Define name trong excel

[befaint]

"5" lỗi chứ!

Cái lỗi hôm đó phải tính là 96 lỗi chứ anh. Tổng là 100 lỗi.
Giờ phải đến tiết mục xử phạt rồi.

 

[Phan Thanh Quang]

"5" lỗi chứ!

Lỗi phạm Nội quy nữa!

Chọc cho bạn vui thôi!

Chúc bạn học tập vui với GPE.

Gớm cái bạn này đặt tui vào chế độ theo dõi rồi à? Cảm ơn lời chúc của ban nhé!

 

[Phan Thanh Quang]

Cái lỗi hôm đó phải tính là 96 lỗi chứ anh. Tổng là 100 lỗi.
Giờ phải đến tiết mục xử phạt rồi.

Mèng ời, bảng tính của bạn chắc bị lỗi rùi, hihi.

 

[hanhkhat2007]

Được nhưng phải kiên nhẫn:
Dùng code này:

Sub DelNames()
  Dim N As Name
  On Error Resume Next
  With ActiveWorkbook
    For Each N In .Names
      N.Delete
    Next
    MsgBox .Names.Count
  End With
End Sub

- Chạy code xong, để ý MsgBox
- Đóng và lưu file
- Mở lên và chạy lại code ---> Để ý MsgBox sẽ thấy số name có giảm
- Tiếp tục đóng và lưu file.. rồi lại mở file và chạy code
vân vân... đến khi sạch thì thôi
-------------
Để công việc nhẹ nhàng hơn, ta sửa code thế này:

Sub Auto_Open()
  Dim N As Name
  On Error Resume Next
  Application.DisplayAlerts = False
  With ActiveWorkbook
    For Each N In .Names
      N.Delete
    Next
    MsgBox .Names.Count
    If .Names.Count Then .Close True
    Application.DisplayAlerts = True
  End With
End Sub

Xong!

Thầy có thể giúp em với trường hợp không mở được name manager không ạ? tức là ấn vào manager không ra hộp thoại. Chạy code của Thầy thì excel reset ạ