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
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
Son düzenleme: