Cần giúp đỡ hiện các sheet bị ẩn bằng VBA

[quanquan_hp]

Em chào các anh chị. e có 1 file excel bị ẩn các sheet bằng VBA.
Anh chị giúp e hiện nó lên với ạ
Em k am hiểu về VBA nên k mở dc
E cảm ơn nhiều !

 

[befaint]

Option Explicit

Sub vidu()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End Sub

 

[Nhattanktnn]

Option Explicit

Sub vidu()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End Sub

Chắc ý bạn ấy là nhờ hiện sheet trong file và gửi lên cho bạn ấy đấy bác à, chứ em nghĩ không phải là bạn ấy xin code, vì google cái là có code và hướng dẫn đầy đủ luôn nhưng người ta không chịu

Anh chị giúp e hiện nó lên với ạ
Em k am hiểu về VBA nên k mở dc

 

[quanquan_hp]

Chắc ý bạn ấy là nhờ hiện sheet trong file và gửi lên cho bạn ấy đấy bác à, chứ em nghĩ không phải là bạn ấy xin code, vì google cái là có code và hướng dẫn đầy đủ luôn nhưng người ta không chịu

mình tìm trên GG cũng có code. nhưng mình không biết nhập vào đâu.
có 3 sheet đang ẩn như này ạ

Bài đã được tự động gộp: 17/6/20

Option Explicit

Sub vidu()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End Sub

Cảm ơn bạn.
Bạn hướng dẫn mình nhập code với ạ
hihi.mình k biết nhập vào đâu

 

[Nhattanktnn]

mình tìm trên GG cũng có code. nhưng mình không biết nhập vào đâu.
có 3 sheet đang ẩn như này ạ
View attachment 239401

Mà trường hợp của bạn là như này chứ không cần code gì hết

 

[quanquan_hp]

Mà trường hợp của bạn là như này chứ không cần code gì hết
View attachment 239402

trời ơi.
tuyệt vời
cảm ơn bạn rất rất nhiều
mình cứ nghĩ là nó dc viet bới code nên cứ tìm mãi/ hiihi

 

[VetMini]

...

Lúc này chấp nhận "đi với bụt mặc áo cà sa, đi với..." rồi hở