Hướng dẫn ẩn và bỏ ẩn nhiều sheet cùng lúc và Cách loại bỏ liên kết tới file khác bằng VBA

Làm thế nào để  ẩn và bỏ ẩn nhiều sheet cùng lúc và Cách loại bỏ liên kết tới file khác bằng VBA trong Excel một cách nhanh chóng nhất. Hãy đọc bài viết dưới đây do eLib biên soạn để tìm cho mình được câu trả lời chính xác nhất nhé.

Hướng dẫn ẩn và bỏ ẩn nhiều sheet cùng lúc và Cách loại bỏ liên kết tới file khác bằng VBA

1. Phương pháp ẩn và bỏ ẩn nhiều sheet cùng lúc bằng VBA

1.1. Bỏ ẩn tất cả các Sheet

Sub Unhide_AllSheet() 'Bỏ ẩn tất cả các Sheet
Dim ws As Worksheet
On Error Resume Next 'Bỏ qua các lỗi có thể xảy ra
'Bỏ ẩn các sheet
For Each ws In Sheets
ws.Visible=True
Next
'Vô hiệu hóa bất kỳ lỗi nào xảy ra
On Error Goto 0
End Sub

Sử dụng vòng lặp For – Next để kiểm tra trên tất cả các Sheet có trong Workbook, nếu có sheet nào thì sẽ hiển thị Sheet đó (Visible = True)

Trong quá trình kiểm tra và bỏ ẩn các sheet, đôi khi có xảy ra lỗi không biết trước, do đó gắn thêm các lệnh xử lý lỗi để bẫy lỗi có thể xảy ra.

1.2. Ẩn một vài Sheet xác định

Nếu như bạn đã xác định rõ một vài Sheet cụ thể sẽ được ẩn thì chúng ta có thể thực hiện thao tác ẩn sheet như sau:

Sub Hide_Sheet_Test01() 'Ẩn những Sheet cụ thể
Dim ar As Variant
Dim ws As Variant
'Tạo nhóm các Sheet cần thực hiện
ar=Array("Sheet1", "Sheet2")
'Lệnh ẩn Sheet
For Each ws In ar
Worksheets(ws).Visible=xlSheetHidden
Next ws
End Sub

Trong trường hợp trên, chúng ta muốn ẩn đồng thời Sheet1 và Sheet2.

Để mở ẩn đồng thời nhiều Sheet đã xác định rõ tên, chúng ta làm tương tự câu lệnh trên, nhưng thay vì việc ẩn thì dùng lệnh mở ẩn

Worksheets(ws).Visible=xlSheetVisible

1.3. Ẩn tất cả các Sheet chỉ chừa lại Sheet cuối cùng

Có 1 lưu ý là bạn không thể ẩn toàn bộ các sheet được, mà tối thiểu phải còn lại 1 Sheet. Do đó câu lệnh dưới đây được hiểu như câu lệnh ẩn toàn bộ các Sheet cần ẩn, chỉ chừa lại 1 Sheet cần hiển thị:

Sub Hide_Sheet_Test02() 'Ẩn tất cả các Sheet chỉ chừa lại Sheet cuối cùng
Dim i As Integer
For i=1 To Worksheets.Count - 1
Sheets(i).Visible=False
Next i
End Sub

Worksheets.Count – 1 là đếm tất cả các sheet trong Workbook rồi trừ đi 1 để chừa lại Sheet cuối cùng

2. Cách loại bỏ liên kết tới file khác bằng VBA

Trong một số trường hợp chúng ta mở file excel lên và thấy xuất hiện thông báo như sau:

Thông báo này có nội dung là: File đang mở có chứa liên kết (tham chiếu) tới 1 file khác, và hiện tại đang được vô hiệu hóa tham chiếu này.

Chúng ta có thể bấm vào nút Enable Content để cho phép tham chiếu được thực hiện.

Tuy nhiên trong những trường hợp không rõ file liên kết, không muốn xuất hiện lại thông báo này nữa thì chúng ta làm thế nào?

Sau đây chúng ta cùng tìm hiểu về cách loại bỏ liên kết tới file khác bằng VBA

Dưới đây là một câu lệnh đơn giản để loại bỏ các liên kết trong excel (break link)

Ưu điểm:

Xử lý được các liên kết đơn giản, những liên kết khó tìm trong file

Nhược  điểm:

Những liên kết nằm trong Name Manager hoặc sử dụng trong biểu đồ thì không loại bỏ được

Việc xóa bỏ các liên kết ẩn, các liên kết khó tìm bằng mắt thường là một việc phức tạp. Để làm được điều này chúng ta cần hình dung ra được các trường hợp có thể chứa liên kết:

  • Liên kết nằm trong sheet, công thức
  • Liên kết nằm trong Name Manager
  • Liên kết nằm trong biểu đồ (khi copy 1 biểu đồ từ file khác sang)

Câu lệnh dưới đây sẽ làm rõ hơn các  vùng chứa liên kết và xử lý các liên kết đó:

Ngày:13/08/2020 Chia sẻ bởi:

CÓ THỂ BẠN QUAN TÂM