ドキュメントの機能改善

ドキュメントの機能改善　途中経過報告です。

テンプレートを使うことはできました。

Sheets.Add(before:=Worksheets("sheet1"), Type:=Template_Path).name = new_name

Template_Path：テンプレート用ブックファイルのPath

new_name:追加するシート名

ただ、課題が残っています。

ドキュメントシートには「別ウィンドウ表示」をしたいので、シートのActivateのイベントにちょっとしたVBAコードを書きこむ必要があります。その場合、VBAProjectのUnprotect⇒VBAコード書込み⇒VBAProjectのProtect　をしたいのですが、最後のProtectが分かりません。（ブック自体のProtectはできるけど・・・）

ThisWorkbook.Unprotect password:="**********"

（VBAコード書込み）

ThisWorkbook.Protect password:="**********"　（本当はVBAProjetcをProtectしたい）

どなたか助けてくれないでしょうか。