マクロ 列のロック解除について

質問

セルのロック（保護）の解除はできると思うのですが、列のロックの解除はできますでしょうか。

前提として、シート全体にロックがかかってます。
(1)シート全体のロックを解除する
(2)列を追加
(3)追加した列以外はロックをする

上記のことはできますでしょうか。

アドバイスの程、よろしくお願い致します。

回答No.2

mar00

質問の内容ではどの位置に列を追加したいのかがわからないので
追加したい位置の列を指定してからになりますが
Sub Macro1()
ActiveSheet.Unprotect
Selection.Insert Shift:=xlToRight
Cells.Locked = True
Selection.Locked = False
ActiveSheet.Protect
End Sub

回答No.1

akina_line

こんにちは。

　やっつけで作ってみました。

Sub Macro2()
'
ActiveSheet.Unprotect Password:="aaa"
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingColumns:=True, AllowInsertingRows:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, Password:="aaa"
End Sub

では。