Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12145 / 13645 ツリー ←次へ | 前へ→

【12092】VBA以外の保護したのにVBAが使えないのは 小狐寅蔵 04/3/23(火) 20:01 質問
【12096】Re:VBA以外の保護したのにVBAが使えないのは ichinose 04/3/23(火) 21:19 発言
【12098】Re:VBA以外の保護したのにVBAが使えないのは bykin 04/3/23(火) 22:48 回答
【12125】Re:VBA以外の保護したのにVBAが使えない... 小狐寅蔵 04/3/24(水) 15:44 お礼
【12099】Re:VBA以外の保護したのにVBAが使えないのは りん 04/3/23(火) 22:55 発言

【12092】VBA以外の保護したのにVBAが使えないのは
質問  小狐寅蔵  - 04/3/23(火) 20:01 -

引用なし
パスワード
   VBAでのみ編集可能な保護をかけました。
For i = 1 To Sheets.Count
  Sheets(i).Protect UserInterFaceonly:=True, Password:="1234"
Next i

期待通りに動作してくれているようでしたが、

Worksheets("Sheet1").Range("A1").CurrentRegion.Copy Destination:=Worksheets("Sheet2").Range("A1")

の記述のところで、保護されているから実行できないという旨の
エラーが出ます。原因と解決法をお分かりの方、お教えください。

【12096】Re:VBA以外の保護したのにVBAが使えない...
発言  ichinose  - 04/3/23(火) 21:19 -

引用なし
パスワード
   ▼小狐寅蔵 さん:
こんばんは。

>VBAでのみ編集可能な保護をかけました。
>For i = 1 To Sheets.Count
>  Sheets(i).Protect UserInterFaceonly:=True, Password:="1234"
>Next i
>
>期待通りに動作してくれているようでしたが、
>
>Worksheets("Sheet1").Range("A1").CurrentRegion.Copy Destination:=Worksheets("Sheet2").Range("A1")
>
>の記述のところで、保護されているから実行できないという旨の
>エラーが出ます。原因と解決法をお分かりの方、お教えください。

私は、シートの保護で「UserInterFaceonly:=True」というのを
仕事では使った事がありませんが、
本家情報にこんな情報がありました。

http://support.microsoft.com/default.aspx?scid=kb;ja;414681

参考になりませんか?

【12098】Re:VBA以外の保護したのにVBAが使えない...
回答  bykin  - 04/3/23(火) 22:48 -

引用なし
パスワード
   こんばんわ。

わての環境(Excel2003)でも再現しました。
コード分割したらあかんのでっか?

Worksheets("Sheet1").Range("A1").CurrentRegion.Copy
Worksheets("Sheet2").Range("A1").PasteSpecial

2003ならこれでいけまっけど・・・あかんかったらかんにんな。
ほな。

【12099】Re:VBA以外の保護したのにVBAが使えない...
発言  りん E-MAIL  - 04/3/23(火) 22:55 -

引用なし
パスワード
   小狐寅蔵 さん、こんばんわ

>VBAでのみ編集可能な保護をかけました。

保護はブックを開くたびに毎回かけてますか?
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=one;no=8996;id=Excel

【12125】Re:VBA以外の保護したのにVBAが使えない...
お礼  小狐寅蔵  - 04/3/24(水) 15:44 -

引用なし
パスワード
   様々なご助言ありがとうございます。

次のバージョンで修正されることを期待し、
もとのコードはそのままにして、

コピー処理の前に、unprotectし、
その後に、またprotectすることにしました。

12145 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free