A kind of rough workaround:
a = 2; Off[General::write] TableView[Dynamic@{{a, a^2}}, AllowedDimensions -> {3, 3}]
Of course, Hans, I can just switch off error messages. But that doesn't answer my question.