シートの保護状況を確認してから保護する  Sub test()    ' 事前にワークシート保護を確認する     If A···