受保护的Excel工作表中VBA宏无法替换未锁定单元格文本的问题

Cells.Replace 属于工作表全局编辑操作，即便你要修改的C33、B3单元格已解除锁定，工作表保护状态下依然会拦截这类全局操作，导致替换逻辑不生效。

直接针对两个解锁的目标单元格单独赋值、单独执行特殊字符替换，完全符合现有工作表保护规则，无需调整保护设置即可正常运行：

Dim ws As Worksheet
' 明确指定操作的工作表，避免切换活动工作表出错
Set ws = ActiveWorkbook.Sheets("Fetch")

' 给目标单元格赋值，text变量保留你原有传入逻辑即可
ws.Range("C33").Value = text
ws.Range("B3").Value = text

' 仅对两个目标单元格执行特殊字符替换，不会触发保护限制
ws.Range("C33").Value = Replace(ws.Range("C33").Value, "ÿþ", "")
ws.Range("B3").Value = Replace(ws.Range("B3").Value, "ÿþ", "")

如果你后续有全表替换需求，可以临时解除保护后执行原有逻辑，操作完成后自动恢复保护状态即可：

Dim ws As Worksheet
Dim protectPwd As String
' 此处填写你的工作表保护密码，未设置密码则留空
protectPwd = ""
Set ws = ActiveWorkbook.Sheets("Fetch")

' 临时解除工作表保护
ws.Unprotect Password:=protectPwd

' 执行业务逻辑
ws.Range("C33").Value = text
ws.Range("B3").Value = text
ws.Cells.Replace What:="ÿþ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

' 恢复工作表保护，参数和你原有保护设置保持一致即可
ws.Protect Password:=protectPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True

• 优先使用第一种方案，无需处理保护密码，也不会误修改其他单元格内容，完全匹配你的需求
• 原代码中的Application.Goto仅为定位跳转功能，对业务逻辑无影响可直接删除
• 所有操作明确指定工作表对象，避免切换活动工作表时出现执行异常

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