Hỏi cách xoá Formating Style cứng đầu.

Chia sẻ bởi:hands

★★★★★

‹ Code macro xóa Define name trong excel Khoá & mở khoá Workbook, Sheet, VBAProject,... ›

Quảng cáo

Tôi có 1 số file Excel gốc từ Korea (Office tiếng Korea), không biết bằng cách nào mà có đến trên 6 trăm mấy chục formating Style.
Dùng ASAP tôi đã xoá được trên 600, chỉ còn lại 12 Custom Style là cứng đầu không xoá được.
Xoá bằng tay thì nút Delete bị disable, không làm được.
Vậy xin hỏi có cách nào diệt được lũ củ sâm bất trị này hay không?
Xin cám ơn.

Em dùng code này:

Sub Test()
Dim i As Long
On Error Resume Next
With ActiveWorkbook
For i = .Styles.Count To 1 Step -1
If .Styles(i).BuiltIn = False Then
.Styles(i).Locked = False
.Styles(i).Delete
End If
Next
MsgBox .Styles.Count
End With
End Sub
Tuy nhiên mỗi lần chạy code xong phải đóng và lưu file, xong, mở file rồi chạy code lại lần nữa… rồi lại đóng và lưu file.. Đến khi nào kiểm tra thấy chẳng còn mấy ông nội nữa thì thôi