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:
PHP:
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
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:
PHP:
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
Trước tiên khi chép cái Autpen, xin vui lòng xóa trước 2 name Print_Area trước đi, vì thử đóng mở có hơn 30 lần nó còn 2 name đó liên tục, thế là phải Macro Security --> High
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:
PHP:
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
Chời ơi là chời, name ít thì xóa tay, cần gì code. Nếu có hàng trăm, nghìn name rác, thử hỏi cái nào nhanh hơn.
Nhờ giúp mà sao không có chút gì mang ơn.
Bạn muốn xóa lẹ, chỉ dùng Excel2007 trở lên thì sẽ lẹ hơn, tuy nhiên do file của bạn bị nhiễm virus nên có rất nhiều name bị ẩn, bạn phải cho hiện hình lên trước:
Sub hienname()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Visible = True
Next
End Sub
Sau đó bấm Ctrl+F3 để hiện hộp name, bạn chọn name đầu tiên, sau đó giữ shift và chọn name cuối cùng nó sẽ phủ khối toàn bộ name, sau đó bấm vào nút Delete là xóa hết ngay lập tức!
Sau đó bấm Ctrl+F3 để hiện hộp name, bạn chọn name đầu tiên, sau đó giữ shift và chọn name cuối cùng nó sẽ phủ khối toàn bộ name, sau đó bấm vào nút Delete là xóa hết ngay lập tức!
Có 1 cách bắt chước theo bài xóa Style này: http://www.giaiphapexcel.com/forum/...-Formating-Style-cứng-đầu&p=380671#post380671
Tức là:
- Mở file
- Save As thành đuôi .xlsm
- Đóng file
- Đổi đuôi thành .zip
- Mở file zip, duyệt thư mục xl và copy file workbook.xml ra Desktop
- Mở file workbook.xml bằng Notepad
- Tìm từ khóa definedNames ---> Xóa từ chuổi <definedNames> đến chuổi </definedNames> cuối cùng tìm thấy ---> Tức ở giữa cặp từ khóa này cũng xóa sạch
- Xong, lưu file workbook.xml rồi kéo file trả lại vào file .zip
- Đổi đuôi file .zip thành .xlsm
- Mở file và kiểm tra
----------------
Nói có vẻ dài dòng chứ làm chỉ trong vòng 30s là xong!
Nếu như các file đó do mình làm ra hoặc mình sử dụng thì đơn giản rồi.
Bên cty nhận cái file đó từ 1 công ty khác gửi khoảng 300 người cty mình, rồi mỗi người chỉnh lại chuyển mail lòng vòng.
Bây giờ hầu như toàn cty rồi, thỉnh thoảng có một số người không mở được. Các file excel định dạng 2003.
Mình cũng dùng tools VirusMacroWarning nhưng vẫn không thành (nó cho xoá, cho lưu lại nhưng mở lại thì nó lại còn)
Để khắc phục mình phải làm như sau:
Dùng excel 2007 mở lên vào manage name xoá hết name đi, và save as với định dạng 2007 mới được chứ nếu lưu đè lên file 2003 thì mở ra nó còn lại.
Nhưng khổ nổi là ở cty mình có hơn một nữa (400 users) dùng excel 2003.
Ý tưởng của mình là xin code xoá Define name một cách hoàn hảo rồi làm add-ins, sau đó đứng trên server áp xuống tất cả các máy con một lần luôn. Nếu khi mở excel lên có Define name thì xoá luôn mình không cần phải sửa từng file của từng máy.
Ý tưởng của mình là xin code xoá Define name một cách hoàn hảo rồi làm add-ins, sau đó đứng trên server áp xuống tất cả các máy con một lần luôn. Nếu khi mở excel lên có Define name thì xoá luôn mình không cần phải sửa từng file của từng máy.
Dám cá với bạn là KHÔNG CÓ CODE NÀO GỌI LÀ HOÀN HẢO CẢ!
Gặp những name "cứng đầu" code cũng đành chịu thôi
Tôi đang nghĩ ý tưởng xây dựng code dựa trên thao tác của bài #13 nhưng còn gặp nhiều khó khăn quá
Dám cá với bạn là KHÔNG CÓ CODE NÀO GỌI LÀ HOÀN HẢO CẢ!
Gặp những name "cứng đầu" code cũng đành chịu thôi
Tôi đang nghĩ ý tưởng xây dựng code dựa trên thao tác của bài #13 nhưng còn gặp nhiều khó khăn quá
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
Dạ em cám ơn Thầy ạ.
Code của thầy chạy hoàn hảo ạ. Em có 1 file tầm 20 sheet, cũng tầm 500 name, mà chạy code 1 lượt là xong hết.
Chúc Thầy thật nhiều sức khỏe ạ.
Thật sự mới tham gia diễn đàn GPE được 1 tuần, mà đã được các thành viên xử lý giúp cho 4 lỗi rồi. Diễn đàn rất bổ ích.
Híc, các bạn bày cách thao tác dán code này ntn với, mình không biết bắt đầu thao tác từ đâu cả. Đi sâu vào các ngôn ngữ lập trình của excel mình k biết gì hết trơn hết.
các bạn bày cách thao tác dán code này ntn với, mình không biết bắt đầu thao tác từ đâu cả. Đi sâu vào các ngôn ngữ lập trình của excel mình k biết gì hết trơn hết.
pen, xin vui lòng xóa trước 2 name Print_Area trước đi, vì thử đóng mở có hơn 30 lần nó còn 2 name đó liên tục, thế là phải Macro Security --> High
