VBA实战技巧19：根据用户在工作表中的选择来隐藏/显示功能区中的剪贴板组

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"onLoad="Initialize">
    <ribbon>
       <tabs>
           <tab idMso="TabHome">
              <group idMso="GroupClipboard"getVisible="HideClipboard"/>
           </tab>
       </tabs>
    </ribbon>
</customUI>

Public rxIRibbonUI As IRibbonUI
Public bln As Boolean
 
'Callback for customUI.onLoad
Sub Initialize(ribbon As IRibbonUI)
    Set rxIRibbonUI = ribbon
End Sub
 
'Callback for GroupClipboardgetVisible
Sub HideClipboard(control As IRibbonControl, ByRef returnedVal)
   returnedVal = bln
End Sub
 
Public Function InRange(rng1 As Range, rng2 As Range)
    Dim interSectRange As Range
    Set interSectRange = Application.Intersect(rng1, rng2)
    InRange =Not interSectRange Is Nothing
    Set interSectRange = Nothing
End Function

Private Sub Workbook_Open()
    If InRange(Range(Selection.Address), Columns("B:B")) Then
        bln =False
    Else
        bln =True
    End If
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal ShAs Object, ByVal Target As Range)
    If InRange(Range(Selection.Address), Columns("B:B")) Then
        bln =False
    Else
        bln =True
    End If
   rxIRibbonUI.InvalidateControlMso "GroupClipboard"
End Sub