Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34793 / 76738

←次へ　｜　前へ→


	【47151】Re:セルと一緒に編集許可範囲もコピーしたい

ＧＨＱ - 07/3/2(金) 15:29 -


	引用なし

	パスワード

▼りんさん：

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

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

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　オブジェクトが必要です"となります。

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

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

1 hits

▼

【47113】セルと一緒に編集許可範囲もコピーしたい ＧＨＱ 07/3/1(木) 12:04