Auto_Open hakkında

[programer]

arkadaşlar aşağıdaki makroyu kullanıp excel sayfasını gizliyorum. Ama 2 veya daha fazla excel sayfası açık olduğunda onlarıda gizliyor. Benim istediğim çalıştırdığım excel sayfasını gizlesin. Ne gibi bi değişiklik yapmam gerekli. yardımlarınız için şimdiden teşekkür ederim.


Sub Autpen()
Application.Visible = False
UserForm1.Show
End Sub

 

[nziya]

Sub Autpen()
Sheets("sayfa1").Visible = False
UserForm1.Show
End Sub

 

[programer]

Sub Autpen()
Sheets("sayfa1").Visible = False
UserForm1.Show
End Sub

yardımlarınız için teşekkür ederim ama benim istediğim bu şekilde değil. Yada ben yanlış anlattım. İki veya daha fazla çalışma kitabı açıkken hepsi gizleniyor demek istedim. Kodu aşağıda ki şekilde değiştirdim ama hata verdi.


Sub Autpen()
ActiveWorkbook.Visible = False
UserForm2.Show
End Sub

 

[isakarakus]

ActiveWindow.Visible = False

bunu dener misin?

 

[programer]

Sayın isakarakus yardımınız için teşekkür ederim.

 

[programer]

Ya arkadaşlar kusura bakmayın kodu dediğiniz gibi değiştirdim ama olmadı. Ekde bi önek dosya gönderiyorum.

Sub Autpen()
ActiveWindow.Visible = False
Har_Frm.Show 'burda hara veriyo'
End Sub

 

[programer]

arkadaşlar ben halen yapamadım. forumda çeşitli örnekleri denedim ama olmuyor. hata veriyor. yada çalışma kitaplarının tamamını kapatıyor. Sizden rica ediyorum. bu konuda

 

[alipinar]

Sayın programmer benimde böyle bir sorunum var.
Sizin dosyanızı çalıştırmak istediğimde bende
ActiveWindow.Visible = False
satırında hata veriyor. Acaba bilgisayarım ActiveWindow komutunu tanımıyor veya bununla ilgili bir ayarı değiştirmem mi gerekiyor?

 

[programer]

valla bende halen bulamadım mod arkadaşlarımızdan tekrar yardım istiyorum. ben halen anlayamadım neden olduğunu

Subscript Auto of range şeklinde bi hata veriyor