Microsoft Excel Yazısından Sonra Geen Tre (-) İaretini Kaldırmak

[betoncu]

Excel sayfasında sol üstte bulunan Microsoft Excel yazısından sonra gelen tire (-) işaretini kaldırmak istiyorum.
Yardımlarınızı bekliyorum...

Açıklama için örnek dosya ektedir.

Bu örnek dosyada,

Mavi çubuk üzerindeki "Başlık" ile "Sol Üstteki Microsoft Excel Yazısını Değiştirme.xls" metinleri arasındaki tire (-) işaretini nasıl kaldırabiliriz?

 

[halit3]

Excel sayfasında sol üstte bulunan Microsoft Excel yazısından sonra gelen tire (-) işaretini kaldırmak istiyorum.
Yardımlarınızı bekliyorum...

Açıklama için örnek dosya ektedir.

Bu örnek dosyada,

Mavi çubuk üzerindeki "Başlık" ile "Sol Üstteki Microsoft Excel Yazısını Değiştirme.xls" metinleri arasındaki tire (-) işaretini nasıl kaldırabiliriz?

Merhaba

Doğrusu merak ediyorum.Excelin buralarını değiştirmekle ne yapacaksınız?

kod:

Sub test()
Application.Caption = "Başlık" & " Sol Üstteki Microsoft Excel Yazısını Değiştirme.xls"
ActiveWindow.Caption = ""
End Sub

 

[betoncu]

Halit bey çok meraklıymışsınız

Halit bey yalnız mevcut dosyanın ismini bu formülle Sol Üstteki Microsoft Excel Yazısını Değiştirme.xls olarak manuel girmişsiniz.
Sıkıntı şurda başlıyor: Dosya ismini excelin kendisinin otomatik yazmasını fakat aradaki tire çizgisini yazmamasını istiyorum.

 

[halit3]

Halit bey çok meraklıymışsınız

Halit bey yalnız mevcut dosyanın ismini bu formülle Sol Üstteki Microsoft Excel Yazısını Değiştirme.xls olarak manuel girmişsiniz.
Sıkıntı şurda başlıyor: Dosya ismini excelin kendisinin otomatik yazmasını fakat aradaki tire çizgisini yazmamasını istiyorum.

Sizin yazmış olduğunuz kodu düzenlemiştim.

birde bu koda bakarmısınız.

Sub 
Auto_Open()
Application.Caption = ThisWorkbook.Name
End Sub

 

[halit3]

Yukarıdaki kod olmadı galiba bunu denermisiniz.

Sub Auto_Open()
Application.Caption = ThisWorkbook.Name
ActiveWindow.Caption = ""
End Sub

 

[betoncu]

Malesef olmadı..

 

[halit3]

Malesef olmadı..

kod:

Sub Auto_Open()

Application.Caption = Application.Name & " " & ThisWorkbook.Name
ActiveWindow.Caption = ""
End Sub

 

[betoncu]

Malesef yine olmadı. Sanırım sorumu tam olarak anlatamadım.
Microsoft Excel tarafından üstteki mavi çubukta; "ActiveWindow.Caption" ile "Application.Caption" arasında otomatik olarak tire (-) atılmakta. Ben bu otomatik olarak atılan tirenin kaldırılmasını istiyoum.
Sizin yaptığınız örneklerde tire kalkıyor fakat açık olan dosyayı kapatınca üstteki mavi çubukta hala dosyanın ismi (Application.Caption komutu ile belirlenen) gözüküyor.

 

[halit3]

Malesef yine olmadı. Sanırım sorumu tam olarak anlatamadım.
Microsoft Excel tarafından üstteki mavi çubukta; "ActiveWindow.Caption" ile "Application.Caption" arasında otomatik olarak tire (-) atılmakta. Ben bu otomatik olarak atılan tirenin kaldırılmasını istiyoum.
Sizin yaptığınız örneklerde tire kalkıyor fakat açık olan dosyayı kapatınca üstteki mavi çubukta hala dosyanın ismi (Application.Caption komutu ile belirlenen) gözüküyor.

Şimdi mevcut başlığı dosya açılırken makro ile değiştiriyoruz,başlığın eski haline dönmesi için dosyayı kapatırkende makro ile eski haline getirmek gerekiyor


Kodları ThisWorkbook 'un içine koy dene

Kod

Private Sub Workbook_Open()
Application.Caption = Application.Name & " " & ThisWorkbook.Name
ActiveWindow.Caption = ""
End Sub
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = Application.Name
End Sub

 

[betoncu]

Halit bey yardımınız için teşekkür ederim. So n verdiğiniz kodlara göre oluyor. Fakat bu seferde bu dosya açıkken başka bir dosya açıldığında mavi çubuk üzerinde iki dosyanında ismi gözüküyor. Hangi dosya açıksa sadece onun bilgisini mavi çubuk üzerinde gösterebilirmiyiz?

 

[halit3]

Halit bey yardımınız için teşekkür ederim. So n verdiğiniz kodlara göre oluyor. Fakat bu seferde bu dosya açıkken başka bir dosya açıldığında mavi çubuk üzerinde iki dosyanında ismi gözüküyor. Hangi dosya açıksa sadece onun bilgisini mavi çubuk üzerinde gösterebilirmiyiz?

Bu durumu ben çözemeyeceğim iyi çalışmalar.

 

[betoncu]

Teşekkür ederim..