aktif çalışma kitabı gizleme

[acar6783]

Bir ekranda birden fazla açık kitap olduğunu varsayalım.

Bir kitabın userformu açılınca o kitabın arkaplanı(sayfaları -nemüsü vs.) görünmesin.
Fakat diğer kitaplar hem görünür hem de işlem yapılabilir olmalı.

Private Sub CommandButton1_Click()
Application.Windows("DENEME").Visible = False
End Sub

Bu kod ile çalıştığım dosyayı ilk açarsam ve diğer çalışma kitaplarını sonradan açarsam sorunyok.
Fakat halihazırda açık olan çalışma kitapları varken form olan dosyamı açtığımda hiçbir kitapda işlem yapamıyorum.ü
Nasıl aşabilirim bu durumu?

 

[acar6783]

Sorunumu kısmen çözdüm
Formun Showmodal durumunu false yaptım

Fakat bu şekilde de diğer çalışma kitapları formun önüne geçemiyor.
Bunun için aklıma gelen formun üzerine bir buton yapıp formu küçültüp büyütmek .
Fakrlı bir önderisi olan varmıdır?

 

[PLİNT]

Merhaba
Ek dosyadaki gibi "Userform" u minimize-maximize yaparak işinize yarayabilir.
http://s8.dosya.tc/server2/zk6iqk/userform3.zip.html

http://markdagosta.com/2010/11/14/minimizablemaximizable-userforms/

 

[acar6783]

Bu örnek çok güzel oldu teşekkürler ....

 

[bydogannn67]

hocam userform3 isimli dosyayı inceledim işlem süper birden fazla dosya açıksa bunları kapatmadan userform açılıyo fakat kendı çalışma kıtabı kapalı olduğundan yada diğer çalışma kitapları aktif olduğundan işlem yapmaya izin vermiyo hata veriyo

kendi calışma kitabını nasıl gösterebliriz

Private Sub Workbook_Open()
If Application.Workbooks.Count > 1 Then
ad = ThisWorkbook.Name
Windows(ad).Visible = False
UserForm1.Show 0
Else
ad = ThisWorkbook.Name
Windows(ad).Visible = False
Application.Visible = False
UserForm1.Show 0
End If
End Sub

 

[PLİNT]

hocam userform3 isimli dosyayı inceledim işlem süper birden fazla dosya açıksa bunları kapatmadan userform açılıyo fakat kendı çalışma kıtabı kapalı olduğundan yada diğer çalışma kitapları aktif olduğundan işlem yapmaya izin vermiyo hata veriyo

kendi calışma kitabını nasıl gösterebliriz

Yukarıdaki örnekte form açılıyor ama dosya pasif aktif hale getirip form daki kodları çalıştırmak gerekir veya formdan dosyasına veri ekleyen kodlar şu örnek gibi olmalı;

Private Sub CommandButton1_Click()
s = ThisWorkbook.Name
Application.Workbooks(s).Sheets("Sayfa1").[a1].Value = TextBox1.Value
End Sub

Asıl kullanılacak dosyadaki kodlara göre ;formun minimize ve maximize hallerinde dosyayı görünür, pasif veya gizli hale getirmek için aşağıdaki gibi kodlar eklenebilir. Kullandığınız dosyadaki kodları görmek gerek.

Private Sub UserForm_Resize()
ad = ThisWorkbook.Name
If Me.Height < 100 Then
Windows(ad).Visible = False
If Application.Workbooks.Count = 1 Then _
Application.Visible = False
Else
Windows(ad).Visible = True
If Application.Workbooks.Count = 1 Then _
Application.Visible = True
End If
End Sub