EXCEL技巧，工作表认电脑，偷偷复制走全失效

3，按ALT F11，进入VFBA编辑页面，讲代码复制到VBA编辑窗口，而后将上一步记录下来的序列号，添加到序列号一，而后保存即可。

4，代码：

Private Sub Workbook_Open()

Dim DriveID

Dim a As String

Set DriveID = CreateObject('Scripting.FileSystemObject')

a = DriveID.GetDrive('C').SerialNumber

If a <> '序列号一' and a <> '序列号二' Then

ThisWorkbook.Close 0

End If

End Sub

关注小编，后期大量技巧整理中