application visible = false Yanlızca Kodu İçeren çalışma Kitabı İçin Geçerli olsun

[Emsdmr]

application visible = false Kodunu kullandığım çalışma kitabını açtığımda diğer excel kitaplarını kullanamıyorum (Kitapların açılmasına izin vermiyor) Bu kodun sadece İsmi belirli olan (örnek = Çalışma) Çalışma kitabının Sayfalarını Saklasın. Mümkünmü yoksa Application visible = false yerine Başka bir kodmu denemeliyim?

 

[usubaykan]

Merhaba;

Yazdığınız kodu kullanmak istediğiniz excel dışındaki bir dosyada kullanmak istemiyorsanız. Thisworkbook Workbook_Deactivate() ve Workbook_BeforeClose(Cancel As Boolean) bölümlerine application visible=true yazmanızı tavsiye ederim.

application visible = false Kodunu kullandığım çalışma kitabını açtığımda diğer excel kitaplarını kullanamıyorum (Kitapların açılmasına izin vermiyor) Bu kodun sadece İsmi belirli olan (örnek = Çalışma) Çalışma kitabının Sayfalarını Saklasın. Mümkünmü yoksa Application visible = false yerine Başka bir kodmu denemeliyim?

 

[Emsdmr]

merhaba;
Application.visible=False Kodu bende This workbook içinde Yer Alıyor

Private Sub Workbook_Open()
Application.visible=False
end sub

Söylediğiniz gibi denedim fakat farklı birşey olmadı eksik yaptığım birşey mi var?

(Eğer İfade Şeklim yüzünden yanlış yönlendiriyorsam özür dilerim Ben Bu Kodun yer aldığı Çalışma Kitabı Açıken Diğer kitaplarıda açabilmekten bahsediyorum , Diğer Kitaplarda bu kod yok)

 

[alptun20]

Benimde böyle bir koda ihtiyacım var. Saygılarımla..

 

[Emsdmr]

çözüm arayan arkadaşlara şimdiden teşekkürler

 

[Ömer]

Merhaba,

Örnek vererek açıklamaya çalışayım.

Kitap2 adında dosyanızda form olup açılışta excelin gizlenip formun açlışması için;

ThisWorbook sayfasına;

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Userformun Intialize olayına;

Private Sub UserForm_Initialize()
    ActiveWindow.Visible = False
End Sub

Eğer exceli göster butonu koyacaksanız.

Private Sub CommandButton1_Click()
    Windows("Kitap2.xls").Visible = True
End Sub

Bu mantıkla yapabilirsiniz..

.

 

[Emsdmr]

Mantığı anladım Ömer Bey ilginize teşekkür ederim.

(Teşekkür biraz geç olduğu için kusura bakmayın bir süredir bilgisayar başında olamıyordum.)