Code khi tắt file tự động hide sheet (1 người xem)

[mimili]

Hi các bạn. Mình có file excel như đính kèm. Làm sao khi mình tắt file Excel, file tự động hide Sheet "Xoai, Tao, Mit, Man" lại và save lại. Còn các Sheet khác giữ nguyên không ẩn. Mong được giúp đỡ của các bạn. Cảm ơn.

 

[BuiQuangThuan]

Hi các bạn. Mình có file excel như đính kèm. Làm sao khi mình tắt file Excel, file tự động hide Sheet "Xoai, Tao, Mit, Man" lại và save lại. Còn các Sheet khác giữ nguyên không ẩn. Mong được giúp đỡ của các bạn. Cảm ơn.

Không biết đúng ý bạn không

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If ws.Name = "XOAI" Or ws.Name = "TAO" Or ws.Name = "MIT" Or ws.Name = "MAN" Then
            ws.Activate
            ws.Visible = False
        End If
    Next
    ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub

 

[Quang_Hải]

Muốn ẩn sheet nào thì thử cú pháp này
Sheets(Array("A", "B")).Visible = False

 

[mimili]

Không biết đúng ý bạn không

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If ws.Name = "XOAI" Or ws.Name = "TAO" Or ws.Name = "MIT" Or ws.Name = "MAN" Then
            ws.Activate
            ws.Visible = False
        End If
    Next
    ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub

Cảm ơn bạn đúng ý mình nhưng nếu mình ẩn Sheet" CAM, LE" thì khi tắt và mở lại 2 sheet này không tự mở lên. Mình mong muốn là khi mở lên thì 3 Sheet" TONG HOP, CAM, LE" đều hiện lên, còn những sheet khác mình muốn xem thì tự mở.