文件打开时如何锁定单元格？VBA锁定后Autofit方法报错求助

我来帮你搞定这两个困扰——先说说Autofit Method of Range Class Failed的报错，再讲文件打开时自动锁定单元格的实现：

一、Autofit报错的原因与修复 #

这个报错的核心原因是工作表被保护后，默认不允许通过VBA或用户操作修改行高/列宽，而你的代码里调用了AutoFit调整行高，自然就触发了权限错误。

有两种靠谱的修复方案：

方案1：临时解锁工作表再执行Autofit #

在你的触发Autofit的代码块里，先临时取消保护，执行完自动调整后再重新保护工作表：

Sub 你的触发Autofit的宏()
    ' 取消工作表保护（如果设置了密码，替换成你的密码，无密码则省略Password参数）
    Sheet1.Unprotect Password:="YourPassword"
    
    ' 执行自动调整行高
    Sheet1.Range("H11:H50").EntireRow.AutoFit
    
    ' 重新保护工作表，重点加上*UserInterfaceOnly:=True*
    Sheet1.Protect Password:="YourPassword", UserInterfaceOnly:=True
End Sub

这里的UserInterfaceOnly:=True是关键——它允许VBA代码在工作表保护状态下直接操作单元格，不用每次都解锁，后续你的公式修改H、J等列的操作也不会受影响。

方案2：保护工作表时允许调整行高（不推荐，除非需求允许） #

如果你不介意用户手动调整行高，可以在保护工作表时加上AllowFormattingRows:=True参数，但这样用户也能手动修改行高，可能不符合你“防止用户编辑”的需求，所以更推荐方案1。

二、文件打开时自动锁定单元格 #

要实现打开文件就自动锁定指定单元格，需要用到Workbook_Open事件，步骤如下：

1. 按Alt+F11打开VBA编辑器，找到左侧的ThisWorkbook模块双击打开；
2. 粘贴以下代码，根据你的需求修改参数：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = Sheet1 ' 替换成你的目标工作表
    
    ' 1. 先取消工作表保护（有密码则加Password参数）
    ws.Unprotect Password:="YourPassword"
    
    ' 2. 重置所有单元格的锁定状态（先解锁全部，再锁定需要保护的列）
    ws.Cells.Locked = False ' 解锁所有单元格
    ws.Range("H:H,J:J,K:K,L:L,N:N").Locked = True ' 锁定你需要保护的列
    ws.Range("G:G").Locked = False ' 确保G列可以被用户编辑（因为你需要用户修改G列触发公式）
    
    ' 3. 重新保护工作表，同样加上*UserInterfaceOnly:=True*
    ws.Protect _
        Password:="YourPassword", _
        UserInterfaceOnly:=True, _
        AllowInsertingRows:=False, _
        AllowDeletingRows:=False ' 可以根据需求添加其他权限限制
End Sub

关键说明： #

• 为什么要先解锁所有单元格再锁定目标列？因为Excel默认所有单元格的Locked属性是True，如果直接保护工作表，所有单元格都会被锁定，包括你需要用户编辑的G列，所以必须先重置锁定状态。
• UserInterfaceOnly:=True的设置会在Excel关闭后失效，所以每次打开文件通过Workbook_Open重新设置，就能保证VBA代码始终能操作保护的工作表。

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