Question

我正在使用Excel 2013，并且有一个复制＆＃34; master＆＃34;工作表到工作簿的末尾，一旦由用户填写。根据＆＃34; master＆＃34;重命名的工作表将被重命名。报告编号。有没有办法，一旦将工作表复制到最后，它可以被锁定，以便用户不能对其进行任何更改。我只是希望他们能够查看它。我已经在线研究了一些示例代码，但似乎没有做我想做的事情。任何人有任何想法或可以帮助？非常感谢

Answer 1

您可以使用.Protect和.Unprotect属性。下面是一个示例子，它保护工作簿中的所有工作表，图表，然后保护工作簿本身。这是a site，其中包含更详细的信息，通常也会审核how items are protected in Excel。

Sub protectWk(wk As Workbook)
Dim sh as Worksheet, ch as Chart
For Each sh In wk.Worksheets
  sh.Protect ("password")
Next
For Each ch In wk.Charts
  ch.Protect ("password")
Next
wk.Protect ("password")
wk.Close SaveChanges:=True
End Sub

锁定工作表

1 个答案: