上述代码，在VS运行时提示没有SelectionChange事件

如果在Visual Studio中使用VB.NET编写Excel VSTO扩展程序时，出现“没有SelectionChange事件”的错误提示，可能是因为该事件未被正确绑定。

在VB.NET中，可以使用以下步骤来绑定SelectionChange事件：

1. 双击“Sheet1.vb”文件打开默认的工作表代码文件；
2. 在“Sheet1.vb”文件中，添加以下代码：

Private Sub Sheet1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
    AddHandler Me.SelectionChange, AddressOf Worksheet_SelectionChange
End Sub

Private Sub Sheet1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    RemoveHandler Me.SelectionChange, AddressOf Worksheet_SelectionChange
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range)
    If Target.Locked = True Then
        Globals.Ribbons.Ribbon1.button1.Enabled = False
        '此处的“button1”可以替换为你要禁用的按钮名称
    Else
        Globals.Ribbons.Ribbon1.button1.Enabled = True
    End If
End Sub

3. 将代码中的“button1”替换为你要禁用的按钮名称；
4. 保存并编译项目；
5. 打开Excel文档，启用Excel扩展程序；
6. 在Excel文档中选定一个单元格，并进入编辑模式，如果该单元格被锁定，则对应的功能区按钮将被禁用。如果单元格未被锁定，则按钮将启用。

这样，当用户选定一个单元格并进入编辑模式时，如果该单元格被锁定，则对应的功能区按钮将被禁用。如果单元格未被锁定，则按钮将启用。