Thay đổi chuỗi trên thanh tiêu đề như ý muốn (2 người xem)

[DMQ]

Em có đoạn code để hiện tên file là "CHUONG TRINH BAO CAO". Nhưng khi mở nó cứ hiên tên của e xcell đằng trước là:
" Cty-CHUONG TRINH BAO CAO". Em chỉ muốn nó hiện là "CHUONG TRINH BAO CAO" Không có chữ "Cty" đằng trước. (Tên "Cty" là tên file khi làm xong em lưu-hiện ra ngoài Dektop) code đây ah:

Private Sub Workbook_Activate()              On Error Resume Next
                 Application.Caption = "CHUONG TRINH BAO CAO"        
              End Sub

MONG CÁC ac XEM GIÚP!!!

 

[Hong.Van]

Em có đoạn code để hiện tên file là "CHUONG TRINH BAO CAO". Nhưng khi mở nó cứ hiên tên của e xcell đằng trước là:
" Cty-CHUONG TRINH BAO CAO". Em chỉ muốn nó hiện là "CHUONG TRINH BAO CAO" Không có chữ "Cty" đằng trước. (Tên "Cty" là tên file khi làm xong em lưu-hiện ra ngoài Dektop) code đây ah:

Private Sub Workbook_Activate()              On Error Resume Next
                 Application.Caption = "CHUONG TRINH BAO CAO"        
              End Sub

MONG CÁC ac XEM GIÚP!!!

Code đặt trong Thisworkbook

Private Sub Workbook_Open()
    ActiveWindow.Caption = "CHUONG TRINH BAO CAO"
    Application.Caption = ""
End Sub

 

[Kiều Mạnh]

Code đặt trong Thisworkbook

Private Sub Workbook_Open()
    ActiveWindow.Caption = "CHUONG TRINH BAO CAO"
    Application.Caption = ""
End Sub

Không biết trên máy các bạn sao chứ máy mình nếu đặt ở Sub Autpen thì mở 10 lần lên cả 10. còn ở Private Sub Workbook_Open() thì 10 lần chỉ được 5 hay 7 .. mình cũng
không biết lý do gì ???? Ai biết Xin Chỉ dùm
xin cảm ơn

Sub Auto_Open()
    MsgBox "Ok"
End Sub

Private Sub Workbook_Open()
    MsgBox "Ok"
End Sub

 

[quocphuoc88]

Máy mình 10 lần mở đều lên 'Chục' lần !

 

[ndu96081631]

Code đặt trong Thisworkbook

Private Sub Workbook_Open()
    ActiveWindow.Caption = "CHUONG TRINH BAO CAO"
    Application.Caption = ""
End Sub

Nếu mà có cách nào đó bỏ luôn được đoạn chuỗi "Microsoft Excel" nữa thì mới.. tuyệt
Ẹc... Ẹc...

 

[Hau151978]

Nếu mà có cách nào đó bỏ luôn được đoạn chuỗi "Microsoft Excel" nữa thì mới.. tuyệt
Ẹc... Ẹc...

Để mất chữ excel thì làm ngược lại:

Private Sub Workbook_Open()
    ActiveWindow.Caption = ""
    Application.Caption = "CHUONG TRINH BAO CAO"
End Sub

 

[Quang_Hải]

Nếu mà có cách nào đó bỏ luôn được đoạn chuỗi "Microsoft Excel" nữa thì mới.. tuyệt
Ẹc... Ẹc...

Nó nè...

Private Sub Workbook_Open()
Application.Caption = "QuangHai"
ActiveWindow.Caption = ""
End Sub

 

[Kiều Mạnh]

Mình Chơi Kiểu này thấy cũng được

Sub Auto_Open()
    Application.Caption = "Chuong Trinh QLBH Phuong Nam"
    ThisWorkbook.Windows(1).Caption = " Designed By Kieu Manh"
End Sub

 

[DMQ]

Em có thử code của các AC, nhưng em thấy khi mở file khác cùng lúc thì file đó cũng có tên như code (CHUONG TRINH BAO CAO) Mong các AC xem lại!!!

 

[Hau151978]

Em có thử code của các AC, nhưng em thấy khi mở file khác cùng lúc thì file đó cũng có tên như code (CHUONG TRINH BAO CAO) Mong các AC xem lại!!!

Private Sub Workbook_Activate()
    ActiveWindow.Caption = ""
    Application.Caption = "CHUONG TRINH BAO CAO"
End Sub


Private Sub Workbook_Deactivate()
    ActiveWindow.Caption = ActiveWorkbook.Name
    Application.Caption = ""
End Sub

 

[Hong.Van]

Nếu mà có cách nào đó bỏ luôn được đoạn chuỗi "Microsoft Excel" nữa thì mới.. tuyệt
Ẹc... Ẹc...

Nếu thầy bỏ được biểu tượng excel luôn thì tuyệt nữa!

 

[ndu96081631]

Nếu thầy bỏ được biểu tượng excel luôn thì tuyệt nữa!

Thì các bạn tự nghiên cứu đi! Nếu trên GPE không có thì google cũng sẽ có
Tôi cũng chỉ xem qua và nói thế thôi chứ mấy bài dạng này tôi không có hứng thú