投稿日 | : 2005/01/13(Thu) 19:39 |
投稿者 | : わたる |
Eメール | : |
URL | : |
タイトル | : Re^2: シートの保護を解除するとエラーが出ます |
INAさん、お答えありがとうございます。
問題だった部分は、
Windows("NITC.xls").Activate
Sheets("SV-TOP").Select
'シートの保護解除
ActiveSheet.Unprotect Password:="1234"
Workbooks.Open Filename:=path
Windows(NITC.csv).Activate
Range("A2:E2049").Select
Selection.Copy
Windows("NITC.xls").Activate
Sheets("SV-TOP").Select
保護解除する部分を上に持ってきたらうまくいきました。
> >Windows(NITC.csv).Activate
> ↓
> Windows("NITC.csv").Activate では?
これは、""を付けなくても大丈夫でした。
> Select しないで記述して方が良いですよ。
> わざわざ選択しなくても、たいていの処理は出来ますから。
ご指摘ありがとうございます。
早速Selectを記述しないやり方でやってみたいと思います。