vba - Excel vba防止拖动工作表顺序

Question

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

例如：我有代码 Sheet1.cells(1, 1).value 并通过重新排列工作表来更改对象引用。我需要禁用它，这样用户就不会无意中破坏代码。也许是计划失败，但我仍然坚持这一点，直到可以重写为止。

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

我在网上、对象浏览器或 stackoverflow 上没有看到任何主题或解决方案，因此非常感谢您提供的帮助/参考。

谢谢。

score 2 · Accepted Answer

我看到代码的问题。

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

重新排列工作表现在不会破坏代码。现在我需要挖掘代码并找到更多实例。谢谢蒂姆，亚历山大。

1 回答 1