如何用Excel VBA实现工作簿密码保护，排除指定工作表及单元格？

嘿，我来帮你搞定这个VBA代码的问题！你的需求是给整个工作簿设置密码保护，但要排除「Inputdata」工作表，同时让「Voorblad」里的D5单元格保持可编辑状态。原来的代码只做到了跳过「Inputdata」的保护，但没处理「Voorblad」的D5单元格——问题出在默认情况下所有单元格都是锁定状态，直接跳过保护的话整个「Voorblad」都没被保护，而你要的是保护「Voorblad」但单独放开D5，这得调整代码逻辑。

修改后的完整代码 #

Sub Beveiliging_Bestand()
    Dim Sheet As Worksheet
    Dim strPassword As String
    strPassword = "kpi" ' 把密码单独设成变量，后续修改更方便
    
    For Each Sheet In ActiveWorkbook.Sheets
        Select Case Sheet.Name
            Case "Inputdata"
                ' 完全跳过这个工作表的保护，确保它处于可编辑状态
                On Error Resume Next ' 防止工作表未被保护时执行Unprotect报错
                Sheet.Unprotect strPassword
                On Error GoTo 0
            Case "Voorblad"
                ' 第一步：先解锁D5单元格（默认单元格是锁定的，保护后会被锁住）
                Sheet.Range("D5").Locked = False
                ' 第二步：保护工作表，此时只有未锁定的D5可以编辑
                Sheet.Protect _
                    Password:=strPassword, _
                    UserInterfaceOnly:=True ' 可选参数：允许VBA后续修改工作表，不用每次解锁
            Case Else
                ' 保护其他所有工作表
                Sheet.Protect Password:=strPassword
        End Select
    Next Sheet
End Sub

关键知识点解析 #

• 单元格锁定逻辑：Excel单元格默认Locked属性为True，当工作表被保护时，所有锁定的单元格都会被禁止编辑。所以要让D5可编辑，必须先把它的Locked设为False，再保护工作表。
• UserInterfaceOnly参数：加上这个参数后，VBA代码可以直接修改被保护的工作表，不用每次先解锁，后续如果有其他VBA操作会更方便，不需要的话可以删掉这一行。
• 错误处理：在处理「Inputdata」时加入On Error Resume Next，是为了避免工作表本来就没被保护时，执行Unprotect报错。

测试小提示 #

1. 运行代码前记得保存工作簿，避免意外情况丢失数据
2. 测试时可以尝试编辑「Voorblad」的D5和其他单元格，确认只有D5能正常编辑
3. 如果之前「Voorblad」已经被保护，运行代码前最好先手动解锁一次，确保代码能顺利修改单元格属性

内容的提问来源于stack exchange，提问作者Steffie