Help to open file when match HDD serialnumber

[nhnn1986]

Hi all

I have excel file that a little computer can open it, according to HDD serialnumber (C:\)

Code belove can't run, please fix it. I'm not good at VBA code

Thanks./.

Private Sub Workbook_Open()Dim oFSO As Object, drive As Variant, driveC As Variant
    Set oFSO = CreateObject("Scripting.FileSystemObject").GetDrive("C:\")
    Set drive.Value = oFSO.serialnumber.Value
With Sheets("Username")
    driveC = .Range("A1").Value
End With
If Not Application.Match(driveC, drive, 0) Then
    MsgBox "Hallo " & Environ("UserName")
    Application.Quit
Else
    MsgBox "Wellcome " & Environ("UserName")
End If
End Sub

 

[ZVI]

Hi,
Try this:

Private Sub Workbook_Open()
  Dim SerialNumber As String
  SerialNumber = CreateObject("Scripting.FileSystemObject").Drives("C").SerialNumber
  If SerialNumber = Me.Sheets("Username").Range("A1").Value Then
    MsgBox "Wellcome " & Environ("UserName")
  Else
    MsgBox "Hello " & Environ("UserName") & vbLf _
         & "Sorry, but your can't use this workbook!", _
            vbExclamation, "Close"
    Me.Close False
  End If
End Sub

 

[nhnn1986]

Thanks @ZVI, ode work but when I run code the serial is nagtive like:[TABLE="width: 135"]
<tbody>[TR]
[TD="width: 135, align: right"]-1090195401[/TD]
[/TR]
</tbody>[/TABLE]

 

[ZVI]

You are welcome! Negative serial number is native, but you may use its absolute value as well:
SerialNumber =Abs(CreateObject("Scripting.FileSystemObject").Drives("C").SerialNumber)

 

[nhnn1986]

Many thanks