excel açıkken 2. excel'i minimize açmak

[ogoktas]

herkese slm ,
istdiğim bir excel dosyam açıkken 2. excel dosyasını açmak ve bu dosyanın açık olduğunun diğer kullanıcılar tarafından fark edilmemesini sağlamak istiyorum.
konuyla ilgili desteklerinizi rica ederim.
saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod ile bu işlemi yapabilirsiniz.

Option Explicit
 
Sub DOSYAYI_GİZLİ_AÇ()
    Dim DOSYA As Object
    Set DOSYA = CreateObject("Excel.Application")
    DOSYA.Visible = False
    DOSYA.Workbooks.Open "C:\Documents and Settings\Desktop\Kitap1.xls"
End Sub