Makro kaydet düğmesi sorunu?

[iaydin20]

merhaba;
arkadaşlar sebebini bilmediğim bir nedenle VisulaBasic araç çubuğundaki makro kaydet düğmesi pasif duruma geçti nasıl düzeltebiliriz yardımlarınız için teşekkürler..

 

[Ömer]

Merhaba,

Aşağıdaki linki inceleyiniz.Umarım işineze yarar..

http://www.excel.web.tr/showthread.php?t=3432

 

[hsayar]

Option Private Module

'============================COMMANDBAR============================================
Public cbrWMB As CommandBar             'Worksheet menü
Public cbrHCR As CommandBar             'Cell menü
Public cbrSTR As CommandBar             'Row menü
Public cbrSTN As CommandBar             'Colomn menü
Public cbrPLY As CommandBar             'Ply menü (sayfa sekmeleri)
'=========================COMMANDBARPOPUP==========================================
Public cbpDSY As CommandBarPopup        'Worksheet menü>Dosya
Public cbpDZN As CommandBarPopup        'Worksheet menü>Düzen
Public cbpBCM As CommandBarPopup        'Worksheet menü>Biçim
Public cbpSTR As CommandBarPopup        'Worksheet menü>Biçim>Satır
Public cbpSTN As CommandBarPopup        'Worksheet menü>Biçim>Sütun
Public cbpSYF As CommandBarPopup        'Worksheet menü>Biçim>Sayfa
Public cbpARC As CommandBarPopup
'=========================COMMANDBARBUTTON=========================================
Public cbbMKR As CommandBarButton
Public wkb As Workbook
Public genislik As Single, yukseklik As Single, mevcut As Single, text As String, cevap As String
Public sh As Worksheet
Public arrSh(), arrShX()

Sub MenuDgr()

    Set cbrWMB = Application.CommandBars("Worksheet Menu Bar")
    Set cbrHCR = Application.CommandBars("Cell")
    Set cbrSTR = Application.CommandBars("Row")
    Set cbrSTN = Application.CommandBars("Column")
    Set cbrPLY = Application.CommandBars("Ply")
    Set cbpDSY = cbrWMB.Controls(1)         'Worksheet menü>Dosya
    Set cbpDZN = cbrWMB.Controls(2)         'Worksheet menü>Düzen
    Set cbpBCM = cbrWMB.Controls(5)         'Worksheet menü>Biçim
    Set cbpSTR = cbpBCM.Controls(2)         'Worksheet menü>Biçim>Satır
    Set cbpSTN = cbpBCM.Controls(3)         'Worksheet menü>Biçim>Sütun
    Set cbpSYF = cbpBCM.Controls(4)         'Worksheet menü>Biçim>Sayfa
    Set cbpARC = cbrWMB.Controls(6)         'Worksheet menü>ARAÇLAR
    Set cbbMKR = cbpARC.Controls(14).Controls(2)     'makro kaydet butonu
End Sub


    
Sub Tıklanır_Yap()
Call MenuDgr
'MsgBox cbpARC.Controls(14).Controls(2).Caption
cbbMKR.Enabled = True
End Sub

kodları bir module alın, son kodu çalıştırın, ve silin

 

[iaydin20]

Sn hsayar ilginize çok teşşekür ederim ama işe yaramadı en iyisi ben komple yeniden kurayım

 

[uzmanamele]

merhaba
zaman zaman bazı menüleri yanlışlıkla kaldırıp geri yükleyemediğim oluyor. bu kod işime yarar galiba.

Option Private Module
altında yazılınca kod çalışmıyor ama silinince çalıştı. hangi menüler görünür duruma geldi farketmedim ama galiba bu iyi bişey

 

[Seyit Tiken]

Aşağıdaki kod pasif durumundaki Makro Kaydet düğmesini aktif hale getiriyor.

Sub Düğme1_Tıklat()
Application.CommandBars("Macro").Controls(2).Enabled = True
End Sub

 

[iaydin20]

arkadaşlar yeniden kurdum ama yine olmadı yardımcı olabilecek kimse yokmu acaba...
saygılar