Çalışma Kitabının İsim Değişikliğini Engelleme

Bu dosya, çalışma kitabının adının değiştirilmesini engellemek için hazırlanmış makrolu bir örnektir. Kitap açıldığında dosya adı kontrol edilir; ad değiştirilmişse kullanıcı uyarılır ve kitap kapatılır.

Dosyanın içeriği​

• Lieferanten: A1:R2 aralığında tedarikçi kayıtlarına ait Almanca sütun başlıkları bulunur (interne Nummer, Kundennummer, Name2, Straße Hnr., Postfach, Telefon 1, Fax, Internet, Skonto). Başlıklar örnek veri yapısı olarak yer alır.
• Modul1: Dosya adı kontrolünü yapan auto_open makrosunu içeren VBA modülü.

Dosyada formül bulunmaz.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro etkinleştirilmezse kontrol çalışmaz.

• auto_open: Kitap açılırken otomatik çalışır. Açık pencereleri tek tek tarar ve başlığı "kayıt.xlsx" olan bir pencere bulursa hiçbir işlem yapmadan çıkar. Böyle bir pencere yoksa "Dosyanın adı değişmiş!" mesajını "Hata!" başlığıyla gösterir ve ActiveWorkbook.Close ile çalışma kitabını kapatır.

Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur; yalnızca pencere başlığı denetlenir ve gerekirse kitap kapatılır.

Nasıl kullanılır​

1. Dosyayı indirin ve "kayıt.xlsx" adıyla kaydedin. Makro kodundaki kontrol bu ada göre yapılır.
2. Dosyayı açarken makroları etkinleştirin.
3. Ad doğruysa kitap normal şekilde açık kalır; ad değiştirilmişse uyarı mesajı görünür ve kitap kapanır.
4. Farklı bir dosya adı kullanmak isterseniz VBA düzenleyicisinde Modul1 içindeki "kayıt.xlsx" ifadesini yeni adla değiştirin.

Not: Dosya .xlsm biçimindedir; kontrolün çalışması için makro destekli biçimde kaydedilmelidir. Kodda "kayıt.xlsx" yazdığı için, kitap makro destekli uzantıyla kaydedilecekse kontrol edilen ad da buna göre güncellenmelidir.