エクセルで2つのマクロを結合したい

質問

毎度お世話名なっております。

以前ここで教えてもらった保存時に全シートの入力済みセルに自動で保護がかかる＜マクロ１＞を教えてえもらって非常に多くのBookに採用しているのですが、今回同じBookの「計算表」シートの特定のいくつかのセルだけ保護がかからないようにしたく試行錯誤で2つのマクロをつなげてみたのですが情けないことに期待通りに動かず。
単に最初のマクロのEnd Subを削除しただけではうまくいかず。

どなたかHELPお願い致します。

＜マクロ１＞
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Const MyPassword = "" 'パスワード（省略可）
Dim sh As Worksheet
On Error Resume Next
For Each sh In Worksheets
sh.Unprotect Password:=MyPassword
With sh.Cells
'全セルのロックを外す
.Locked = False
'定数が含まれているセルにロックを掛ける
.SpecialCells(xlCellTypeConstants).Locked = True
'数式が含まれているセルにロックを掛ける
.SpecialCells(xlCellTypeFormulas).Locked = True
End With
sh.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:=MyPassword
Next
On Error GoTo 0

End Sub
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
Sub 保護解除()
＜マクロ２＞
' 保護解除 Macro
''
Sheets("計算表").Select
Range("C6:D6").Select
ActiveSheet.Unprotect

End Sub

回答No.3

kkkkkm · ベストアンサー

No1です
の後ろにC6:D6をロックしたくなければ
は
後ろじゃなくて前にの間違いでした。ぼけてました(笑)

お礼

訂正のご回答ありがとうございます。
朝一で複数の範囲のセルを指定してみて期待通りの動作が確認できました。

最近この使い方が出てきたのでいつくかのシートにコピーして使わせていただきます。

回答No.2

nishi6

End Withの前に3行追加でしょうか。Sub 保護解除 は不要です。
Unprotect 中にLockを解除すべきでしょう。

　　　'数式が含まれているセルにロックを掛ける
　　　.SpecialCells(xlCellTypeFormulas).Locked = True
　　　If sh.Name = "計算表" Then
　　　　sh.Range("C6:D6").Locked = False
　　　End If
　　End With

お礼

早々のご回答ありがとうございました。
朝一で＃No1さんのご回答で解決できましたのでBSは最初のご回答にさせていただきますのでご了承くださいませ。

回答No.1

kkkkkm

sh.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:=MyPassword
の後ろにC6:D6をロックしたくなければ
If sh.Name = "計算表" Then
sh.Range("C6:D6").Locked = False
End If
を付けくわえたらいいと思います。
記載された状態で最後に保護はかかるんですよね。

お礼

早々のご回答ありがとうございました。
助かります。