Ân Hiện wordbook

[doanhoanghai]

các bạn ơi ! mình gặp vấn đề này mãi mà ko làm đc mong các bạn giúp
+ tạo một UserForm có 2 command : 1 nút hiện wordbook(giấu file ExCel đi), 1 nút hiện trở lại
hịc nghe thì đơn giản nhưng mình làm mãi không đc mong các bạn giúp mình
Thank !

 

[hienld]

Workbook không có phương thức hay thuộc tính nào để ẩn hiện thì phải.
Bạn thử dùng đối tượng Application xem sau. Sử dụng thuộc tính Visible ạ!

 

[salam]

các bạn ơi ! mình gặp vấn đề này mãi mà ko làm đc mong các bạn giúp
+ tạo một UserForm có 2 command : 1 nút hiện wordbook(giấu file ExCel đi), 1 nút hiện trở lại
hịc nghe thì đơn giản nhưng mình làm mãi không đc mong các bạn giúp mình
Thank !

Bạn dùng thử xem.

Private Sub CommandButton1_Click()
    Application.Visible = False

End Sub


Private Sub CommandButton2_Click()
    Application.Visible = True

End Sub

 

[Mr Okebab]

các bạn ơi ! mình gặp vấn đề này mãi mà ko làm đc mong các bạn giúp
+ tạo một UserForm có 2 command : 1 nút hiện wordbook(giấu file ExCel đi), 1 nút hiện trở lại
hịc nghe thì đơn giản nhưng mình làm mãi không đc mong các bạn giúp mình
Thank !

Dùng cho Workbook

Ẩn đi :

    Windows("ABC.xls").Visible = False

Hiện ra :

    Windows("ABC.xls").Visible = True

hoặc :

Ẩn đi :

ThisWorkbook.IsAddin = True

Hiện ra :

ThisWorkbook.IsAddin = Fales

Thaan!

 

[doanhoanghai]

mình hỏi thêm nhé!

mình làm được rồi ! nhưng mà mình muốn hỏi thêm lúc vào wordbook thì tự động ẩn luôn thì làm thế nào đây !

 

[doanhoanghai]

ko phải thế

ý mình không phải thế mình muốn đóng hoàn toàn đi và chỉ hiện mỗi form (userform) thôi mà !

 

[anhtuan1066]

Bạn dùng thử xem.

Private Sub CommandButton1_Click()
    Application.Visible = False
 
End Sub
 
 
Private Sub CommandButton2_Click()
    Application.Visible = True
 
End Sub

Chưa hiểu lắm về Button này! Vì ẩn rồi lấy đâu mà bấm nút cho hiện ra

 

[TranThanhPhong]

ý mình không phải thế mình muốn đóng hoàn toàn đi và chỉ hiện mỗi form (userform) thôi mà !

Xem file làm theo nhé!

 

[salam]

Chưa hiểu lắm về Button này! Vì ẩn rồi lấy đâu mà bấm nút cho hiện ra

Ẩn là ẩn cửa sổ excel mà Bác có ẩn form đâu.

 

[doanhoanghai]

đúng rồi

đúng cái mình cần rồi cảm ơn bạn nhiều nhé ! đúng là kiến thức như biển cả vậy !

 

[doanhoanghai]

hichic...

nhưng mà làm thế nào thế các bạn mình làm lại không được à có phải vào windown hide đi rồi save vào không vậy ! hic hịc ngu quá trời

 

[TranThanhPhong]

nhưng mà làm thế nào thế các bạn mình làm lại không được à có phải vào windown hide đi rồi save vào không vậy ! hic hịc ngu quá trời

Làm lại từng bước nhe:
1. Mở file mới
2. Nhấn Alt+F11
3. Chèn 1 UserForm mới
4. Vẽ 2 nút, 1 đặt nhãn là hiện, 1 đặt nhãn là Ẩn
5. Viết code cho 2 nút như sau:

Private Sub CommandButton1_Click()
    Windows("AnWB.xls").Visible = True
    Application.Visible = True
End Sub

Private Sub CommandButton2_Click()
    Windows("AnWB.xls").Visible = False
    Application.Visible = False
End Sub

6. Vào Thisworkbook tạo thủ tục sau:

Private Sub Workbook_Open()
    
    Windows("AnWB.xls").Visible = False 
    Application.Visible = False
    UserForm1.Show
End Sub

Lưu file lại và kiểm tra ết quả.

TP.