マクロでシート保護(特定の操作は可能にしたい)

Question

マクロでシートの保護をする際
列・行の挿入、削除はできるようにしたくて
以下のようにコードを書いたのですが
列・行の挿入、削除もできない状況です。

Sub シート保護
Dim s As Worksheet
    
    For Each s In ActiveWorkbook.Sheets

        s.Protect Password:="1111"
        AllowInsertingColumns = True '列の挿入
        AllowInsertingRows = True '行の挿入
        AllowDeletingColumns = True '列の削除
        AllowDeletingRows = True '行の削除
    Next s
End Sub

AllowInsertingColumns:=True '列の挿入
に変更すると構文エラーがでました。
どうすればいいでしょうか？

Answer 1

AllowInsertingColumnsはProtectのパラメーターですので、パスワードと同じように指定する必要があります。

    For Each s In ActiveWorkbook.Sheets
        s.Protect Password:="1111", _
            AllowInsertingColumns:=True, _
            AllowInsertingRows:=True, _
            AllowDeletingColumns:=True, _
            AllowDeletingRows:=True
    Next s

悩んだ時は、「マクロの記録」で記録して、そのコードを参考にするのをオススメします。

Comments

[kkk6]

上手く行きました。
ありがとうございます。

[segavvy]

お役に立てたようで良かったです！