使用VBA锁定单元格

Question

我有一张包含多张工作表的电子表格，除了我希望人们进行更改以外，所有工作表都受到保护。我正在尝试创建一个命令按钮，以便其他人可以查看数据，但无法对单元格进行更改。这就是我所拥有的（不是很正常）。

Private Sub mdRead_Click()                                                    
    Dim ws As Worksheet 
    For Each ws In ActiveWorkbook.Sheets 
        'To open wookbook as read only, while proctecting changes. 
        Worksheet.Unprotect = True 
        Worksheet.Range("C10:I23,L10:R23,C25:I36,L25:R36,C45:I58,L45:I58,C60:I71,L60:R71").Select 
        Selection.Locked = True  
    Next ws 
End Sub

Answer 1

设置了Locked属性后，您可能希望再次保护工作表。