Проблема заключается в том, что необходимо защищать лист через VBA, и там необходимо прописать параметр разрешающий форматировать ячейки.
Используйте у метода "Worksheet.Protect" параметр "AllowFormattingCells":
Sub Макрос()
ActiveSheet.Protect AllowFormattingCells:=True
End Sub
Спасибо!