excel vba followhyperlink方法当没有工作簿打开

Question

我在Excel 2007中创建了一个自定义用户界面作为xlam加载项的一部分。 自定义选项卡包含一个按钮，可在单击时打开网站。

我用ThisWorkbook.followHyperlink "address"

的加载项密码保护它导致Excel崩溃每当我点击按钮，而在xlam加载项。 当我在.xlsm文件中使用它时，一切正常。

我认为问题在于ThisWorkbook被密码保护。我可以使用ActiveWorkbook，但是当没有工作簿打开时，应用程序会崩溃。

任何建议如何解决这个问题？ （解除对文件不是一个选项）

Answer 1

包括评论+假设，即当任何activeworkbook是开放这个只需要工作...不是你可以尝试从Thisworkbook变成Activeworkbook在这样信息的方式：

Sub FollowingHyperlink() 

    'check if there is anything open 
If Not ActiveWorkbook Is Nothing Then 
    ActiveWorkbook.FollowHyperlink "http://www.stackoverflow.com" 
Else 
    'if not... it depends what you have and what you need 
    'you could just open any new workbook 
    '**This part of code edited** 
    'or use this technique to navigate to page using IE: 
    Dim ieAPP 
    Set ieAPP = CreateObject("InternetExplorer.application") 
    ieAPP.Visible = True 
    ieAPP.navigate "http://www.stackoverflow.com" 
End If 

End Sub