Excel VBA阻止拖动工作表顺序

有没有一种方法来防止工作表重新排列？ 例如：Sheet1，Sheet2，Sheet3不能拖动到Sheet3，Sheet2，Sheet1的新顺序。

例如：我有代码Sheet1.cells（1，1）.value和通过重新安排表，它改变了对象的引用。 我需要禁用这个，所以用户不会无意中破坏代码。 也许是计划上的失败，但在这一点上，我一直坚持下去，直到重写成为可能。

如果可能的话，将需要2003年，2007年，2010年及以后的解决scheme。

我没有在网上，在对象浏览器，或在计算器上看到任何主题或解决scheme，所以将不胜感激您的帮助/引用您可能必须提供。

谢谢。

Answer 1

我看到代码的问题。

 Main 1 Sub Main(sheetIndex as integer) Dim ws as worksheet Dim x as String Set ws = Sheets(sheetIndex) x = ws.Cells(1, 1).value End sub 

变成：

 Main Sheet1 Sub Main(sheetIndex as Object) Dim x as String x = sheetIndex.Cells(1, 1).value End sub 

重新排列工作performance在不会破坏代码。 现在我需要挖掘代码并find更多的实例。 谢谢Tim，Alexandre。