摘要： 在Excel中经常进行设置密码的保护工作表或撤消工作表保护的操作时，每次都单击菜单或功能区中的“保护工作表”命令，并在对话框中设置密码显得有些繁琐。如果能用快捷键来保护工作表或取消工作表保护就方便多了。下面的宏就可以实现这个目的。
1.按Alt F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中粘贴下列代码：
Sub ProtectOrUnprotect()
On Error GoTo l_end
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="123"
Else
ActiveSheet.Protect Password:="123"
End If
l_end:
End Sub
Excel中vba变量类型小结
本文对excel中vba变量类型和dim语句进行一些小结。 EXCEL VBA中，如何判断数据类型？使用变量的第一步是了解变量的数据类型。变量的数据类型控制变量允许保存何种类型的数据。 下面这个表列出了VBA支持的数据类型，以及各种数据类型的变量所需要的存储空间和能够存储的数值范围。 作为我们编写代码，为
代码中保护工作表和撤消工作表保护的密码都为“123”，可根据需要自行更改。
2.返回工作表界面，按Alt F8，打开“宏”对话框，选择“ProtectOrUnprotect”宏，单击“选项”按钮，为该宏指定一个快捷键，如输入字母“e”，则快捷键“Ctrl E”则为执行该宏命令的快捷键，如图。
3.单击“确定”，关闭“宏”对话框。以后选择某个工作表，反复按快捷键“Ctrl E”即可在保护工作表和撤消工作表保护之间切换。需要注意的是，执行宏命令前须确保工作簿已设计完毕，因为宏命令运行后将无法撤消到工作簿以前的状态。
excel利用自定义函数获取工作表名称
有时需要在工作表中引用同一工作簿中其他工作表名称，当工作表数量较多时，逐一手工输入有些繁琐，这时可以添加一个自定义函数来快速获取工作表名称，方法如下： 按Alt F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入下列代码： Function GetSheetName(i
