■|A|B|C|
1|社員番号|名前|データ|
2|123456|田中:|データ|
上記のようなエクセルのシートがあるとして、
社員番号の列のみコピーペーストを禁止したいのです。
名前とデータの列はコピペを許可したいです。
VBAでやる必要があるようで、ネットから以下のソースを拾ってきましたが、これらはシート全部に適用されます。
一部の列のみ適用するにはどのように改良すれば良いのでしょうか。
VBA
1Option Explicit 2 3'** 4' オープン 5'** 6Public Sub Auto_Open() 7 ' コピペの制御 8 Call CopyPasteCommandControl(False) 9End Sub 10'** 11' クローズ 12'** 13Public Sub Auto_Close() 14 ' コピペの制御 15 Call CopyPasteCommandControl(True) 16End Sub 17'** 18' コピー&ペーストの制御 19' 引数 true:利用可, false: 利用不可 20'** 21Public Sub CopyPasteCommandControl(Enabled As Boolean) 22 Dim Cmd As Variant 23 Dim CmdNames As Variant 24 CmdNames = Array("Worksheet Menu Bar", "Cell", "Column", "Row") 25 'ショートカット制御 26 If Enabled = False Then 27 Application.OnKey "^c", "" 28 Application.OnKey "^v", "" 29 Application.OnKey "^x", "" 30 Else 31 Application.OnKey "^c" 32 Application.OnKey "^v" 33 Application.OnKey "^x" 34 End If 35 36 'コマンドボタン制御 37 For Each Cmd In CmdNames 38 If Cmd = "Worksheet Menu Bar" Then 39 With Application.CommandBars(Cmd).Controls(2) 40 .Controls(3).Enabled = Enabled 41 .Controls(4).Enabled = Enabled 42 .Controls(5).Enabled = Enabled 43 End With 44 Else 45 With Application.CommandBars(Cmd) 46 .FindControl(, 19).Enabled = Enabled 'Copy 47 .FindControl(, 22).Enabled = Enabled 'Paste 48 .FindControl(, 21).Enabled = Enabled 'Cut 49 End With 50 End If 51 Next Cmd 52 End Sub
よろしくお願いいたします。
回答3件
あなたの回答
tips
プレビュー