Açılışta Workbook Gizleme

[SCetin25]

Merhabalar,

Excel açılırken key kontrol ettiriyorum varsa açıyor yoksa açmıyor.
Yok olduğu zaman mesaj kutusunda key yok yazılıyor.
Buraya kadar her şey normal fakat mesaj kutusu çıktığı zaman kutunun arkasındaki worksheette gözüken datalarda gözüksün istemiyorum. Worksheet.visible ile denedim fakat birden çok worksheetim var sonuç alamadım.
Workbook'u direk gizleme gibi bir makro yazılabilir mi? Araştırıyorum henüz bir kod bulamadım yardım ederseniz çok sevinirim.

Teşekkürler,

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod bloğu dosya açılışında excel uygulamasını minimize eder. Belki işinize yarar.

Option Explicit

Private Sub Workbook_Open()
    Application.WindowState = xlMinimized
End Sub

 

[RBozkurt]

Deneyiniz,

    Application.Visible = False
    MsgBox "xxx"
    Application.Visible = True

 

[Muzaffer Ali]

Merhaba.

Alternatif.
Eğer sadece bir dosya açıksa Exceli tamamen gizler, eğer başka açık Excel dosyası varsa sadece bu dosyayı gizler.

Sub test()
    If Workbooks.Count = 1 Then
        Application.Visible = False
    Else
        Windows(ThisWorkbook.Name).Visible = False
    End If
End Sub

 

[SCetin25]

Değerli cevaplarınız için çok teşekkür ederim.
Tam istediğim gibi oldu 3 kodu da denedim çok güzel çalıştı