excel vba 通过锁定第二列，允许调整列宽

在Excel VBA中，你可以通过编写宏来锁定特定列并允许用户调整其他列宽。下面是一个简单的步骤以及VBA代码示例：

1. 打开VBA编辑器：在Excel中按Alt + F11进入VBA编辑器。

2. 创建一个新的模块（Module），如果你还没有模块，可以在Project Explorer窗口右键选择"Insert" -> "Module"。

3. 在VBA编辑器中，粘贴以下代码：

Sub LockSecondColumn()
    ' 定义需要锁定的列号（从1开始计数）
    Dim lockColumn As Long
    lockColumn = 2
    
    ' 获取当前活动的工作表对象
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 设置锁定区域范围
    With ws
        .Columns(lockColumn).Locked = True ' 锁定第二列
    End With
    
    ' 显示消息告诉用户哪些列可以调整
    MsgBox "第二列已锁定，其它列宽度可以自由调整。"
End Sub

4. 保存代码后，在需要应用此功能时，可以直接运行`LockSecondColumn`宏，或者将其绑定到一个快捷键或工具栏按钮上。

5. 用户可以调整除锁定列外的所有列宽，但尝试改变锁定列会显示提示，告知用户该列已被锁定。