brugertilpasset Context menu

Ja, men ikke uden kode :-)

Dette indsættes i ´modulet ThisWorkBook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
RightClickRemove
End Sub

Private Sub Workbook_Open()
RightClickMake
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address = Target.EntireRow.Address Then
Application.CommandBars("MyPopUp").ShowPopup
Cancel = True
End If
End Sub


Dette indsættes i et normalt kodemodul.

Sub RightClickMake()
Dim menu, NewItem, y As Long
With CommandBars.Add("MyPopUp", msoBarPopup)
  Set NewItem = CommandBars("MyPopUp").Controls.Add(ID:=1964)
  With NewItem
      .Caption = "Ryd &alt"
      .BeginGroup = True
  End With
  Set NewItem = CommandBars("MyPopUp").Controls.Add
  With NewItem
      .Caption = "Ryd undtaget formler"
      .OnAction = "ClearAllButFormulas"
  End With

End With
Set NewItem = Nothing
Set menu = Nothing
End Sub

Sub RightClickRemove()
CommandBars("MyPopUp").Delete
End Sub

Sub ClearAllButFormulas()
MsgBox "Dummy"
End Sub

Det er for genialt :-)

Takker for hjælpen.

VH CK

Smid lige et svar - så får du point.

det kommer her :-)