エクセル 行追加マクロについて

質問

エクセル　行追加マクロについて

2007エクセルマクロ初心者です。
スケジュール表を作成、行追加マクロを作ろうとしてます。
シートの上下に表があり、上の表に行追加です。
関数式を壊したくないので、一部セルへロックをかけています。

以下の点についてご教授をお願いいたします。
行追加マクロを実行するとパスワードを要求されます。
聞かれないようにできないでしょうか。？
パスワードを入力した以降は要求されませんが
シートの保護解除を選択すると保護が解除されてしまいます。
パスワード記載のマクロを試したことがありますが、
表へオートシェイプが描写できなかったので断念しました。

Sub 行追加()

With ActiveSheet
'シート保護解除
.Unprotect

Range("A65536").End(xlUp).Offset(-8).Select
ActiveCell.Resize(1, 79).Select
Selection.Copy

Selection.Insert Shift:=xlDown

Range("A65536").End(xlUp).Offset(-8).Select
ActiveCell.Resize(1, 9).Select
Selection.ClearContents

'シート保護
.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True

End With

End Sub

回答No.1

keithin · ベストアンサー

マクロにパスワードを記載して，マクロにもパスワードを入れさせる以外，打つ手はありません。

修正例：
Sub 行追加()

　With ActiveSheet
　　　　　　　　　　’正しいパスワードを記載する
　.protect password:=2234 userinterfaceonly:=true

　Range("A65536").End(xlUp).Offset(-8).Select
　ActiveCell.Resize(1, 79).Select
　Selection.Copy
　Selection.Insert Shift:=xlDown

　Range("A65536").End(xlUp).Offset(-8).Select
　ActiveCell.Resize(1, 9).Select
　Selection.ClearContents
　End With

End Sub

さらに，VBE画面で表示メニューからプロジェクトエクスプローラを確認，当該のブックであるVBAProjectを右クリックしてプロパティを確認，保護のタブでマクロを見せないためのパスワードを２回入力し，ブックを保存して閉じて開き直します。

＞パスワード記載のマクロを試したことがありますが、
＞表へオートシェイプが描写できなかったので断念しました。

少し意味が分かりにくいですが，正しく作成すればきちんと出来ます。諦めたら，それは仕方有りません，できないままです。

お礼

出来ました。ありがとうございました。