通過(guò)代碼實(shí)現(xiàn)禁止更改Excel工作表名稱的方法

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

Private Sub Worksheet_Deactivate()

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

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

MsgBox"工作表禁止更名!"

End If

End Sub

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

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

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