DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub MENÜ_AKTİF()
Application.CommandBars("Worksheet Menu Bar").Reset
Application.CommandBars("Ply").Reset
End Sub
ThisWorkbook.Application.CommandBars.FindControl(ID:=847).Enabled = True