|
セルのロック設定をマクロで行うとエラーがでてきてしまいます。
原因が分からず悩んでます。
ご教授頂けないでしょうか?
エラーメッセージは
”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のほうだけ、ロック設定が外れていて、保護はかかっているけど、セル自体は触れるといった現象になってしまいました。
どうにかしてエラーをせず、マクロからロックさせる事はできないでしょうか?
|
|