摘要： 在Excel中要对工作表进行保护，可以通过单击菜单“工具→保护→保护工作表”的方法来进行。如果要用VBA来保护工作表或撤消工作表保护，可以用下面的代码： Public...
在Excel中要对工作表进行保护，可以通过单击菜单“工具→保护→保护工作表”的方法来进行。如果要用VBA来保护工作表或撤消工作表保护，可以用下面的代码：
Public Sub Protect_Sheet()
‘保护工作表，设置密码为“password”
ActiveSheet.Protect Password:="password"
End Sub
上述代码可以对活动工作表进行保护，并设置保护密码为“password”。下面的代码撤消活动工作表保护：
excel在VBA中使用非连续区域
如果要在VBA中使用非连续区域，可以用类似Range("A1, B2, C3:D10")的语句，如下例： Sub NonContiguousRange()Dim oRng As RangeSet oRng = Range("A1, B2, C3:D10")oRng.Value =
Public Sub Unprotect_Sheet()
‘用已知密码“password”撤消工作表保护
ActiveSheet.Unprotect Password:="password"
End Sub
这种撤消工作表保护的方法必需用已知密码进行，如果密码不正确，会产生一个错误，如图。
在Excel中用快捷键输入“HH:MM:SS”格式的当前时间
我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl Shift ;”，但是这种输入方法只能显示小时和分钟，即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输入当前时间时，在单元格中显示的是包含秒的“HH:MM:SS”格式。方法如下： 按Alt F1
