'VBA禁止更改工作表名称
Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
If Sheet16.Name <> "数据" Then Sheet16.Name = "数据"
ThisWorkbook.Save
End Sub
VBA禁止更改工作表名称
最新推荐文章于 2023-03-10 18:29:43 发布
'VBA禁止更改工作表名称
Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
If Sheet16.Name <> "数据" Then Sheet16.Name = "数据"
ThisWorkbook.Save
End Sub