Using Workbook.FollowHyperlink Method's ExtraInfo and Method parameters

Question

When I execute the following line of code:

    Activesheet.Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

a dialog box appears with the following message:

"Some files can contain viruses or otherwise be harmful to your computer.

It is importnt to be certain that this file is from a trustworthy source.

Would you like to open this file?"

At the bottom of the dialog box are two buttons: OK and Cancel.  Cancel is the default button.

I would like to utilize the Workbook.FollowHyperlink Method's ExtraInfo and Method parameters to automatically "click" the OK button.

I've tried the following line of code, but with no success:

     Activesheet.Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True, _

          ExtraInfo:=Chr(9) + Chr(13), Method:=msoMethodPost

Can someone from this forum kindly tell me how to modify the previous line of code to have the Workbook.FollowHyperlink Method automatically "click" the OK button in the dialog box?

Thanks in advance for any assistance.

Answer 1

it ended up inserting a tab and a new line in the VBE window.  I then tried executing the SendKeys line after the FollowHyperlink line, but it did not "execute" within the dialog box I mentioned in my original post.

Running from the VBA editor does that. Try running from a command button on the worksheet.

The line cannot be after the Hyperlink code because the hyperlink line does not finish processing until after the selection is made on the popup.

Answer 2

Thanks for your solution.  Unfortunately, when the SendKeys line executed, it ended up inserting a tab and a new line in the VBE window.  I then tried executing the SendKeys line after the FollowHyperlink line, but it did not "execute" within the dialog box I mentioned in my original post.

Thanks again for your help.

Regards,

Bob

Answer 3

"Some files can contain viruses or otherwise be harmful to your computer.

It is importnt to be certain that this file is from a trustworthy source.

Would you like to open this file?"

Have also a look here:

https://support.microsoft.com/en-us/kb/925757

Andreas.

Answer 4

Application.SendKeys ("{TAB}~")

ActiveSheet.Range("A1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Explanation of SendKeys command:  {TAB} changes the button and ~ is the Enter key.

After thought: SendKeys is not overly reliable so you will need to test to ensure they do as required.