非表示の行・列の一括保護 の コードの確認のお願い

Question

####概要
非表示の行や列を一括して、選択・保護する方法を考えていましたが
偶然できてしまいました。

VBA初学者なので、本当に、このコードで問題ないが起きないか心配です。
確認して頂けませんでしょうか。

####コード
Sub 保護()

ActiveSheet.Unprotect
Cells.Locked = True
Cells.SpecialCells(xlCellTypeVisible).Locked = False
ActiveSheet.Protect AllowFormattingCells:=True

End Sub

Answer 1

問題ないと思います。
（全行が非表示になっているとエラーになったりしますが、そんなケースは考慮しなくてもいいですよね。）

Comments

[ta-]

回答ありがとうございました！