Nhờ giúp code ẩn hiện sheets (1 người xem)

[babyheomoi]

Em có 1 file data khá nặng, sử dụng chức năng ẩn sheets!
Chi tiết code như sau:

Sub Tlinhf()
'
' Tlinhf Macro
'
 
'Application.ScreenUpdating = False
      ActiveWorkbook.Unprotect
   Sheets("Chinhnhanh").Select
   Range("A4:M5000").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.ClearContents
   Sheets("Chinhnhanh").Select
  Sheets("Data").Visible = False
 
  Sheets("Data").Select
   Selection.AutoFilter
   ActiveSheet.Range("$A$1:$M$5416").AutoFilter Field:=1, Criteria1:=Sheets("Chinhnhanh").Range("a2")
   Range("A1:M1").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Selection.Copy
   Sheets("Chinhnhanh").Select
   Range("A5").Select
   ActiveSheet.Paste
  Cells.Select
  Cells.EntireColumn.AutoFit
  Sheets("Data").Select
   ActiveWindow.SelectedSheets.Visible = True
   Range("A5").Select
   Application.CutCopyMode = False
   ActiveWorkbook.Protect Structure:=True, Windows:=True
   Application.ScreenUpdating = True
End Sub

Dữ liệu nằm hết ở sheets "data", file em nhận được chỉ là sheets "Chi Nhánh", tuy nhiên em đọc code nhưng trình độ hạn chế nên không biết làm sao hiện sheets "data"
Nhờ mấy ACE giúp đỡ sửa code hay làm code mới để hiện sheets"data" ạ!
Em cám ơn!

 

[giaiphap]

Chổ này nè bạn

  Sheets("Data").Visible = False

thử thay chữ False thành True xem thế nào

 

[babyheomoi]

Đơn giản thế thôi hả bác?? do file đang ở công ty nên mai e sẽ lên test!

Sheets("Data").Select
   ActiveWindow.SelectedSheets.Visible = True

Còn chỗ này ý nghĩa gì bác? có cần sửa False ko?

 

[giaiphap]

Đơn giản thế thôi hả bác?? do file đang ở công ty nên mai e sẽ lên test!

Sheets("Data").Select
   ActiveWindow.SelectedSheets.Visible = True

Còn chỗ này ý nghĩa gì bác? có cần sửa False ko?

Thử đi sẽ biết nó dùng để làm gì? bằng cách để nó và chạy code, sau đó xóa nó đi và chạy code, so sánh kết quả.