ワークブックを初めて開いたときに、この関数を呼び出して、特定のセル範囲とセルをユーザーから保護します。
' Sets protection on sheet
Public Sub LockCells_TXN_CLIENT_ORDER_ENTRY()
ActiveSheet.Unprotect Password:="abc"
ActiveSheet.Cells.Locked = False
' Lock some cells here
ActiveSheet.Protect Password:="abc"
End Sub
ただし、次のサブルーティングを呼び出して、行の範囲からデータを消去すると:
Private Sub ClearData_Click()
' Declare some variables
For currentRow = ActiveSheet.Range("STATUS_FIELDS").Row To totalRows
ActiveSheet.Cells(currentRow, ActiveSheet.Range("STATUS_FIELDS").Column).Resize(1, 14).Clear
Next currentRow
End Sub
保護するように指定されていなかったセルは保護されるようになり、これらのセルはClearData_Click()
機能が影響したセルとまったく同じになります。
なぜこれが起こるのか、これを回避する方法を誰かが私に説明してもらえますか?