Xóa Macro trong excel (2 người xem)

[love04]

File này của em nó bị mấy cái macro gì đó nhưng em ko biết xóa như thế nào cả. Khi ấn Ctrl+H thì ko được vào cửa sổ Replace được. Mọi người giúp em với.
http://www.mediafire.com/view/39mn6uq6v3h57n8/Book1.xls

 

[Hong.Van]

File này của em nó bị mấy cái macro gì đó nhưng em ko biết xóa như thế nào cả. Khi ấn Ctrl+H thì ko được vào cửa sổ Replace được. Mọi người giúp em với.
http://www.mediafire.com/view/39mn6uq6v3h57n8/Book1.xls

Bạn mở file Excel ở trên lên
Bấm Alt+ F8, chọn Macro1, chọn Option...
có phần Shotcut Key Ctrl+h, bạn bỏ chữ h là ok
--------------
Trong file của bạn name rác rất nhiều

 

[love04]

Ko xóa hẳn cái macro 1, 2, 3, 4 đó đi được ạ

 

[love04]

name rác thì xóa như thế nào ạ, em xem trên mạng thấy bảo vào Name error để xóa, nhưng trong đó ko thấy có tên nào cả

 

[Quang_Hải]

name rác thì xóa như thế nào ạ, em xem trên mạng thấy bảo vào Name error để xóa, nhưng trong đó ko thấy có tên nào cả

Copy code này vào chạy thử coi có xoá được name rác không

Sub Xoa_Name_Rac()
On Error Resume Next
Dim NSh As Name, Wb As Workbook
For Each Wb In Workbooks
    For Each NSh In Wb.Names
        If InStr(1, NSh.RefersToR1C1, "#") > 0 Or _
           InStr(1, NSh.RefersToR1C1, "\") > 0 Then
            NSh.Visible = True
            NSh.Delete          
        End If
    Next
Next
End Sub

 

[love04]

Copy code này vào chạy thử coi có xoá được name rác không

Sub Xoa_Name_Rac()
On Error Resume Next
Dim NSh As Name, Wb As Workbook
For Each Wb In Workbooks
    For Each NSh In Wb.Names
        If InStr(1, NSh.RefersToR1C1, "#") > 0 Or _
           InStr(1, NSh.RefersToR1C1, "\") > 0 Then
            NSh.Visible = True
            NSh.Delete          
        End If
    Next
Next
End Sub

OK xóa được anh ạ, file nặng thì hơi lâu một chút nhưng xóa được luôn cả cái Macro kia nữa. Thanks anh nhé!