Çözüldü Userform olan excelin 2.defa açılmaması

[Dixxz]

Private Sub Workbook_Open()
    UserForm1.Show vbModeless
    Application.Visible = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Application.Visible = True
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

Merhaba içinde userform olan bir excel dosyam var bu userform açıkken başka excel dosyalarıda açıyorum. Sonra bu userform olan exceli kapattığımda sadece userformun olduğu excel kapanıyor diğer exceller kapanmıyor ama userform olan exceli tekrar açmak istediğimde aşağıdaki gibi bir hata alıyorum bunun nedeni nedir acaba ?

 

[Muzaffer Ali]

Merhaba.

Load Userform1 satırını silip deneyin. Düzelmezse.

Hata UserForm üzerindeki nesnelerden yada kodlarından kaynaklanıyor olabilir.

Hata iletisindeki Debug butonuna tıklatıp
Kodları F8'e basarak satır satır çalıştırıp hangi satırda hata verdiğini bulup paylaşın.

Eğer dosyanızı paylaşırsanız daha hızlı çözüm bulunabilir.

Dosyanızı dosya.tc gibi bir sitede paylaşabilirsiniz.

 

[Dixxz]

Merhaba Muzaffer Bey

Load Userform1 satırını silince UserForm1.Show vbModeless satırında aynı hatayı alıyorum anladığım kadarıyla sıkıntı ThisWorkbook.Close da oluyor.
Workbook dosyasını kapatınca tekrar excel dosyasını açtığımda userform açılışında hata veriyor.
Dosya Link

 

[Muzaffer Ali]

1- Bu hazırladığınız örnek dosyayı çalıştırıp kontrol ettiniz mi? Aynı hatayı alıyor musunuz?
2- Yukarıdaki mesajda yazdıklarımı yaparak hatanın aslında hangi satırda gerçekleştiğini bulabildiniz mi?

 

[Dixxz]

1- Kontrol ettim aynı hatayı alıyorum
2- Userform olan exceli 2.defa açmak istediğim zaman UserForm1.Show vbModeless satırında hata alıyorum.

 

[Muzaffer Ali]

Örnek dosyanızı defalarca denedim hiç hata almadım.

 

[Dixxz]

Muzaffer Bey bende aşağıdaki videodaki gibi bir sorun oluyor.

Video Unavailable

This video is unavailable.

streamable.com

 

[Muzaffer Ali]

UserForm1.Show vbModeless

Satırını aşağıdaki ile değiştirin.

UserForm1.Show

 

[Dixxz]

Dediğiniz değişikliği yapınca hata vermiyor fakat başka açık olan excel dosyalarına geçiş yapamıyorum.

Benim aşağıdaki excel dosyasında yapmak istediğim, excel dosyasına açtığımda userform açılsın excel gizlensin ve userformum açıkken başka excel dosyalarını da aktif olarak kullanabileyim.

İndirme Linki

 

[Muzaffer Ali]

Bu dosya açık ve gizliyken yeni bir dosya açarsanız gizli olan bu dosya da görünür olur.

 

[Dixxz]

Benim 2.gönderdiğim excel açık ve gizli iken yeni dosya açtığımda gizli olan dosya gizli kalmaya devam ediyor.

 

[Dixxz]

Merhabalar sorunu aşağıdaki kod ile çözdüm.

Private Sub Workbook_Open()
    On Error Resume Next
    Unload UserForm1
    On Error GoTo 0
    UserForm1.Show vbModeless
End Sub