如何通过代码实现禁止更改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也会自动调整行高。
猜你喜欢：
