ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¥i¥H¥u­­¤H¤â¿é¤J, ¤£¯à½Æ»s¶K¤W¶Ü

¥i¥H¥u­­¤H¤â¿é¤J, ¤£¯à½Æ»s¶K¤W¶Ü

½Ð°Ý¥i¥H¦b¤u§@ªí¤¤¥u¯à¤H¤â¿é¤J¸ê®Æ, ¤£¥i¥H¥Î½Æ»s¤Î¶K¤W¤èªk¶Ü?
½Ð«ü±Ð

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2014/10/9 20:06): ExcelÀɮ׸m¤JÀ£ÁYÀɤW¶Ç

DEAR SIR
  §Ú¤£¯à¤W¶ÇÀÉ®× ¤§«e¦³¬Ý¹L«e½ú¨Ò¤l¦p¤U.
  «ü©w¤u§@ªíÅý "Âлs""¶K¤W"µLªk¨Ï¥Î¤§µ{¦¡½X.
  ±N¹Ï¤@µ{¦¡½XCOPY¦Ü«ü©w¤§¤u§@ªí¤º§Y¥i.

¹Ï¤@
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
ù

TOP

¦n¦X¥Î, ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD