View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
isabelle isabelle is offline
external usenet poster
 
Posts: 587
Default Default browser?

hi Charlotte,

Sub CheckWebOptions()
Dim wkbOne As Workbook
Set wkbOne = Application.Workbooks(1)
' Determine the target browser.
Select Case wkbOne.WebOptions.TargetBrowser
Case msoTargetBrowserIE6: MsgBox "The target browser is IE6."
Case msoTargetBrowserIE5: MsgBox "The target browser is IE5."
Case msoTargetBrowserIE4: MsgBox "The target browser is IE4."
Case msoTargetBrowserV4: MsgBox "Microsoft Internet Explorer 4.0, Netscape
Navigator 4.0."
Case msoTargetBrowserV3: MsgBox "Microsoft Internet Explorer 3.0, Netscape
Navigator 3.0."
Case Else: MsgBox "The target browser is not in the given list"
End Select
End Sub

isabelle

Le 2014-04-27 08:18, Charlotte E. a écrit :
Does anyone know how to read/find the current users default browser via VBA?

(Internet Explorer, Google Chrome, Mozilla Firefox, Apple Safari, Opera
Browser, etc...)

I'm not talking about opening a website in the default browser, but finding
out which browser the current user is using as the default one...

I'm guessing it must be somewhere in the Registry, under HKEY_CURRENT_USER,
since all users on the same computer are allowed to have their own choice of
default browser - but where?

A search on Google didn't help, but perhaps, I shouldn't get it from the
Registry at all???

So, how to tell which browser is the default one?


TIA,

CE



---
Denne e-mail er fri for virus og malware fordi avast! Antivirus beskyttelse er aktiveret.
http://www.avast.com