Unhide_AllSheet.bas

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