可以只限人手輸入, 不能複製貼上嗎

enoch

請問可以在工作表中只能人手輸入資料, 不可以用複製及貼上方法嗎?
請指教

rouber590324

DEAR SIR
  我不能上傳檔案 之前有看過前輩例子如下.
  指定工作表讓 "覆製""貼上"無法使用之程式碼.
  將圖一程式碼COPY至指定之工作表內即可.

圖一
Private Sub Worksheet_Activate()
Dim a As CommandBarControl
Application.OnKey "^c", ""
Application.OnKey "^v", ""
With Application.CommandBars.ActiveMenuBar.Controls("編輯(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("編輯(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

enoch

好合用, 謝謝