若表簿顺序发生变化则不许保存

天地一相

感谢帮助。一个EXCEL文件里有多张表簿，有时候鼠标太快会误点拖动改变了位置。请教：是否可以有一段代码防止已经放置好的表簿发生变化，若变化了，就不许保存，这样一旦保存，就弹窗，我就知道误点了。

另：我的表簿都命名过的，摆放的顺序就是VBA里能看到的表簿1，2，3，4，5，6，等显示的先后顺序。

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2.    
   
3.     Dim Arr As Variant, Ws As Worksheet, n%
   
4.       
   
5.           n = 0
   
6.         Arr = Array("主表", "月表", "季表")
   
7. 
   
8.     For Each Ws In ThisWorkbook.Worksheets
   
9.         If Ws.Name <> Arr(n) Then
   
10.            MsgBox "表簿位置改变，不可保存！"
    
11.            Cancel = True
    
12.            Exit For
    
13.         End If
    
14.         n = n + 1
    
15.     Next Ws
    
16.    
    
17.     If Application.WorksheetFunction.CountA(Sheet2.Range("A3:I25")) > 0 Then
    
18.        MsgBox "查阅状态，不可保存！"
    
19.        Cancel = True
    
20.        Exit Sub
    
21.     End If
    
22.    
    
23.     Beep
    
24. 
    
25. End Sub
    

复制代码

tanglf188

ykcbf1100

我的理解，表的顺序和对表的操作没有啥影响吧。

天地一相

ykcbf1100 发表于 2024-7-9 19:21
我的理解，表的顺序和对表的操作没有啥影响吧。

没发现有什么影响，循环表的时候不知道对顺序是否有要求。只是我哪张表在什么位置，点顺手了，看习惯了，位置变了非常不习惯。

小凡、、、

如果纯数字且连续没有间断的话，可以在关闭工作薄时运行一遍所有sheet按数字重新排序

天地一相

小凡、、、 发表于 2024-7-9 20:44
如果纯数字且连续没有间断的话，可以在关闭工作薄时运行一遍所有sheet按数字重新排序

因为我全部使用非数字给表簿重新命名了，所以我想，不管我的命名，只管看是否按sheet1,sheet2,sheet3,这样的顺序摆放的。

小凡、、、

天地一相 发表于 2024-7-9 21:40
因为我全部使用非数字给表簿重新命名了，所以我想，不管我的命名，只管看是否按sheet1,sheet2,sheet3,这 ...

那就不用csti(i)      直接sheets(i).move

天地一相

小凡、、、 发表于 2024-7-10 13:07
那就不用csti(i)      直接sheets(i).move

还不是这个意思。我们写代码时，例如这样的写法sheet1.range('a1'),等，我想知道，我文件里，摆放在第一个位置的那张表簿，是不是我示例句子写法中的sheet1，其它位置类推。我说的是这个意思。若不是，就说明我的表簿被误点拖动改变位置了。我的表簿都已重新命名了，且从命名上看不出顺序规则。只是我习惯了哪张表在什么位置，改变位置使用就不方便。

micch

分清楚工作表的  name和codename 就知道如何处理了，最简单的办法，锁定工作簿就行了，顺序就不会被改了，需要改的时候解锁就是了

天地一相

micch 发表于 2024-7-10 19:43
分清楚工作表的  name和codename 就知道如何处理了，最简单的办法，锁定工作簿就行了，顺序就不会被改了， ...

感谢！你这样简单的一个答案，我却傻乎乎地忙乎了几天。