Excel ÇaliŞma Sayfasi

[ANTALYA 01]

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

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir butona bağlayarak çalıştırın.

sub gerigetir()
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
end sub