Run reg file in workbook open

[YasserKhalil]

Hello everyone
I have reg file which I need to run in workbook open ..
Is it possible ? and at the same time to skip the messages Yes and OK
Or it is considered against security levels?

 

[Chihiro]

It's possible. Something like

CreateObject("WScript.Shell").Run "%Windowsdirectory%\Regedit.exe /s C:\Yourdirectory\your.reg"

Replace directory with actual ones. Note that if you have space(s) in directory name it needs to be in double quote.

Not sure about prompts.

Edit: This should suppress Yes/No for Regedit. But most likely will have Windows Prompt (User Account Control).

 

[YasserKhalil]

Thanks Mr. Chihiro
I tried the line and changed the path to my reg file but got an error

 

[Chihiro]

Try Import instead of Run?

Edit: I mean something like....

Dim regimp As Variant

regimp = Shell("reg import C:\yourdirectory\Test.reg")

Oh one more thing. Try below as well.

Dim xShell As Object
Set xShell = CreateObject("Wscript.Shell")
xShell.Run "%WinDir%\Regedit.exe /s C:\Yourdirectory\your.reg"

 

[YasserKhalil]

That's it .. It is working like charm
Thanks a lot Mr. Chihiro for this great help