如何锁定工作表位置在第一位，不能移动

joen168

如何锁定工作表位置在第一位，不能移动

如附件中的“总表”工作表被锁定后，不能被移动。永远都是标签栏的第一位。禁止移动，即无法移动。

注意：不是移动了再跳回来第一位这种效果。

[ 本帖最后由 joen168 于 2009-5-11 12:17 编辑 ]

joen168

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.EnableEvents = False
'  Application.ScreenUpdating = False
  MyActiveIndex = Sheets("总表").Index
  MySht = ActiveSheet.Name
  MyIndex = 3  '此表格出现的位置为第3张表
  MyShtNum = Sheets.Count
  
  If MyIndex > MyShtNum Then
    MyIndex = MyShtNum
  End If
  
  If MyShtNum > 1 Or MyIndex <> MyActiveIndex Then
   
    If MyIndex > MyActiveIndex Then
      MyInsIndex = MyIndex
    Else
      MyInsIndex = MyIndex - 1
    End If
        
    Sheets("总表").Move After:=Sheets(MyInsIndex)
  End If

    Sheets(MySht).Select
  Application.EnableEvents = True
'  Application.ScreenUpdating = False
End Sub


这段代码没有起作用。就算是起作用好像也是“能移动，但会跳回第一位”这样也没有达到预想效果。

[ 本帖最后由 joen168 于 2009-5-12 08:13 编辑 ]

Aeolian-Vox

Dim WSh As Worksheet
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Set WSh = ActiveSheet
If WSh.Name <> "总表" Then Exit Sub
Application.EnableEvents = False
    ActiveWorkbook.Protect Structure:=True, Windows:=False
    If Sheets("总表").Index <> 1 Then Sheets("总表").Move Before:=Sheets(1)
Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set WSh = ActiveSheet
If WSh.Name = "总表" Then Exit Sub
Application.EnableEvents = False
   ActiveWorkbook.Unprotect
   If Sheets("总表").Index <> 1 Then Sheets("总表").Move Before:=Sheets(1)
Application.EnableEvents = True
End Sub

没有绝对锁定的可能。

Aeolian-Vox

上述代码依旧有问题。
干脆锁定工作簿即可。

joen168

三楼的代码需要调试。。

yf_992258

4楼说的对，锁工作簿就好了
Private Sub Workbook_Open()
ThisWorkbook.Protect "aaa"
End Sub
如果要想添加删除或修改sheet名，再用thisworkbook.unprotect "aaa"解开，最后结束时候ThisWorkbook.Protect "aaa"再锁上

joen168

谢谢各位。但锁定了工作簿后很不方便的。因为经常要添加工作表或修改工作的内容。不知是否还有没有更好的方法。

joen168

还没有最好的办法。？？？

joen168

看来锁不住。。。

yamszwll

我不太会，但我明白你的意思 如有60个表作表，把某个工作表的标签放在第一位置，对其它任何工作表操作时，这个工作表的标签还是在第一位置不变，可以直接点选到这个工作表，不用去拉滚动条去再去选择。是吗？ 我也想解决这个问题，