Giúp code trả lại tên em trong Application.Caption (1 người xem)

[Hong.Van]

Em chào Thầy cô & anh chị!
Em có đọan code đặt trong ThisWorkbook

Private Sub Workbook_Open()
Application.Caption = " H" & ChrW(244) & "m nay: " & Format(Now(), "dddd, dd-mm-yyyy") & " *  *"
End Sub

Mỗi khi mở File này thì trên thanh Window (?!) có dòng chữ "Hôm nay:..........."
Khi Close File thì dòng chữ này vẫn tồn tại
Giúp em Remove dòng chữ này khi đã Close File!
Em cảm ơn!

 

[Quang_Hải]

Em chào Thầy cô & anh chị!
Em có đọan code đặt trong ThisWorkbook

Private Sub Workbook_Open()
Application.Caption = " H" & ChrW(244) & "m nay: " & Format(Now(), "dddd, dd-mm-yyyy") & " *  *"
End Sub

Mỗi khi mở File này thì trên thanh Window (?!) có dòng chữ "Hôm nay:..........."
Khi Close File thì dòng chữ này vẫn tồn tại
Giúp em Remove dòng chữ này khi đã Close File!
Em cảm ơn!

Thử vầy coi sao nhé. Về lý thuyết thì khi mình cho nó Empty thì tự động sẽ là Microsoft Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub

 

[Good-Luck]

Thử vầy coi sao nhé. Về lý thuyết thì khi mình cho nó Empty thì tự động sẽ là Microsoft Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub

Nếu cách của anh quanhai mà ko đặt yêu cầu thì bạn có thể tạo lưu code bạn thành 1 file add-in mới, khi càn sử dụng thì kích nó lên, khi đóng của sổ được kích dòng lệnh của bạn cũng kết khúc, đồng thời khi mở 1 cửa sổ mới nó cũng không có ảnh hưởng.

 

[Hong.Van]

Nếu cách của anh quanhai mà ko đặt yêu cầu thì bạn có thể tạo lưu code bạn thành 1 file add-in mới, khi càn sử dụng thì kích nó lên, khi đóng của sổ được kích dòng lệnh của bạn cũng kết khúc, đồng thời khi mở 1 cửa sổ mới nó cũng không có ảnh hưởng.

Code của anh Quanghai1969 là OK rồi!

 

[Quang_Hải]

Code của anh Quanghai1969 là OK rồi!

Không lẽ không OK chứ. Nếu không biết ai dám gởi lên chứ, hic.

 

[hoamattroicoi]

Không lẽ không OK chứ. Nếu không biết ai dám gởi lên chứ, hic.

Em viết thế này không biết có OKIE không ạ?

Private Sub Workbook_Open()
    Application.Caption = " Hom nay em yeu anh nhieu hon hom qua :))"
End Sub
=============================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Caption = ""
End Sub

) ) ) ) )
(Xì pam cuối tuần )