Excel文件与电脑ID绑定，用其他电脑无法打开

实现Excel文件与电脑ID绑定，用其他电脑无法打开的方法，可以通过以下步骤来实现：

1. 通过VBA代码获取当前电脑的ID，代码如下：

Environ("COMPUTERNAME")

2. 在Excel文件打开时，通过VBA代码判断当前电脑的ID是否与Excel文件中存储的ID一致，如果不一致，则关闭Excel文件，代码如下：

Private Sub Workbook_Open()
    Dim strComputerID As String
    Dim strFileID As String
    
    '获取当前电脑ID
    strComputerID = Environ("COMPUTERNAME")
    
    '获取Excel文件中存储的ID
    strFileID = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
    
    '判断电脑ID与文件ID是否一致
    If strComputerID <> strFileID Then
        '如果不一致，关闭Excel文件
        Application.Quit
    End If
End Sub

3. 将Excel文件复制到需要绑定的电脑上，并在第一次打开时，手动输入该电脑的ID，并将ID保存在Excel文件中，代码如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim strComputerID As String
    
    '获取当前电脑ID
    strComputerID = Environ("COMPUTERNAME")
    
    '将电脑ID保存在Excel文件中
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = strComputerID
End Sub

这样，只有在绑定的电脑上打开该Excel文件才能正常使用，其他电脑打开时会关闭文件。注意，这种方法只能起到一定的保护作用，不能完全防止文件被其他人打开和修改。