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