小编Ron*_*via的帖子

我正在使用以下代码来锁定某些单元格的内容

Sub LockCell(ws As Worksheet, strCellRng As String)
  With ws
   .Unprotect
   .Cells.Locked = False
   .Range(strCellRng).Locked = True
   .Protect Contents:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, DrawingObjects:=True
  End With
End Sub

它可以很好地锁定那些特定列的内容.问题是,在电子表格本身上工作时,用户既不能过滤也不能对单元格应用边框,因为这些excel菜单项被禁用.我想AllowSorting:=True,AllowFiltering:=True并DrawingObjects:=True允许以同样的方式,AllowFormattingColumns:=True并AllowFormattingRows:=True允许调整大小.

预先感谢您的帮助.

此致,罗纳德