Application.Visible

Söz dizimi​

ifade.Visible

Application.Visible = True
Application.Visible = False
Durum = Application.Visible

• ifade: Application nesnesini temsil eden ifade; VBA içinde doğrudan Application yazmanız yeterlidir. Zorunludur.
• Değer: Boolean türündedir. True ise Excel görünürdür, False ise gizlidir. Değer atanmazsa mevcut durum okunur.

Dönüş değeri ve davranışı​

• Gizlenen öğeler: Excel ana penceresi ve tüm çalışma kitabı pencereleri. Kitaplar açık kalır, kodunuz hücrelere ve nesnelere erişmeye devam eder.
• Etkilenmeyenler: Çalışma sayfalarının kendi görünürlüğü (Worksheet.Visible) ve tek bir kitap penceresinin görünürlüğü (Window.Visible) ayrı özelliklerdir; bunlar Application.Visible ile karıştırılmamalıdır.
• UserForm: Excel gizliyken bile UserForm'u Show ile görüntüleyebilirsiniz; bu yöntemle yalnızca formu olan uygulama görünümü elde edilir.

Ne zaman kullanılır​

• Uygulama görünümü: Çalışma kitabı açılırken Excel penceresini gizleyip yalnızca bir UserForm göstermek.
• Arka plan işlemleri: Kullanıcının pencerelerin açılıp kapandığını görmesini istemediğiniz uzun hazırlık işlemleri.
• Otomasyon: Başka bir uygulamadan başlatılan Excel örneğini görünür hale getirmek ya da gizli tutmak.

1. Mevcut görünürlük durumunu okuma​

Option Explicit

Sub DurumYaz()
    ' Uygulama görünürlüğünü ve ilgili ayarları sayfaya yazar
    With ThisWorkbook.Worksheets("Durum")
        .Range("B2").Value = Application.Visible
        .Range("B3").Value = Application.ScreenUpdating
        .Range("B4").Value = Application.DisplayAlerts
    End With
End Sub

2. Excel'i gizleyip yeniden gösterme​

Option Explicit

Sub GizleVeGoster()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Gizleme Testi")

    On Error GoTo Hata

    ' Başlangıç durumu
    ws.Range("B2").Value = Application.Visible

    ' Excel'i gizle ve gizliyken durumu oku
    Application.Visible = False
    ws.Range("B3").Value = Application.Visible

    ' Excel'i yeniden göster
    Application.Visible = True
    ws.Range("B4").Value = Application.Visible
    Exit Sub

Hata:
    ' Ne olursa olsun Excel görünür bırakılır
    Application.Visible = True
End Sub

3. Arka planda hedef karşılaştırması​

Option Explicit

Sub HedefKontrol()
    Dim ws As Worksheet
    Dim r As Long
    Set ws = ThisWorkbook.Worksheets("Aylık Satış")

    On Error GoTo Hata
    Application.Visible = False

    ' 2. satırdan 6. satıra kadar sonlu döngü
    For r = 2 To 6
        If ws.Cells(r, 2).Value >= ws.Cells(r, 3).Value Then
            ws.Cells(r, 4).Value = "Hedefte"
        Else
            ws.Cells(r, 4).Value = "Hedefin altında"
        End If
    Next r

    Application.Visible = True
    Exit Sub

Hata:
    Application.Visible = True
End Sub

Kullanırken dikkat edin​

• Excel'i görünür bırakmayı unutmayın: Application.Visible = False yaptıktan sonra makro hata verip durursa Excel gizli kalabilir. Böyle bir oturumu yalnızca Görev Yöneticisi'nden (Task Manager) kapatabilirsiniz. Bu yüzden her zaman On Error GoTo ile bir hata yönetimi kurun ve hata etiketinde Application.Visible = True çalıştırın.
• Tüm pencereler gizlenir: Özellik yalnızca makroyu içeren kitabı değil, açık olan tüm çalışma kitabı pencerelerini etkiler. Tek bir kitap penceresini gizlemek istiyorsanız Windows("Kitap1.xlsx").Visible özelliğini kullanın.
• Çoğu zaman ScreenUpdating yeterlidir: Yalnızca ekran titremesini ve işlem süresini azaltmak istiyorsanız Application.ScreenUpdating = False çoğunlukla yeterli ve daha güvenlidir. Visible özelliği, arayüzün tamamen gizlenmesi gerektiğinde tercih edilmelidir.
• Otomasyonla açılan Excel: Başka bir programdan oluşturulan Excel örneği varsayılan olarak gizlidir. Kullanıcının çalışma kitabını görmesi gerekiyorsa Visible özelliğini True yapmanız gerekir; iş bittiğinde de Quit ile uygulamayı kapatmayı unutmayın, aksi takdirde gizli bir Excel işlemi bellekte kalır.
• İlgili konular:
  • Application.ScreenUpdating: Ekran yenilemesini kapatıp açar.
  • Application.DisplayAlerts: Uyarı iletilerini bastırır.
  • Window.Visible: Tek bir çalışma kitabı penceresini gizler ya da gösterir.
  • Worksheet.Visible: Çalışma sayfasını gizler, çok gizli yapar ya da gösterir.
  • Application.WindowState: Excel penceresini simge durumuna küçültür ya da büyütür.
  • Workbook_Open olayı: Kitap açılırken Excel'i gizleyip UserForm göstermek için kullanılır.
  • On Error GoTo: Hata durumunda Excel'i yeniden görünür yapmak için kullanılır.