Option Explicit
Private m_objRibbonUI As IRibbonUI
Private m_blnCustomerBtnVisible As Boolean
Sub OnRibbonLoad(Ribbon As IRibbonUI)
Set m_objRibbonUI = Ribbon
End Sub
Sub IsButtonVisible(Control As IRibbonControl, ByRef Visible)
Select Case Control.ID
Case "Kunden"
Visible = m_blnCustomerBtnVisible
End Select
End Sub
Sub ShowButton()
m_blnCustomerBtnVisible = True
Call m_objRibbonUI.InvalidateControl("Kunden")
End Sub
Sub HideButton()
m_blnCustomerBtnVisible = False
Call m_objRibbonUI.InvalidateControl("Kunden")
End Sub