Nick,

I don't know how to stop this happening. However you could just set the
column widths using code and then I don't think they will change (sorry
if i'm wrong). However all number values will show as ##### if the
width is too small.

Sub changecolumnwidths()
ActiveSheet.Range("a1:g20").Select
Selection.ColumnWidth = 5
End Sub