Sadece bir excel dosyası çalışsın.

Aşağıdaki kodu ÇALIŞMALARIM isimli belgenin ThisWorkbook bölümüne uygulayın.

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum.

Hiç bir excel dosyası açık değilken, sadece ÇALIŞMALARIM isimli dosyamı açtığımda aşağıdaki kodu sarıya boyuyor.
If Workbooks(belge).Name <> ThisWorkbook.Name Then

Ayrıca hiç bir excel dosyası açık değilken, sadece ÇALIŞMALARIM dosyasını açtığımda Diğer belgeler kapatıldı mesajı ekrana geliyor.

MsgBox satırıyla, üstündeki End IF satırının yerlerini değiştirin.
Kod cevabımı da buna göre güncelledim.

VBA ekranından kod elle de çalıştırılabilir.
Sadece bu belge açıksa, kodun en başdaki If Application.Windows.Count > 1 Then satırından sonra,
sondaki End If satırına gidip işlemin sonlanması gerekir.
Tekrar dener misiniz?

Sayın Ömer Bey, dediğiniz gibi End If satırını değiştirdim, o işlem tamam oldu.

Örneğin 4 tane dosyam açıkken ÇALIŞMALARIM dosyasını açtığımda ekrana gelen mesaja evet dediğimde aşağıdaki kodu sarıya boyuyor.
If Workbooks(belge).Name <> ThisWorkbook.Name Then

Sayın Ömer Bey, 2 dosya açıkken ÇALIŞMALARIM dosyasını açtığımda 1 tanesini kapatıyor, 2 dosyadan fazla açık olan dosya varken, ÇALIŞMALARIM dosyasını açtığımda kodda hata veriyor.

Sayın @SilinenUye8231 .

Kodda küçük düzenleme yaptım.
Sayfayı yenieyerek yeni halini deneyin (döngüyü tersten işletmek gerekiyordu).

Bir denemeyi, önce bu belgenizi açtıktan sonra birkaç dosya daha açıp kodu elle çalıştırarak yapın.
Bir de birkaç farklı belge açıkken bu belgeyi açarak yapın.

NOT: Belki Application.DisplayAlerts ayarı False olarak kalmıştır.
Önce tek satırlık aşağıdaki kodu 1 kez çalıştırın ki herşey normale dönsün.


.

Sayın Ömer Bey, valla süper oldu ellerinize sağlık çok teşekkür ediyorum.

Hayırlı akşamlar diliyorum.