エクセル マクロ 保護解除とテキストボックス追加
エクセル マクロ 保護解除とテキストボックス追加
作業工程表へ日付けを入力すると■でべた塗りされ、
ボタンで行挿入とテキストボックスが追加(追加後にテキスト入力と移動可能)仕様を作りたいです。
式保護のため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
お礼
有難うございます。