Excel sayfa başlığı

[mustili]

Arkadaşlar;

Ek'teki resimdede daha net görülüyor. Excel açıldığında üstte yazan "Microsoft Excel Kitap1" yazısını nasıl değiştirim.Bi fikri olan varmı acaba...

 

[musculus]

Sub Autpen()
Application.Caption = "BOLU AİLE HEKİMLERİ"

End Sub

bu kodları module yapıştırın

 

[musculus]

Private Sub Workbook_open()


Application.DisplayStatusBar = True

Application.StatusBar = "Dr.Farukk Bugün: " & Date & " .......ATAM İZİNDEYİZ......Beni Türk Hekimlerine Emanet Ediniz. "

End Sub

bu kodlarda statüs barda yazı için thisworkbook kod bölümüne yazın