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