Xin giúp đỡ code làm addin hiện workbook

[kbw1]

Xin các bạn giúp đỡ code như tiêu đề.
Mình có đoạn code sau dùng để hide workbook rồi.
GIờ mình muốn làm ngược lại, tức là unhide workbook đóng (dùng phím tắt Ctrl+shift+Y) (mở ra hộp để chọn những workbook bị ẩn).

Sub Macro1()'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+y
'
    ActiveWindow.Visible = False
End Sub

Các bạn cho mình xin đoạn code để lồng vào macro1 của mình ở trên.
Xin cảm ơn các bạn!

 

[dhn46]

Code để hiện Wb thì như dưới đây, bạn tùy biến ghép vào nhé

Sub Test()
    Dim Wb As Workbook
    For Each Wb In Application.Workbooks
        Windows(Wb.Name).Visible = True
    Next
End Sub

 

[kbw1]

Code để hiện Wb thì như dưới đây, bạn tùy biến ghép vào nhé

Sub Test()
    Dim Wb As Workbook
    For Each Wb In Application.Workbooks
        Windows(Wb.Name).Visible = True
    Next
End Sub

Mình cảm ơn bạn!
Code của bạn mình mở 1 cái nó ra tất các sheet ẩn bạn ạ.
Mình muốn nó hiện lên 1 cái hộp như hình mình đính kèm được không bạn.
Hoặc 1 list danh sách cũng được.
Xin cảm ơn bạn!

 

[dhn46]

Mình cảm ơn bạn!
Code của bạn mình mở 1 cái nó ra tất các sheet ẩn bạn ạ.
Mình muốn nó hiện lên 1 cái hộp như hình mình đính kèm được không bạn.
Hoặc 1 list danh sách cũng được.
Xin cảm ơn bạn!

Cái đỏ đỏ là bạn viết nhầm hay code nhầm thế ?

Việc đưa vào 1 list thì bạn vặn vẹo code trên 1 chút, căn bản bạn phải biết sử dụng Form như list box, combobox, text box .... tốt nhất là List box bạn tự tìm hiểu. Tôi ví dụ đoạn code hiện Wb ẩn trong Msgbox cho bạn tham khảo và tùy biến

Sub Test()
    Dim Wb As Workbook
    For Each Wb In Application.Workbooks
        If Windows(Wb.Name).Visible = False Then
            MsgBox Wb.Name
        End If
    Next
End Sub

 

[kbw1]

Cái đỏ đỏ là bạn viết nhầm hay code nhầm thế ?

Việc đưa vào 1 list thì bạn vặn vẹo code trên 1 chút, căn bản bạn phải biết sử dụng Form như list box, combobox, text box .... tốt nhất là List box bạn tự tìm hiểu. Tôi ví dụ đoạn code hiện Wb ẩn trong Msgbox cho bạn tham khảo và tùy biến

Sub Test()
    Dim Wb As Workbook
    For Each Wb In Application.Workbooks
        If Windows(Wb.Name).Visible = False Then
            MsgBox Wb.Name
        End If
    Next
End Sub

Do mình diễn đạt sai ý gây hiểu nhầm.
Cảm ơn bạn đã giúp đỡ!

Tùy biến hộp listbox mình chịu rồi bạn ạ.
Thôi mình dùng tạm code trên của bạn vậy.
Hiện tất ra cũng được.