启用受保护工作表的下拉宏

要启用受保护工作表的下拉宏，你可以使用以下代码示例：

Sub EnableProtectedSheetDropdown()
    Dim ws As Worksheet
    Dim dvCell As Range
    
    ' 设置要启用下拉列表的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要启用下拉列表的单元格范围
    Set dvCell = ws.Range("A1")
    
    ' 取消工作表保护
    ws.Unprotect
    
    ' 启用下拉列表
    With dvCell.Validation
        .Delete ' 删除现有验证
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="Option1,Option2,Option3" ' 设置下拉列表选项
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
    
    ' 重新保护工作表
    ws.Protect
    
    ' 清除选择
    dvCell.Clear
    
    ' 激活下拉列表单元格
    dvCell.Select
End Sub

请注意，上述代码示例中的以下部分需要根据你的实际需求进行修改：

• Set ws = ThisWorkbook.Worksheets("Sheet1")：将 "Sheet1" 替换为你要启用下拉列表的工作表的名称。
• Set dvCell = ws.Range("A1")：将 "A1" 替换为你要启用下拉列表的单元格的位置。
• .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Option1,Option2,Option3"：在 Formula1 中设置你要在下拉列表中显示的选项，用逗号分隔。

将上述代码复制粘贴到 VBA 编辑器中的一个模块中，然后运行 EnableProtectedSheetDropdown 宏，即可启用受保护工作表的下拉列表。