How to check the activation status of MS Office

[kelly mort]

Hello and Happy new year,

I am looking for a way to check the activation status of Microsoft Office when ever I open my workbook.

If that is possible with vba, can someone show me the way to go?

Thanks and have a great moment.

 

[Jaafar Tribak]

But for future usage, why is it failing at my end?

Try doing a search for the ospp.vbs file in case it was accidently moved to another location. If you find it, place it the Office16 folder.

 

[YasserKhalil]

Thanks a lot @Jaafar Tribak
I am using Windows 10 64Bit and Office 365 32 Bit and I got empty string in the message box
The file is already there in this path C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS

 

[johnnyL]

@kelly mort Step through the code and see what you have after the following line is executed:

        sCommand = "CD " & Environ("SystemDrive") & "\" & Right(.Path, Len(.Path) - InStr(.Path, "\"))

Hover the mouse over 'sCommand' and paste back here what that variable equals.

@YasserKhalil That applies to you also.

 

[YasserKhalil]

sCommand in the immediate window is CD C:\Program Files (x86)\Microsoft Office\Root\Office16
I tried your code and I can get a string in the message box which is in capital letters "NOTIFICATIONS"

 

[johnnyL]

That normally means that the license has expired or could not be activated with the last registration key entered.

You could run CMD prompt as Admin and paste the following command into the CMD window:

cd c:\Program Files (x86)\Microsoft Office\Office16&cscript ospp.vbs /dstatus

That will give you more info underneath where it says ---NOTIFICATIONS---

 

[kelly mort]

@johnnyL
This is what I get:

.Path = "C:\Program Files (x86)\Microsoft Office\Root\Office16"

 

[johnnyL]

@kelly mort, if you didn't alter any of the code I posted, it should work fine. Not sure why you are having an issue.