単純にシートの保護を行うと 保護されたセルを変更しようとした際に Excel の警告メッセージが表示されてしまうので
ロックしたセルの選択ができないようにする方法もあります
ただし 選択できないようにすると セルの内容をコピーすることができないので 利用方法を考えてから設定する必要があります
xlNoSelection を指定すると すべてのセルが選択できないようになります
セルポインタも表示されなくなるので ボタンのみの画面の場合に利用するといいかも知れません
Worksheets(1).EnableSelection = xlUnlockedCells Worksheets(1).Protect