harddisk seri no

[okavut]

a1 hücresi harddisk seri nodan alıyor.
eğer a1 eşit değil a2 ise çalışma sayfasını kapatabilirmiyiz?
"güle güle" mesajıyla

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub Seriennummer()
Dim myfso As Object
Set myfso = CreateObject("Scripting.FileSystemObject")
Range("A1").Value = myfso.GetDrive("C:\").SerialNumber
Set myfso = Nothing
If [a1] <> [a2] Then
MsgBox "güle güle"
ThisWorkbook.Save
ThisWorkbook.Close 0
End If
End Sub

 

[okavut]

Sayın Uzmanamele ilginize teşekkür ederim. İşimi gördü.Saolun