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