Aktif Pencerenin Başlığına Kullanıcı Adını Ekle - Microsoft Excel

Aktif pencerenin başlığına kullanıcı adını eklemeye yarayan VBA kodudur.

Option Explicit

Sub AktifPencereninBasliginaKullaniciAdiniEkle()
    Dim aktifPencereBasligi As String
    
    aktifPencereBasligi = Empty
    ActiveWindow.Caption = Empty
    
    aktifPencereBasligi = _
        ActiveWindow.Caption & " " _
        & Application.UserName

    ActiveWindow.Caption = aktifPencereBasligi
End Sub