投稿日	： 2005/01/13(Thu) 19:39
投稿者	： わたる
Ｅメール	：
ＵＲＬ	：
タイトル	： 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を記述しないやり方でやってみたいと思います。

★ - シートの保護を解除するとエラーが出ます - わたる 01/13-18:02No.1571
• Re: シートの保護を解除するとエラーが出ま.. - INA 01/13-18:18 No.1572
  • Re^2: シートの保護を解除するとエラーが出.. - わたる 01/13-19:39 No.1576
    • Re^3: シートの保護を解除するとエラーが出.. - INA 01/14-09:48 No.1588
      • Re^4: シートの保護を解除するとエラーが出.. - わたる 01/14-10:53 No.1590