Hiển thị Worksheet

[killitmore]

Hum nọ em có nghịch ngợm vào cái lệnh

ActiveWindow.Visible = False

Sau đó tất cả các worksheet đều biến mất, e loay hoay mãi mà ko làm mấy Worksheet hiện lên như cũ được, các cao thủ vào giúp em với

 

[vu_tuan_manh_linh]

Bạn làm thế này:

Dim Sh as worksheet
For each Sh in Activeworkbook.Worksheets
sh.Visible=true
next

Nếu chẳng may đặt lệnh đó trong Workbook_Open() thì hãy Disable macro, sau đó mở file, sửa code bỏ cái đoạn của bạn đi.

 

[killitmore]

Em chạy cái sub này

Sub WorksheetLoop2()
    Dim Sh As Worksheet
    
    For Each Sh In Application.ActiveWorkbook.Sheets
        Sh.Visible = True
    Next
End Sub

Thì nó báo lỗi

Object variable or With block variable not set

tại dòng

For Each Sh In Application.ActiveWorkbook.Sheets

 

[killitmore]

Vấn đề là em xem thuộc tính của các Sheets trong VBA properties thì nó vẫn là xlSheetsVisible @@

 

[killitmore]

Em làm được rồi ạ, thanks bác nhiều, hóa ra chỉ đơn giản là Vào View rồi chọn Unhide Workbook thôi
Ko cần code gì cả ạ, tự mình làm phức tạp vấn đề ))

nếu dùng code thì lệnh này ạ

Windows("Some Workbook.xlsm").Visible =True