如何使用VB.Net解锁Excel中的列？

Dim excelApp As Object = CreateObject("Excel.Application")
Dim workbook As Object = excelApp.Workbooks.Open("C:\path\to\your\excel.xlsx")
Dim worksheet As Object = workbook.Worksheets(1)

worksheet.Columns(2).Locked = False

workbook.Save()
workbook.Close()
excelApp.Quit()

Imports Microsoft.Office.Interop

Module Module1
    Sub Main()
        Dim excelApp As Object = CreateObject("Excel.Application")
        Dim workbook As Object = excelApp.Workbooks.Open("C:\path\to\your\excel.xlsx")
        Dim worksheet As Object = workbook.Worksheets(1)

        ' 解锁第2列
        worksheet.Columns(2).Locked = False

        workbook.Save()
        workbook.Close()
        excelApp.Quit()
    End Sub
End Module