Excel VBAはワークシート内の特定の範囲を貼り付けることを禁止します

Question

私は特定のExcelマクロを使用して、抽出前に手動でデータを貼り付けています。

マクロ実行中のエラーを避けるために、特定の列にデータを貼り付けることを無効にしたいとします。

私は、誰かがそれが可能であるどのように私を導くことができる

Private Sub Worksheet_Change(ByVal Target As Range) 
    Target.Column = 7 
    Target.Column = 8 
    Target.Column = 12 
End Sub 

てみましたか？

Answer 1

次のコードを試して、ワークシートに追加して、ユーザーが特定の列に貼り付けるのを無効にします。

Private Sub Worksheet_Change(ByVal Target As Range) 

' Restrict the user from deleting or Pasting to certain columns 

Select Case Target.Column 
    Case 7, 8, 12 
     With Application 
      .EnableEvents = False 
      .Undo 
      MsgBox "Pasting to columns 'F' , 'G' or 'L' is not allowed", vbCritical 
      .EnableEvents = True 
     End With 

    Case Else 
     ' do nothing/or something else 

End Select 

End Sub