ribon üzerinde tanımlı toggle butona macro atamak.

[darksimoon]

==============================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
On Error Resume Next
With Target
If .Count = 1 Then
str = .Address & "," & .Row & ":" & .Row _
& "," & Left(.Address, InStr(2, .Address, "$") - 1) & ":" _
& Left(.Address, InStr(2, .Address, "$") - 1)
End If
End With
Range(str).Select
On Error GoTo 0
End Sub
===============================================
yukardaki macro seçili hücrenin satır ve sütununu koyulaştıran bir macro.

ekteki tb1.xlsm dosyasında resimde göründüğü gibi ribon üzerinde ALPER adlı bir sekme var. sekme de ise enableHighlightPlus diye bir toggle button var. buton başlığı enable highlightplus / disable highlighplus şeklinde değişsin istiyorum.
yani "enableHighlightPlus" adlı toggle buttona basarak macroyu aktif ve pasif hale getirmek istiyorum. ancak bu butona macroyu nasıl tanıtacağımı bilmiyorum.

imkan varsa eğer oradaki download düğmesinin de iptal edilmesini rica ediyorum.

tanıtıp tekrar yüklerseniz çok memnun olurum. hepimiz için güzel bir çalışma örneği olur.
not : office 2007 ve 2010 kullanıyorum.

 

[Taruz]

Merhaba..

Aktif pasif özelliği için dosyanın xml yapısını ayıklamak gerekir.. Uzun bir işlem Ama isterseniz Ribbon menünüzü kendinizde hazırlayabilirsiniz..:

http://www.excel.web.tr/f60/ribbon-menu-sihirbazy-t112834.html

Ayrıca incelemenizi öneririm..:

Ribbon Menü Örneği 2 | Kontolleri Gizleme veya Pasif Yapma |

 

[darksimoon]

dosyada zaten aktif pasif özelliği mevcut. sadece macronun module1 deki kodlara eklenmesi gerekiyor. daha fazlasına bilgim yetmiyor.
bir göz atarsanız sevinirim. şayet dediğiniz gibi extra uğraş gerektirecek bir işlemse kimseyi yormak istemem.
şimdiden teşekkürler...

 

[Taruz]

Callback komutlarında global bir değişken kullanarak istediğiniz işlemi hazırladım..:

Global trz As Boolean

Sub rxGetDownloadLabel(control As IRibbonControl, ByRef returnedVal)

    If g_blnStockDownLoad Then
        returnedVal = "Disable HighLightPlus"
        trz = 0
    Else
        returnedVal = "Enable HighLightPlus"
        trz = -1
    End If
    
End Sub

Ayrıca dosyanızın xml yapısını ayıklayıp Downland düğmesini kaldırdım....

 

[darksimoon]

allah razı olsun. ellerine sağlık. kaç zamandır bunun peşindeydim.
çok teşekkür ederim.