"Hazır" yazısının yerinde ismimizin yazması

[manisali50]

Arkadaşlar merhaba..
Bu forumda bundan bir süre önce şöyle bir kod bulmuştum :

Private Sub Worksheet_Activate()
'eskistatusbartext = Application.StatusBar
Application.StatusBar = "Şerif Ali ŞENSAZLI"
'Application.StatusBar = eskistatusbartext
End Sub

Ekranın sol altında "Hazır" yazan yere ismimizi yazacaktı..Fakat bir türlü çalıştıramadım..
Hata nerde bulamadım?
Yardımcı olursanız sevinirim..
Şimdiden teşekkürler

 

[İhsan Tank]

Arkadaşlar merhaba..
Bu forumda bundan bir süre önce şöyle bir kod bulmuştum :

Private Sub Worksheet_Activate()
'eskistatusbartext = Application.StatusBar
Application.StatusBar = "Şerif Ali ŞENSAZLI"
'Application.StatusBar = eskistatusbartext
End Sub

Ekranın sol altında "Hazır" yazan yere ismimizi yazacaktı..Fakat bir türlü çalıştıramadım..
Hata nerde bulamadım?
Yardımcı olursanız sevinirim..
Şimdiden teşekkürler

bu kod sayfa aktif olduğunda tetiklenir
bu kod'da kitap aktif olduğunda tetikler

Private Sub Workbook_Open()
Application.StatusBar = "Şerif Ali ŞENSAZLI"
End Sub

 

[Mahir64]

mrb

Sub Autpen()
Application.StatusBar = "Demene..."
Application.Caption = "- -"
'Ust Bar İçin Buda
ActiveWindow.Caption = "Demene--Deneme - - -"

End Sub

 

[security]

Private Sub Workbook_Open()
Application.StatusBar = "www.excel.web.tr - Security"
End Sub
Kodunu .ekleyin Daha Kısa Yolu Bu

 

[manisali50]

Teşekkürler arkadaşlar

 

[İhsan Tank]

Teşekkürler arkadaşlar

rica ederim
iyi çalışmalar :mutlu: