DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Sagtus ()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
End Sub
Sayın : irfancantr verdiğiniz kod için teşekkürler fakat sadece makro'yu çalıştır değimde bu sayfa'da çalışıyor diğer sayfalarda yine aynı sağ tuş özelliği çalışmıyor,
Sub sagtus()
Application.CommandBars("Cell").Reset
End Sub