• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:エクセル マクロ 保護解除とテキストボックス追加)

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

このQ&Aのポイント
  • エクセルのマクロを使用して、作業工程表に日付けを入力し、指定のセルをべた塗りし、テキストボックスを追加する方法を紹介します。
  • また、行挿入ボタンを使用して行の追加を行う際に、セルの保護が解除されないようにする方法も説明します。
  • これにより、セルの保護を維持しながらテキストボックスの追加や行の挿入が行えるようになります。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7941)
回答No.1

ふむ。。なるほど。ご利用のExcelは2007だった訳ですね。 では,次の2つ修正しましょう。 1)行挿入マクロのシート保護は,まじめに?直します 2)テキストボックス追加のマクロは元に戻します。 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

yuma07chan
質問者

お礼

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

関連するQ&A