ブックの保護（シート構成） でシートのコピー

質問

エクセルで外部データを参照させるために，
別のブックを開きシートをコピーし元のブックに貼り付け別のブックは閉じるというマクロを作成しました。

Workbooks.Open Filename:=a
Sheets("データ").Select
Sheets("データ").Copy After:=Workbooks("ファイル.xls").Sheets("メニュー")
Workbooks(a).Close SaveChanges:=False

a（変数）というファイルを開く
シートのデータを選択
データをコピーし　ファイル.xls のメニューシートの後に貼り付け
a(変数)のエクセルファイルを保存せずに閉じる

動作としては正常に動きました。

しかし、この　ファイル.xls　には ID とパスワードで管理しています。
その管理したシートがあるんですが、それを表示させないために
シートを非表示→ブックの保護→シート構成　を行いました。
マクロを動かすと、シート構成をしているので
Sheets("データ").Copy After:=Workbooks("ファイル.xls").Sheets("メニュー")　
が動かないことに気が付きました。

何かいい方法があればご教授お願いします。

回答No.1

keithin · ベストアンサー

ブックを保護している限りシートの移動コピーは出来ないのですから，まぁ一番簡単なのは

sub sample1()
workbooks("ファイル.xls").unprotect password:="パスワード"

’以下今のコピーしてくるマクロ
Workbooks.Open Filename:=a
Sheets("データ").Select
Sheets("データ").Copy After:=Workbooks("ファイル.xls").Sheets("メニュー")
Workbooks(a).Close SaveChanges:=False

workbooks("ファイル.xls").protect password:="パスワード", structure:=true
end sub

などのようにします。
さらにVBE画面のプロジェクトエクスプローラで，「VBAProject(ファイル.xls)」を右クリックしてプロパティから「保護」で「プロジェクトを表示用にロック」し，別のパスワードを使ってブックの保護のパスワードをマクロに書いちゃってるのを見られないよう保護します。

お礼

完璧です！！
ありがとうございます☆