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”

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

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.

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 :

[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”.

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

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ỏ.

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

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

Previous

Cười-chút-chơi

Next

Status-của-tui