Giúp code hiện tất cả sheet nếu đã hide trước đó (1 người xem)

[minhtuan55]

Chào cả nhà GPE
Mình muốn xin 1 đoạn Code để Unhide nếu người dùng đã Hide


Mình thu Macro thì code như thế này

Sub hientatca()
Windows("Book1").Visible = True
End Sub

Tên file của mình là "book1" thì code chạy ok. Nhưng khi mình đổi tên file thì nó báo lỗi. Mình muốn code chạy không quan trọng tên file , file tên gì cũng chạy được. Thanks

 

[Quang_Hải]

Chào cả nhà GPE
Mình muốn xin 1 đoạn Code để Unhide nếu người dùng đã Hide
View attachment 167754

Mình thu Macro thì code như thế này

Sub hientatca()
Windows("Book1").Visible = True
End Sub

Tên file của mình là "book1" thì code chạy ok. Nhưng khi mình đổi tên file thì nó báo lỗi. Mình muốn code chạy không quan trọng tên file , file tên gì cũng chạy được. Thanks

Viết thế này

Sub UnHide()
Dim sh as Worksheet
For each sh in thisworkbook.worksheets
sh.visible=true
Next

End Sub

 

[ndu96081631]

Chào cả nhà GPE
Mình muốn xin 1 đoạn Code để Unhide nếu người dùng đã Hide
View attachment 167754

Mình thu Macro thì code như thế này

Sub hientatca()
Windows("Book1").Visible = True
End Sub

Tên file của mình là "book1" thì code chạy ok. Nhưng khi mình đổi tên file thì nó báo lỗi. Mình muốn code chạy không quan trọng tên file , file tên gì cũng chạy được. Thanks

Vậy thì làm luôn 1 AddIn đi, cứ bất cứ file nào mở lên là code sẽ Unhide tất tần tật

 

[minhtuan55]

Vậy thì làm luôn 1 AddIn đi, cứ bất cứ file nào mở lên là code sẽ Unhide tất tần tật

Đúng rồi anh. Em muốn khi mở file lên thì nó tự unhide

 

[minhtuan55]

Viết thế này

Sub UnHide()
Dim sh as Worksheet
For each sh in thisworkbook.worksheets
sh.visible=true
Next

End Sub

Code a chạy không được.Em đã thử vào Window chọn Hide rồi chạy code anh nó không hiện ra gì hết. anh xem lại giúp em

 

[Quang_Hải]

Code a chạy không được.Em đã thử vào Window chọn Hide rồi chạy code anh nó không hiện ra gì hết. anh xem lại giúp em

Thử cái này

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

 

[ndu96081631]

Code a chạy không được.Em đã thử vào Window chọn Hide rồi chạy code anh nó không hiện ra gì hết. anh xem lại giúp em

Làm như sau:
1> Chèn 1 Class Module, đặt tên là wkbEvent với code bên trong:

Public WithEvents ExlApp As Application
Private Sub Class_Initialize()
  Set ExlApp = Application
End Sub
Private Sub Class_Terminate()
  Set ExlApp = Nothing
End Sub
Private Sub ExlApp_WorkbookOpen(ByVal Wb As Workbook)
  Windows(Wb.Name).Visible = True
End Sub

2> Chèn 1 Module, đặt tên là modShow với code bên trong:

Dim ExlObj As New wkbEvent
Private Sub Auto_Open()
  If ExlObj Is Nothing Then Set ExlObj = New wkbEvent
End Sub
Private Sub Auto_Close()
  Set ExlObj = Nothing
End Sub

Lưu ý: Tên Class bắt buộc phải đặt tên đúng như đã ghi ở trên còn tên Module muốn đặt tên hay không cũng được
Làm xong lưu file thành AddIn, khởi động AddIn và thí nghiệm

 

[minhtuan55]

Thử cái này

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

Ok thank a.Code anh chạy được rồi

 

[ndu96081631]

Ok thank a.Code anh chạy được rồi

Code chạy được rồi nhưng sử dụng nó bằng cách nào tôi chưa hiểu. Tôi mường tượng cách bạn dùng như sau:
1> Bạn mở file bị ẩn lên, xong Alt + F11 chèn code vào, bấm F5 chạy code?
2> Bạn cho code vào 1 file, mỗi khi mở file nào đó bị ẩn thì bạn lại phải mở thêm file chứa code kia để nó chạy?
Hay bạn dùng cách gì khác nữa mà tôi chưa biết? Bởi dù là dùng cách 1 hay cách 2 thì thôi tôi thà rà chuột vào Tab View, bấm nút Unide cho rồi.
???!!!
Bạn nghĩ sao?

 

[VetMini]

... Bởi dù là dùng cách 1 hay cách 2 thì thôi tôi thà rà chuột vào Tab View, bấm nút Unide cho rồi.
???!!!

Có lẽ làm như vậy 'tầm thường' quá.
Phải bấm cái gì mà người khác không có mới xịn chứ.