第二步:添加工作簿事件代码 在VBA编辑器中双击 ThisWorkbook,粘贴以下代码:vba Private Sub Workbook_Open() ' 工作簿打开时锁定所有工作表 Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="12345
在VBA中,你可以使用Worksheet对象的 Protect方法来保护工作表,确保其内容不被修改。其语法如下:```vb expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHype...
执行以下代码可以重新保护工作表,并设置密码为“yourpassword”,同时指定仅保护用户界面,允许通过VBA代码进行修改:```vba ws.Protect Password:="yourpassword", UserInterFaceOnly:=True ```实际运用示例 在理解了如何使用VBA代码来保护和解锁工作表之后,我们可以进一步探索如何在实际工作中应用这些知识。以下是一些建...
Set ws = Sheets("Main") ws.Protect UserInterfaceOnly:=True ws.Range("A1").Value = "当前用户:" & currUser & "(" & arrUser(i, 2) & ") " & Chr(10) & "用户权限:" & currPermission If currPermission = "All" Or InStr(currPermission, "/用户权限表/") Then ws.OLEObjects("CmdUse...
(除了表头不允许修改,其他可以操作)16sh.Protect Password:="123456", _17UserInterFaceOnly:=True, _18DrawingObjects:=False, _19Contents:=True, _20Scenarios:=False, _21AllowFormattingCells:=True, _22AllowFormattingColumns:=True, _23AllowFormattingRows:=True, _24AllowInsertingColumns:=True, _25Allow...
Excel VBA Protect参数详解 By 张印东 摘要:⽤VBA对EXCEL编程时,Worksheet.Protect⽅法总计有16个参数,其中部分参数的实际意义很难理解,本⽂重点对如下6个参数的含义进⾏了深⼊挖掘:→DrawingObjects →Contents →Scenarios →UserInterfaceOnly →AllowSorting →AllowFiltering 说明:本⽂所述内容均通过Excel...
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True 本示例将活动工作簿设为只读? ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly 本示例使共享工作簿每三分钟自动更新一次? ActiveWorkbook.AutoUpdateFrequency = 3 下述Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。
引用:Excel开发人员参考中对通过VBA保护工作表的方法进行了如下描述: Worksheet.Protect方法 保护工作表使其不能被修改。 语法 表达式.Protect(Password,DrawingObjects,Contents,Scenarios,UserInterfaceOnly,AllowFormattingCells,AllowFormattingColumns,AllowFormattingRows,AllowInsertingColumns,AllowInsertingRows,AllowInsertingHyperl...
实例:保护工作表,并禁止选定锁定的单元格,同时允许VBA在后台对工作表中被保护的单元格进行修改,而不弹出对话框。当blnEnabledIt=0时解除工作表保护。代码如下:Sub ProtectIt(Optional blnEnabledIt As Boolean = True)‘ blnEnabledIt = False With ActiveSheet If blnEnabledIt Then .EnableSelection...
19、Protect:保护工作表 '保护工作表,密码123,仅在用户界面有效,用代码可以操作工作表 ws.Protect Password:=123, userinterfaceonly:=True 20、Sort:工作表排序 With ws.Sort .SortFields.Clear .SortFields.Add Key:=Range("b2:b10"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:...