7

Gỡ bỏ toàn bộ hyperlink trong file Excel

[Cập nhật] : Tôi đã cập nhật thêm cách làm cho file PowerPoint, cũng tương tự nhưng đoạn mã VB thì hơi khác một tí.

Hôm nay tôi nhận được comment cho bải viết Mở trang văn bản xem lần cuối và gỡ bỏ tất cả hyperlink trong Word hỏi về cách gỡ bỏ tất cả hyperlink trong … Excel. Thực ra hồi xưa lúc viết bài này tôi đã nghĩ đến vụ này rồi nhưng chưa tìm hiểu. Sẵn hôm nay có bạn hỏi nên tôi trả lời nó trong một bài viết riêng.

Việc gỡ bỏ hyperlink trong tập tin Excel không đơn giản như trong Word. Để làm được việc này, bạn cần phải thực hiện 2 công đoạn :

1. Bật thanh công cụ Developer của Excel để chạy Macro
Bấm vào biểu tượng office ở góc trên bên trái và chọn “Excel Options” > Hộp thoại hiện ra bạn chọn “Show Developer tab in the Ribbon”

Gỡ bỏ toàn bộ hyperlink trong file Excel

Bấm OK để đóng lại. Và bạn sẽ thấy thẻ “Developer” xuất hiện như hình sau :

Gỡ bỏ toàn bộ hyperlink trong file Excel

2. Viết một dòng code bằng Visual Basic
Giờ bạn hãy bấm vào nút “Visual Basic” trên thanh công cụ Developer, cửa sổ hiện ra bạn nhấp chuột phải vào “Microsoft Excel Objects” như trong hình > chọn Insert > chọn Module.

Gỡ bỏ toàn bộ hyperlink trong file Excel

Một cửa sổ hiện ra, bạn dán đoạn mã sau vào đó :

Sub RemoveHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub

Như hình sau :

Gỡ bỏ toàn bộ hyperlink trong file Excel

[Cập nhật] : Nếu là file PowerPoint thì bạn sử dụng đoạn mã sau :

Sub DeleteLinks()
Dim oSl As Slide
Dim x As Long
For Each oSl In ActivePresentation.Slides
For x = oSl.Hyperlinks.Count To 1 Step -1
oSl.Hyperlinks(x).Delete
Next
Next
End Sub

Sau đó vào menu File và chọn “Close and return to Microsoft Excel”.

Gỡ bỏ toàn bộ hyperlink trong file Excel

Bấm vào nút “Macros” ở thẻ Developer, hộp thoại sau hiện ra :

Gỡ bỏ toàn bộ hyperlink trong file Excel

Macro “RemoveHyperlinks” đã được chọn sẵn và bạn chỉ việc bấm nút Run. Kết quả là toàn bộ hyperlink trong file Excel đều được gỡ bỏ.

Gỡ bỏ toàn bộ hyperlink trong file Excel

Lúc bạn lưu lại file Excel này, nó sẽ hiện ra hộp thoại :

Gỡ bỏ toàn bộ hyperlink trong file Excel

Bạn chọn Yes để không phải lưu kèm cái Macro vừa mới tạo.

7 Comments

  1. hien tran

    hehe thanks bạn nhìu nha!
    hôm qua lúc hỏi bạn mình cần gấp quá nên cũng phải tự tìm hiểu, cách làm giống như của bạn nhưng nhanh hơn chút:
    Alt + F11 để mở Visual Basic, Insert-> Module, dán đoạn mã giống của bạn, -> File-> Close and return to Microsoft Excel.
    sau đó vào thẻ View chọn Macro-> Run. Done! :)

    p/s: Like blog bạn lắm lắm ấy >:D<

    Reply

    • Anonymous

      Có người sẽ like bạn này. HE HE.

      Reply

    • anhhangxom

      :cungly:

      Reply

  2. huynhQtri

    Mình chỉ dùng powerpoint thôi. có cách gì cho powerpoint k?

    Reply

    • anhhangxom

      Đã cập nhật lại bài viết, bạn xem thử nhé :) . Cách làm thì y chang, chỉ khác ở chỗ đoạn mã mà thôi.

      Reply

  3. Trần Nguyễn Việt Tuyền

    Xin chào các cao thủ,
    Tôi gặp vấn đề sau, nhờ các cao thủ chỉ giáo:
    Có 1 fiel excel trên server được tôi tạo rất nhiều Hyperlink đến các file PDF khác cũng ở trên server đó. Do Windows của tôi bị lỗi nên phải cài lài toàn bộ máy tính, dĩ nhiên là cài mới bộ office 2010. Trước đó Hyperlink có dạng như sau:
    File:///\IC3server\IC3data(E)\16. LETTERS (REGISTRY)\letter pdf\incoming\From JVC
    Nhưng sau khi cài lại máy tính thì link đổi thành:
    C:\Documents and Settings\Admin\letter pdf\incoming\From JVC
    Xin hỏi có cách nào khôi phục lại các hyperlink như củ không hoặc làm sao lưu lại các hyperlink trước khi cài lại máy tính?
    Xin cám ơn các cao thủ đã quan tâm.

    Reply

  4. Vo Van Phi

    Thank you very much, it is very very usefull

    Reply

Leave a Reply