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

在Excel VBA中，你可以使用`Application.Interactive = False`来暂时禁用用户交互，然后锁定特定列，这样用户就不能修改其宽度，但可以通过代码调整列宽。以下是实现这一功能的一个简单示例：

Sub LockColumnWidthsExceptSecond()
    Application.Interactive = False ' 暂停用户交互
    With ActiveSheet ' 指定当前活动的工作表
        .Columns(2).Locked = True ' 锁定第二列
        For i = 1 To .Columns.Count ' 遍历所有列，除了第二列
            If i <> 2 Then .Columns(i).Locked = False ' 其他列解锁
        Next i
        
        ' 调整指定列的宽度，这里以第二列为例，可以根据需要更改
        Columns(2).ColumnWidth = 20 ' 新的列宽值，单位为字符数
    End With

    Application.Interactive = True ' 重新启用用户交互
End Sub

在这个脚本中，第二列被锁定，而其他列允许调整。当你完成后，记得通过 `Application.Interactive = True` 恢复正常的用户交互。