Excel VBA質問箱 IV

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

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


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

【69112】セルのロック設定について KANA 11/5/18(水) 9:29 質問[未読]
【69113】Re:セルのロック設定について←解決しました KANA 11/5/18(水) 9:34 発言[未読]

【69112】セルのロック設定について
質問  KANA  - 11/5/18(水) 9:29 -

引用なし
パスワード
   セルのロック設定をマクロで行うとエラーがでてきてしまいます。
原因が分からず悩んでます。

ご教授頂けないでしょうか?

エラーメッセージは
”RangeクラスのLockedプロパティを設定できません"
です。

シート保護をVBAからしたくて、シート保護する前に全セルにロックを設定させてから、保護を設定しようとしています

現在は、ThisWorkbook に下記のように記述してあります。

Sheets("シート1").Activate
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False

 
  With Worksheets("シート1")
    .Unprotect Password:="Pass"
    .EnableAutoFilter = True
    .EnableOutlining = True 
    .Protect DrawingObjects:=True, contents:=True, _
    UserInterfaceonly:=True, Password:="Pass"
  End With
  
  With Worksheets("シート2")
    .Unprotect Password:="Pass"
    .EnableAutoFilter = True
    .EnableOutlining = True '---アウトラインの操作を可能にする
    .Protect DrawingObjects:=True, contents:=True, _
    UserInterfaceonly:=True, Password:="Pass"
  End With

上記のどこがいけないのか?いまいち分からなくて困ってます
どうかよろしくお願いします。

ちなみに、エラーが出るので、ロック設定するマクロを削除して、手動で全セルをロックして保存してみました。
しかし、次に再度開くと、なぜか、シート1のほうだけ、ロック設定が外れていて、保護はかかっているけど、セル自体は触れるといった現象になってしまいました。

どうにかしてエラーをせず、マクロからロックさせる事はできないでしょうか?

【69113】Re:セルのロック設定について←解決しま...
発言  KANA  - 11/5/18(水) 9:34 -

引用なし
パスワード
   すみません。
解決しました。

ロックする前に、保護の解除を入れたところ正常に動きました

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