锁定工作表

Question

我使用Excel 2013，并有一个宏复制“主”工作表到工作簿的结束，一旦用户填写。根据“主”报告编号重新命名复制的工作表。有没有办法，一旦表格被复制到最后，它可以被锁定，因此用户不能对其进行任何更改。我只是希望他们能够查看它。我已经在网上研究了一些示例代码，但似乎没有做我想做的事情。任何人有任何想法或可以帮助吗？许多感谢

Answer 1

您可以使用.PROTECT和.Unprotect性能。下面是一个示例sub，它保护工作簿中的所有工作表，图表，然后保护工作簿本身。下面是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