Excelシート上でボタン１つで交互に保護と解除を設定

fuji39さん、Wendy02です。 ＞下から2行目の"CommandButton1"を"ToggleButton1"に変えたら動いたのですが、これでよろしかったでしょうか？ すみません。おっしゃるとおりです。元は、CommandButton1 から作ったので、自分の方は直したのに、アップロード・ログは直しませんでした。 色は、このようにしてつけます。思っている色と、若干違うのは、トグルボタンのせいだと思います。色をつけるなら、CommandButton でもよいかもしれませんね。 Private Sub ToggleButton1_Click() If ProtectContents Then ActiveSheet.Unprotect Else ActiveSheet.Protect , UserInterfaceOnly:=True End If With ToggleButton