excel - 将工作表保持在工作簿的首位

Question

我有一个带有封面的工作簿，其余的工作表不可见。如果选中，复选框会显示选项卡。

封面在书中移动。我希望封面始终处于第一个位置。

有没有办法做到这一点？

Sub CheckBoxA1_Click()
    Sheets("A").Visible = Not Sheets("A").Visible
End Sub

Sub CheckBox2_Click()
    Sheets("B").Visible = Not Sheets("B").Visible
End Sub

尽管封面在不同的地方向上延伸，但宏也能很好地工作，其他表格也变得可见。我希望它始终处于第一位。这可能吗？

Answer 1

使用 Workbook.Open打开工作簿时将该特定工作表移动到第一个位置的事件。

将此代码添加到 ThisWorkbook模块和更改Sheet1该表的代号:

Private Sub Workbook_Open()
    Sheet1.Move Before:=Me.Sheets(1)
End Sub