如何使Excel工作表不可触摸？

Question

我怎样才能使Excel工作表不可触摸？我的意思是，当我按“ sheet2>”时，我想移至“ sheet3”。附带的jpg。 预先感谢！

Answer 1

将以下代码放在您的ThisWorkbook范围内：

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Right$(Sh.Name, 1) = ">" And Sh.Index + 1 <= ThisWorkbook.Sheets.Count Then
         ThisWorkbook.Sheets(Sh.Index + 1).Activate
    End If
End Sub

，并且当工作表名称以>结尾时，它将移动到下一个工作表

但是我建议隐藏sheet2>而不是这样做。您尝试的只是在玩，但一点也不安全。