如何在VB.NET的Excel表格中设置密码？

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建Excel应用程序对象
        Dim excelApp As New Excel.Application()

        ' 打开Excel文件
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\file.xlsx")

        ' 设置密码保护
        workbook.Password = "yourpassword"

        ' 保存并关闭Excel文件
        workbook.Save()
        workbook.Close()

        ' 退出Excel应用程序
        excelApp.Quit()

        ' 释放Excel对象
        System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

        MessageBox.Show("密码设置成功！")
    End Sub
End Class