'VBA禁止更改工作表名称
Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
If Sheet16.Name <> "数据" Then Sheet16.Name = "数据"
ThisWorkbook.Save
End Sub
'VBA禁止更改工作表名称
Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
If Sheet16.Name <> "数据" Then Sheet16.Name = "数据"
ThisWorkbook.Save
End Sub