' [337.xls]



' [Module1] のコード
'★★☆　マウスカーソルを消す　☆★★

Option Explicit

Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
Public x As Long

Sub start()

    'マウスカーソルを消す
    x = ShowCursor(False)

End Sub


' [Sheet1] のコード
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    
    'マウスカーソルを表示
    x = ShowCursor(True)
    [A1].Activate

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
    
    '右クリックのメニューを出さない
    Cancel = True
    
    'マウスカーソルを表示
    x = ShowCursor(True)
    [A1].Activate

End Sub