|
|
|
|
|
|
Option Explicit
'ThisWorkBook Module에 위치
'--------------------------------------------------------------------------------------------------------
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'--------------------------------------------------------------------------------------------------------
Dim cmdBar As CommandBar
Dim cmdBtn As Object
Set cmdBar = Application.CommandBars("Cell")
Dim iCnt As Long: iCnt = cmdBar.Controls.Count
Dim i As Long
' delete custom controls
For i = iCnt To 1 Step -1
Set cmdBtn = cmdBar.Controls(i)
If Not cmdBtn.BuiltIn Then cmdBtn.Delete
Next i
If not(Sh.Name = "Sheet1") Then Exit Sub
' add btn
Set cmdBtn = cmdBar.Controls.Add(Temporary:=True, Before:=1)
With cmdBtn
.Caption = "Hello"
.OnAction = "Hello"
End With
End Sub
'-----------------------------------------------
'Standard Module에 위치
'-----------------------------------------------
'-----------------------------------------------
Sub Hello()
'-----------------------------------------------
MsgBox "Hello"
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-04-07(05:48)
최종수정일 : 2019-04-07(05:48) |
|
|
|
|