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

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

Private Sub Worksheet_Deactivate()

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

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

MsgBox"工作表禁止更名!"

End If

End Sub

圖1　打開(kāi)“代碼”窗口并輸入程序

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

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