如何通過代碼實現(xiàn)禁止更改Excel工作表名稱
如何通過代碼實現(xiàn)禁止更改Excel工作表名稱
在Excel中，工作表名稱顯示在工作表標(biāo)簽上，用戶可以任意對其進行更改。Excel VBA并沒有提供修改工作表名稱時觸發(fā)的事件，但是可以通過為工作表的Deactivate事件添加代碼來檢測工作表名稱是否改變以達到禁止工作表更名的目的。以下是學(xué)習(xí)啦小編為您帶來的關(guān)于通過代碼實現(xiàn)禁止更改Excel工作表名稱，希望對您有所幫助。
通過代碼實現(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)計表”的工作表進行更名操作，當(dāng)操作完成后切換到其他工作表時將觸發(fā)Deactivate事件過程，給出提示對話框，工作表恢復(fù)為設(shè)定的名稱，如圖2所示。
圖2 程序給出提示對話框同時工作表名恢復(fù)為設(shè)定名稱
充分利用了Excel在邊界上提供的附加功能
這里我們首先拿“列”開刀。默認情況下，Excel的列寬限定為一定長度的字符串寬度。如果你在單元格填入的是數(shù)字，且數(shù)字位數(shù)不多于十一個，相應(yīng)單元格的寬度就會自動適應(yīng)數(shù)字長度，將它全部顯示出來。但當(dāng)你輸入第十二位數(shù)字的時候，單元格將會以科學(xué)計數(shù)法將格內(nèi)數(shù)字顯示出來。這里只要單元格內(nèi)數(shù)字位數(shù)不超過三十，其寬度都可以自動適應(yīng)。
但對于字符串來說，Excel卻不提供類似的功能。你可以試著在C2格輸入“Testing the width”。此時如果D2內(nèi)沒有字符串，上面這行字符串就會直接覆蓋到D2上去。而如果D2內(nèi)有字符，C2在屏幕上將只會顯示原字符串的一部分。
當(dāng)然，你可以通過點擊列頭C，在“格式”菜單中選擇“列” “最適合的列寬”使得單元格能夠自動調(diào)整顯示全格中的字符串內(nèi)容。但其實Excel里面還有一種更為方便的方法：我們假設(shè)這時D2內(nèi)也存在一組字符串，C2內(nèi)的那一長串字符將僅會顯示一部分。請雙擊列頭C和D之間的黑線，你會看到C列的寬度已經(jīng)自動適應(yīng)了格中的字符長度。
調(diào)整數(shù)據(jù)列寬度以適應(yīng)單元格內(nèi)容。
如果你從A列一直輸入到了F列。要想讓單元格自動適應(yīng)寬度，首先全選A-G列，鼠標(biāo)放在列頭F和G中間那條黑線上，雙擊。之后所有這些列的寬度都將會自動調(diào)整。
假設(shè)列A是一個空列，你可以鼠標(biāo)左鍵按住列頭A和B之間的黑線。此時鼠標(biāo)下方會顯示如下信息：(寬度)：x.xx(xx像素)。這里的像素信息可以用來在你向網(wǎng)頁中添加表格時作寬度參考。當(dāng)你在此處調(diào)整列寬時，下面的信息也會跟著實時更新。
如果此時你點擊的是行頭間的黑線，將會顯示行高。雙擊黑線，Excel也會自動調(diào)整行高。
猜你喜歡：