Excel VBA sheetに保護をかけるのと保護を解除するマクロについて

こんにちは脇村です。僕のブログでは、本業での実務上のＥＸＣＥＬ、ＡＣＣＥＳＳマクロ＆ＶＢＡの使えそうなコードの紹介、コールドリーディングの実践例、電話占いでの現場、最近読んでいいなと思った本等について、主に発信していきたいと思っています。

今回はＥＸＣＥＬＶＢＡについて発信したいと思います。こういったプログラム系統は何を実現したいかを強く頭に描くことが実現への第一歩につながると思います。少しずつ発信していってその手助けができれば幸いだと思っています。今回はＥＸＣＥＬＶＢＡsheetに保護をかけるマクロと保護を解除するマクロについてです。

Sub 保護()
Dim 番号 As Integer
For 番号 = 2 To 33 ①
Sheets(番号).Protect ②
Next 番号
End Sub

Sub 保護解除()
Dim 番号 As Integer
For 番号 = 2 To 33 ①
Sheets(番号).UnProtect ③
Next 番号
End Sub

①はsheetの2番目から33番目まで処理をするコードです。
②は保護をかけます。
③は保護を解除します。
今回はsheetに保護をかけるマクロと保護を解除するマクロでした。次回もまたよろしくお願いします。

今話題の【お財布専用ふとん】