Merhaba Soner bey,
Kodu kendi dosyanızda aşağıdaki şekilde kullanabilirsiniz:
1 - Önce kodu aşağıdaki gibi değiştirip boş bir excel dosyasında çalıştırarak bilgisayarınızın seri numarasını bulun:
- Kod: Tümünü seç
Private Sub Workbook_Open()
ComputerName = "."
Dim serino
winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//" & ComputerName & ""
Set SNSet = GetObject(winmgmt1).InstancesOf("Win32_BIOS")
For Each SN In SNSet
serino = SN.SerialNumber
Next
MsgBox serino
End Sub
2- Sonra, Excel makro güvenlik ayarlarınızı "Bildirimde bulunarak tüm makroları devre dışı bırak" veya "Bildirimde bulunmadan tüm makroları devre dışı bırak" seçeneklerinden birine ayarlayın.
3- Dosyanızı açıp VBA penceresine geçin.
4- Project - VBA Project alanında -> BuÇalışmaKitabı (ThisWorkbook) seçin.
seri.PNG
5- Verdiğim kodun sadece "Benim bilgisayarımın seri numarası" bölümünü yukarıdaki kod ile bulduğunuz seri numarası ile değiştirin.
6- Dosyanızı kaydedip kapatın. Ve makroları etkinleştirerek açın.
Sizin denemelerinizde beyaz sayfa gelmesinden, ben kodun aslında çalıştığını, ancak seri numarasını doğru girmediğiniz için dosyanın kapanıp geriye beyaz sayfa kaldığını düşünüyorum.
- Kod içindeki bilgisayar adı kısmındaki "." alanında bir değişiklik yapmayın, mevcut bilgisayarı dikkate alır.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.