- Katılım
- 15 Mart 2005
- Mesajlar
- 42,603
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Nasıl kullanılıyor?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sanırım sadece son 5 karakterini bulabilirsiniz....
.
Sub Test2()
' Haluk - 29/10/2022
Dim objWMI As Object, arrServices As Object, objService As Object
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set arrServices = objWMI.ExecQuery("Select * From OfficeSoftwareProtectionProduct Where PartialProductKey <> Null")
For Each objService In arrServices
MsgBox objService.PartialProductKey
Next
End Sub
Haluk Hocam 2003, 2013 ve 2016 için doğru sonuçları verdi.Ekli dosya bende doğru anahtarı verdi....
Deneyen olup da, Office sürümü bilgisiyle birlikte geri dönüş yaparsa sevinirim...
.