怎么通過代碼實現(xiàn)禁止更改Excel工作表名稱？

1、啟動Excel并打開Visual Basic編輯器，在工程資源管理器中雙擊需要禁止更名的工作表選項打開其“代碼”窗口，在其中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：

Private Sub Worksheet_Deactivate()

If Me.Name<>"銷量統(tǒng)計表"Then

Me.Name="銷量統(tǒng)計表"

MsgBox"工作表禁止更名!"

End If

End Sub

圖1　打開“代碼”窗口并輸入程序

2、切換到Excel，對名為“銷量統(tǒng)計表”的工作表進行更名操作，當操作完成后切換到其他工作表時將觸發(fā)Deactivate事件過程，給出提示對話框，工作表恢復(fù)為設(shè)定的名稱，如圖2所示。

圖2　程序給出提示對話框同時工作表名恢復(fù)為設(shè)定名稱