sadece activeworkbook 'u gizlemek

[ildizim]

sadece aktif workbuku 30 sakine gizelemek istiyorum ama beceremedim.
ekli kodlarda ne gibi değişiklik yapılırsa istediğim olur.
teşekkürler,

Private Sub CommandButton1_Click()
ActiveWorkbook.Application.Visible = False
ActiveWorkbook.Application.Wait Now + TimeValue("00:00:30")
ActiveWorkbook.Application.Visible = True
End Sub

 

[conari]

Sub Düğme1_Tıklat()
ActiveWorkbook.Application.Visible = False
ActiveWorkbook.Application.Wait (Now + TimeValue("00:00:02"))
ActiveWorkbook.Application.Visible = True
End Sub

parantez içini almalıydınız.

 

[ildizim]

ActiveWorkbook.Application.Visible = False
satırındaki application.visible dan dolayı tüm excel workbook larını gizliyor.
Benim istediğim sadece o an aktif olan workbook u gizlemek
yani örnek vermek gerkirse a ve b diye iki kitap var o an açık ben sadece a kitabı gizlensin istiyorum

 

[conari]

Sub Düğme1_Tıklat()
sayfam = ActiveSheet.Name
Sheets(sayfam).Visible = 0
ActiveWorkbook.Application.Wait (Now + TimeValue("00:00:02"))
Sheets(sayfam).Visible = -1
Sheets(sayfam).Select
End Sub

 

[ildizim]

olmuyor a.xls görünmesin b.xls görünsün istiyorum

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
ad = ActiveWorkbook.Name
Workbooks(ad).IsAddin = True
Application.Wait Now + TimeValue("00:00:30")
Workbooks(ad).IsAddin = False
End Sub

 

[ildizim]

OLDU AMA
Application.Wait Now + TimeValue("00:00:30") DAN DOLAYI DİĞER AÇIK EXCEL ÇALIŞMA KİTAPLARINDA İŞLEM YAPTIRAMIYORUM.
Application.Wait Now + TimeValue("00:00:30")
YERİNE YİNE İSTEDİĞİM DOSYAYI 30 SANİYE GİZLEYECK AMA DİĞER KİTAPLARIN ÇALIŞMASINI EBNGELLEMEYECEK BİR ŞEY YAPILABİLİRMİ?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Koun sayfa üzerindeki bir commandbuttona yazıldığı ve sayfa adınında sayfa1 olarak kabul edilmiştir.

Dim ad As String

Private Sub CommandButton1_Click()
ad = ActiveWorkbook.Name
Workbooks(ad).IsAddin = True
Application.OnTime Now + TimeValue("00:00:30"), "sayfa1.goster"
End Sub

Sub goster()
Workbooks(ad).IsAddin = False
End Sub

 

[ildizim]

Günaydın LEVENT BEY

Gizlemede sorun yok fakat belirtilen süre sonunda açmıyor adres yolunda hata veriyor.
c:\ nin altında dosyanın adı a.xls sheet a olarak deneyerek bir örnek hazırlamanızı rica edebilirmiyim