Question

我有一个Excel电子表格，需要保护其大部分单元格免受编辑。我无法以通常的方式保护工作表，因为我使用组（顶部的小+以扩展某些列）。

我找到了一个VBA宏来保护我的工作表，但在Excel 2010中我注意到我可以简单地“取消保护工作表”并修改所有内容，即使整个工作簿仍然受到保护。

这是我在“ThisWorkbook”中使用的宏：

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="nopassword" 
If Range("C3").Value = "protect" Then 
    Range("C4:C65536").Locked = True 
Else
    Range("C4:C65536").Locked = False
End If
ActiveSheet.Protect Password:="fakepass" 
End Sub

Private Sub Workbook_Open()
Dim x As Long

For x = 1 To ActiveWorkbook.Sheets.Count
    With ActiveWorkbook.Sheets(x)
        .Protect UserInterfaceOnly:=True
        .EnableOutlining = True
    End With
Next

End Sub

如何修改此代码以使用表1？

我知道这不是最安全的保护形式，但它只是为了防止人们意外地修改细胞。

Answer 1

如果你改变：

ActiveSheet.Protect Password:="fakepass"

要：

Worksheets("Sheet1").Protect Password:="fakepass"

它将仅适用于Sheet1而非活动工作表。

或者您可以创建一个宏来保护所有工作表，例如：

Sub ProtectAll()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="fakepass", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next ws

End Sub

然后将其调入主代码？

Answer 2

ActiveSheet.Unprotect Password:="nopassword"只会参考您所在的任何表格。

无论选择何种工作表，

Sheets("Sheet1").Activate都会将活动工作表设置为sheet1。

那是你所追求的吗？

保护工作表而不是工作簿

2 个答案: