- Katılım
- 14 Şubat 2006
- Mesajlar
- 710
- Excel Vers. ve Dili
- 2002-TÜRKÇE
Merhaba bu kodu thisworkbok a yapıştırdım her exel sayfamda geçerli oluyor DOSYA GÖRÜNÜM-KAYDET Hepsi yok oldu nasıl geri getireceğim.
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
Application.ScreenUpdating = True
End Sub