excel更改工作表名稱 通過(guò)代碼實(shí)現(xiàn)禁止更改Excel工作表名稱的方法，前天剛學(xué)習(xí)了一個(gè)excel的新技術(shù)，叫“excel更改工作表名稱”授課老師對(duì)我們說(shuō)，這一技術(shù)的專業(yè)全稱為“excel更改工作表名稱 通過(guò)代碼實(shí)現(xiàn)禁止更改Excel工作表名稱的方法”今天寶寶把這個(gè)技術(shù)分享給大家，不用謝哦~

在Excel中，工作表名稱顯示在工作表標(biāo)簽上，用戶可以任意對(duì)其進(jìn)行更改。Excel VBA并沒(méi)有提供修改工作表名稱時(shí)觸發(fā)的事件，但是可以通過(guò)為工作表的Deactivate事件添加代碼來(lái)檢測(cè)工作表名稱是否改變以達(dá)到禁止工作表更名的目的。本文介紹通過(guò)為工作表的Deactivate事件添加代碼來(lái)實(shí)現(xiàn)禁止為工作表更名的方法。

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

Private Sub Worksheet_Deactivate()

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

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

MsgBox"工作表禁止更名!"

End If

End Sub

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

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

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