如何用VBA让Excel中含函数的单元格设为只读同时隐藏？

你的示例代码只是批量隐藏所有工作表的整列，没有针对含函数（公式）的单元格进行操作，所以无法实现需求。以下是针对两个功能的有效实现代码：

整合版：同时设置只读并隐藏含函数单元格 #

Sub ProtectAndHideFormulaCells()
    Dim ws As Worksheet
    Dim formulaCells As Range
    
    For Each ws In ThisWorkbook.Worksheets
        ' 先解锁所有单元格，确保仅锁定目标单元格
        ws.Cells.Locked = False
        
        ' 定位当前工作表中所有包含公式的单元格
        On Error Resume Next ' 处理无公式单元格的报错
        Set formulaCells = ws.Cells.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
        
        If Not formulaCells Is Nothing Then
            ' 标记含公式单元格为锁定状态（需配合工作表保护实现只读）
            formulaCells.Locked = True
            
            ' 通过自定义格式隐藏单元格内容（不隐藏行/列）
            formulaCells.NumberFormat = ";;;"
            
            ' 若需隐藏整行/整列，取消对应注释即可
            ' formulaCells.EntireRow.Hidden = True
            ' formulaCells.EntireColumn.Hidden = True
        End If
        
        ' 保护工作表，启用只读限制；密码可省略，UserInterfaceOnly允许VBA后续修改单元格
        ws.Protect Password:="yourpassword", UserInterfaceOnly:=True
    Next ws
End Sub

拆分版：单独实现每个功能 #

1. 设置含函数单元格为只读 #

Sub LockFormulaCells()
    Dim ws As Worksheet
    Dim formulaCells As Range
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.Locked = False
        On Error Resume Next
        Set formulaCells = ws.Cells.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
        
        If Not formulaCells Is Nothing Then
            formulaCells.Locked = True
        End If
        
        ' 保护工作表后，锁定的单元格将无法编辑
        ws.Protect Password:="yourpassword", UserInterfaceOnly:=True
    Next ws
End Sub

2. 隐藏含函数单元格内容 #

Sub HideFormulaCells()
    Dim ws As Worksheet
    Dim formulaCells As Range
    
    For Each ws In ThisWorkbook.Worksheets
        On Error Resume Next
        Set formulaCells = ws.Cells.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
        
        If Not formulaCells Is Nothing Then
            ' 方式1：隐藏内容（单元格仍可见，仅内容不可读）
            formulaCells.NumberFormat = ";;;"
            
            ' 方式2：隐藏整行
            ' formulaCells.EntireRow.Hidden = True
            
            ' 方式3：隐藏整列
            ' formulaCells.EntireColumn.Hidden = True
        End If
    Next ws
End Sub

关键说明 #

• SpecialCells(xlCellTypeFormulas)：高效定位所有含公式的单元格，比遍历每个单元格更节省资源
• 工作表保护是实现只读的必要步骤，UserInterfaceOnly:=True 确保VBA可以继续操作单元格，无需反复取消保护
• 自定义格式;;;会让单元格的内容、数字、文字都不显示，是隐藏内容但保留单元格位置的常用方法

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