Excel VBA質問箱 IV

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

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


34789 / 76734 ←次へ | 前へ→

【47151】Re:セルと一緒に編集許可範囲もコピーしたい
質問  GHQ  - 07/3/2(金) 15:29 -

引用なし
パスワード
   ▼りん さん:

>  With Application.ActiveSheet
>   .Unprotect
>   If .Protection.AllowEditRanges.Count = 1 Then
>     '設定が一つだけあったらセット(ほかは無視)
>     Set r2 = .Protection.AllowEditRanges.Item(1).Range
>     resp = vbYes

シートの中に範囲編集可能設定は複数あるので、
その中から該当する設定を選んで処理したものの、うまくいきません。
たとえば、上から3番目にある編集可能設定を当てはめるため、

Set r2 = .Protection.AllowEditRanges.Item(3).Range

とやると、一番上の設定をコピーしてくれたりします。
(Item番号と画面上の順番とは別物?)

ならば設定名称で判断しようと考え、

Dim stindx_st As Long
stindx_st = 1
Do Until Protection.AllowEditRanges.Title(stindex_st) = "内工費明細"
  stindx_st = stindx_st + 1
Loop

とやると、"実行時エラー424 オブジェクトが必要です"となります。

お目当ての設定名称を見つけるまでループする場合、
正しい書き方はどうすればよいでしょうか?

たびたびで申し訳ありません・・・・・

5 hits

【47113】セルと一緒に編集許可範囲もコピーしたい GHQ 07/3/1(木) 12:04 質問
【47116】Re:セルと一緒に編集許可範囲もコピーしたい りん 07/3/1(木) 14:30 発言
【47117】Re:セルと一緒に編集許可範囲もコピーしたい GHQ 07/3/1(木) 16:11 回答
【47130】Re:セルと一緒に編集許可範囲もコピーしたい りん 07/3/1(木) 19:35 回答
【47151】Re:セルと一緒に編集許可範囲もコピーしたい GHQ 07/3/2(金) 15:29 質問
【47172】Re:セルと一緒に編集許可範囲もコピーしたい りん 07/3/2(金) 21:09 回答
【47234】Re:セルと一緒に編集許可範囲もコピーしたい GHQ 07/3/5(月) 18:41 お礼

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