测试如下:
Tables("编程参考").Grid.AllowResizing = 0 '行列都不能Tables("编程参考").Grid.AllowResizing = 1 '列能行不能Tables("编程参考").Grid.AllowResizing = 2 '行能列不能Tables("编程参考").Grid.AllowResizing = 3 '行列都能