0

VBA/マクロを使用して、ユーザーが選択/強調表示した特定の Excel セルをロックする方法を知りたいと思っていました。

現在使用しているコードは、シート全体をロックしています。

Sub Macro4()
'
' Macro4 Macro
'

'
  Worksheets("Sheet1").Activate
  ActiveSheet.Unprotect
Cells.Select
Selection.Locked = True
ActiveSheet.Protect
End Sub

私が間違っていることについてのアイデアはありますか？

お時間をいただきありがとうございます。

4

1 に答える 1

1

新しい選択が発生するたびに、選択したセルで何らかのアクションを実行する場合は、これが発生したときにトリガーされるコードに依存する必要があります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Selection.Locked = True

End Sub

これは、指定されたシートのコードを含むファイル内にあります。つまり、 を考慮したい場合、Sheet1このコードを記述する必要があるファイルは次のとおりMicrosoft Excel Objects/Sheet1 (Sheet1)です。

コメント後に更新

Sub Button1_Click()
      Selection.Locked = True
End Sub

Button1このコードは、がクリックされたときに選択されたすべてのセルをロックします。

于 2013-07-15T10:57:22.503 に答える