Bir Form dosyasını açtığım zaman

[alicingoz]

Bir Form dosyasını açtığım zaman diğer açık olan tüm excell dosyalarını kapatıyor.. Diğer excell dosyalarını kapatmama sansı var mı acaba?


yardımlarınız için şimdiden tşk.ler.

 

[Kemal Demir]

Günaydın,

Form'u açtırırken aşagıdaki kodu ilave ediniz

Application.visible=True

 

[alicingoz]

Günaydın,

Form'u açtırırken aşagıdaki kodu ilave ediniz

Application.visible=True

yapamadım dostum. ek'te dosyayı gönderdim..

bi bakabilirsen sevinirim.

 

[alicingoz]

Günaydın,

Form'u açtırırken aşagıdaki kodu ilave ediniz

Application.visible=True

böyle yaptığımda benim yaptığımda aynı yaptığım dosyada sayfaları gösteriyor.. yapmak istediğim açtığım dosyaların sayfaları görünmeyecek önceden açık olan sayfalar görülecek veya onları gizli konumuna getirmeyecek.

 

[Kemal Demir]

Sub Autpen()
Application.visible=True
Userform1.show
End Sub

 

[alicingoz]

arkadaşlar ben tam anlatamadım galiba kusura bakmayın..
v1.xls. adlı bi dosyam var.. ben bu dosyayı açtığımda data dosyaları otomatik gizleniyor. bu arada önceden farklı bi excell dosyasınıda gizliyor. ben bu diğer excell dosyasını gizlemesini istemiyorum.
form'u açarken şu komutlar var..


Private Sub Workbook_Open()
Application.Visible = True
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next i
Sheets("sayfa1").Visible = True
Application.ScreenUpdating = True
Application.Visible = False
anasayfa.Show
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets("sayfa1").Visible = True
If Sheets(i).Visible = True And Sheets(i).Name <> "sayfa1" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
Application.DisplayAlerts = False
ThisWorkbook.Save
End Sub

 

[parsley2]

Vb penceresinde şifre var. ayrıca Private Sub Workbook_Open()
Application.Visible = True bu kodu kaldırırsan düzelir.

 

[alicingoz]

te&#351;ekk&#252;rler..