Makrolar ile Bilgisayar Adını Bulma

Bu dosya, Windows'ta oturum açmış kullanıcının adını VBA ile bulmayı gösteren bir örnektir. Yetki bazlı çalışmalarda dosyayı açan kullanıcının kontrol edilmesi gerektiğinde makro kodu başka dosyalara uyarlanabilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Boş sayfadır; hücrelerde veri ya da formül bulunmaz.
• Module1: Kullanıcı adını bulan işlev ile bu işlevi çağıran test makrosunu içeren VBA modülüdür.

Makrolar​

• GetUserName: Modülün başında advapi32.dll kütüphanesinden tanımlanan Windows API işlevidir. Oturum açmış kullanıcının adını bir metin değişkenine yazar.
• NomUser: 255 karakterlik boş bir metin oluşturur, GetUserName ile kullanıcı adını bu metne alır, Trim ile boşlukları temizler ve sondaki sonlandırıcı karakteri Left ile keserek adı geri döndürür. İşlev olduğu için VBA kodunda çağrılabilir.
• test: NomUser işlevinin döndürdüğü adı MsgBox ile mesaj kutusunda gösterir.

Kodda dosya silme, kayıt değiştirme ya da dışarıya bağlantı kuran bir işlem yoktur; yalnızca kullanıcı adı okunur.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, test makrosunu seçip çalıştırın.
3. Ekranda oturum açmış Windows kullanıcısının adı mesaj kutusunda görüntülenir.
4. Başka bir dosyada kullanmak için VBA düzenleyicisinde Module1 modülünü ilgili çalışma kitabına aktarın; kontrol amacıyla NomUser işlevini kendi kodunuzdan çağırın.