¹Ï¤@
Private Sub Worksheet_Activate()
Dim a As CommandBarControl
Application.OnKey "^c", ""
Application.OnKey "^v", ""
With Application.CommandBars.ActiveMenuBar.Controls("½s¿è(E)")
For Each a In .Controls
If a.ID = 19 Or a.ID = 22 Or a.ID = 21 Or a.ID = 755 Then
a.Enabled = False
End If
Next
End With
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Private Sub Worksheet_Deactivate()
Dim a As CommandBarControl
Application.OnKey "^c"
Application.OnKey "^v"
With Application.CommandBars.ActiveMenuBar.Controls("½s¿è(E)")
For Each a In .Controls
If a.ID = 19 Or a.ID = 22 Or a.ID = 21 Or a.ID = 755 Then
a.Enabled = True
End If
Next
End With
End Sub