可以使用project方法，保护工作表。另外，要先使用locked属性和formulahidden来锁定和隐藏需要锁定或者隐藏的单元格区域。要填数据的可以不锁定，需要锁定的部分锁定并保护工作表了之后才可以的。

在Excel中要对工作表进行保护，可以通过单击菜单“工具→保护→保护工作表”的方法来进行。如果要用VBA来保护工作表或撤消工作表保护，可以用下面的代码：Public Sub Protect_Sheet()‘保护工作表，设置密码为“password”ActiveSheet.Protect Password:="password"End Sub 上述代码可以对活动工作表进行保护，...

rem 代码功能：打开工作簿40分钟后，对工作表进行加密保护：密码mPwdrem 以下代码，放到thisworkbook代码窗格中Private Sub Workbook_Open() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets If sh.ProtectContents Then sh.Unprotect "mPwd" Next Application.OnTime Now + T...

ActiveSheet.Unprotect '撤消保护 t = Date '当前日期 For i = 3 To 100 '判断范围M3:M100 If Cells(i, 13) <= t - 7 Then Cells(i, 13).Locked = True Else Cells(i, 13).Locked = False End If Next ActiveSheet.Protect '保护工作表 End Sub 代码放置在thisworkbook模块中，只要打开...

实例：保护工作表，并禁止选定锁定的单元格，同时允许VBA在后台对工作表中被保护的单元格进行修改，而不弹出对话框。当blnEnabledIt=0时解除工作表保护。代码如下：Sub ProtectIt(Optional blnEnabledIt As Boolean = True)‘ blnEnabledIt = False With ActiveSheet If blnEnabledIt Then .EnableSelection...

有时我们在Excel中制作的工作表需要反复修改，并保存为多个版本。修改的次数多了，很容易混淆。如果能把工作簿的最后保存日期和时间显示在工作表的某个单元格或页眉页脚中，查看起来就非常方便了。用VBA代码就能够轻松地实现这一点，方法如下：1.按Alt+F11，打开VBA编辑器。2.在“工程”窗口中，双击“...

Private Sub Workbook_BeforePrint(Cancel As Boolean) rg = ActiveSheet.PageSetup.PrintArea If Not Range("a1:e100 " & rg) Is Nothing Then Cancel = TrueEnd Sub

首先从工具箱选择日期时间选择控件，并在工作表中绘制一个控件实例：DTPicker1 在工作表代码页写入如下代码 Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume Next Set rag = Application.Intersect(Target, Range("E:E"))If rag Is Nothing Or rag.Address <> Target....

Private Sub Workbook_Open()If [a1] = "" Then [a1] = Date Else Exit Sub End If End Sub 在工作表标签，右键，查看代码。双击Thisworkbook，得到一个代码窗口 将这段代码粘贴到Thisworkbook的代码窗口内即可 a1是一个单元格地址 要改变日期的存放地址，请将a1更改为其它单元格地址即可 ...

Private Sub Workbook_Open()dim sh1 as worksheet for each sh1 in worksheets sh1.Protect Password:="1", userinterfaceonly:=True sh1.EnableOutlining = True next End Sub