Macro ile tüm açık dosyaları sorgusuz kapatma ve programı minimize nasıl yapılır

[Zeyback]

Merhaba,

ActiveWorkbook.Close False
Application.DisplayAlerts = False


ThisWorkbook.Close (False)
Application.DisplayAlerts = False


ActiveWindow.WindowState = xlMinimized


ben bu macro komutlarını ekledim dosylarımı kapatıyorum fakat başarılı olamadığım konu ise her seferinde programın kilitlenip çıkması


yardımcı olurmusunuz

teşekkürler

 

[BedriA]

Sub kapat()
On Error Resume Next
 Dim wb As Workbook
    
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            wb.Close SaveChanges:=True 'değişiklikleri kaydetmeden kapatmak için TRUE yerine FALSE yazılmalı
        End If
    Next wb
End Sub

 

[Zeyback]

Merhaba, BedriA

kodu ekledim işe yaramadı.
Teşekkürler