diğer excell dosyalarının kapanmaması

[alicingoz]

Selam Arkadaslar..

Misal olarak aa.xls adlı bir excell çalışma dosyası açtım.. Açık dururken Makro-VBA 'lu v1.xls dosyasını açtığımda aa.xls dosyası gizleniyor ve işlem yapamıyorum aa.xls dosyası ile.

v1.xls dosyasında açılışında

Private Sub Workbook_Open()
Application.Visible = False
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next i
Sheets("sayfa1").Visible = True
Application.ScreenUpdating = True
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

Bu komutlar var...

Dosya Ek'te --- şifresiz

 

[Kemal Demir]

Birden fazla yerde ba&#351;l&#305;k a&#231;may&#305;n&#305;z.Biraz sab&#305;rl&#305; ve dikkatli olunuz.