1.シート全体のロックを解除します。
2.ロックするセルをロックします。
3.下記の命令で部分的にロックを制御します。
B2:B9のロックを解除する
Private Sub cmd003_Click()
Worksheets(“Sheet1”).Unprotect “0000”
MsgBox “Sheet1の保護を解除しました。パスワード(0000)”, vbOKOnly + vbInformation, “確認”
End Sub
B2:B9をロックる
Private Sub cmd004_Click()
Worksheets(“Sheet2″).Protect Password:=”0000”
MsgBox “Sheet2を保護しました。パスワード(0000)”, vbOKOnly + vbInformation, “確認”
End Sub