エクセル マクロ 保護解除とテキストボックス追加

質問

エクセル　マクロ　保護解除とテキストボックス追加

作業工程表へ日付けを入力すると■でべた塗りされ、
ボタンで行挿入とテキストボックスが追加（追加後にテキスト入力と移動可能）仕様を作りたいです。
式保護のためD2～R7はロックさせてますが、次の手順で操作するとセルの保護が解除されてしまうため、解除されないようにしたいです。
(1)ファイルを開く、マクロ有効
(2)テキスト追加ボタンで選択したセルの位置へテキストボックス追加（入力、移動可能）
　この時、保護解除されていない。
(3)行挿入ボタンで行挿入、D2～R8保護解除される。

Sub テキストボックス()

ActiveSheet.Shapes.AddTextbox msoTextOrientationHorizontal, _
Selection.Left + 3, Selection.Top + Selection.Height - 11, _
50#, 12#

End Sub

Sub 行挿入()

With ActiveSheet
.Protect Password:="123", DrawingObjects:=False, UserInterfaceonly:=True

Range("A65536").End(xlUp).Offset(0).Select
ActiveCell.Resize(1, 23).Select
Selection.Copy

Selection.Insert Shift:=xlDown

Range("A65536").End(xlUp).Offset(0).Select
ActiveCell.Resize(1, 3).Select
Selection.ClearContents

End With
End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

keithin · ベストアンサー

ふむ。。なるほど。ご利用のExcelは2007だった訳ですね。

では，次の２つ修正しましょう。
１）行挿入マクロのシート保護は，まじめに？直します
２）テキストボックス追加のマクロは元に戻します。

Sub テキストボックス()

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Selection.Left + 3, Selection.Top + Selection.Height - 11, _
50#, 12#).select

End Sub

Sub 行挿入()

With ActiveSheet
.UnProtect Password:="123"

Range("A65536").End(xlUp).Offset(0).Select
ActiveCell.Resize(1, 23).Select
Selection.Copy

Selection.Insert Shift:=xlDown

Range("A65536").End(xlUp).Offset(0).Select
ActiveCell.Resize(1, 3).Select
Selection.ClearContents

.Protect Password:="123", DrawingObjects:=False

End With
End Sub

お礼

できました！！
ありがとうございました。
また何かありましたら、宜しくお願いいたします。