Styjun

What to do when you reach a conclusion and find out later on that someone else already did?

Why is my read in of data taking so long?

Are there any examples of technologies have been lost over time?

Is it legal to use cash pulled from a credit card to pay the monthly payment on that credit card?

How do I stop my characters falling in love?

What do I do when a student working in my lab "ghosts" me?

How acidic does a mixture have to be for milk to curdle?

Is dd if=/dev/urandom of=/dev/mem safe?

Invert Some Switches on a Switchboard

Why are there not any MRI machines available in Interstellar?

Why isn't there a serious attempt at creating a third mass-appeal party in the US?

Area of parallelogram = Area of square. Shear transform

Difficulty pronouncing "maths", "baths", "hundredths", "sixths"

Spin vs orbital angular momenta in QFT

Send a single HTML email from Thunderbird, overriding the default "plain text" setting

Terence Tao–type books in other fields?

Time travel novel: machine makes clones, clones battle to be the one to get back their life

401(k) investment after being fired. Do I own it?

Why isn't my platform event chain working?

Why did Saturn V not head straight to the moon?

Is there a reason why I should not use the HaveIBeenPwned API to warn users about exposed passwords?

How important is a good quality camera for good photography?

Where to place an artificial gland in the human body?

Using "Kollege" as "university friend"?

Toggle Internet Explorer Proxy from Excel VBA

IE Enable/Disable Proxy Settings via RegistryHow to avoid using Select in Excel VBAProgrammatically retrieve Internet Explorer cached proxy usernamebypassing Internet Explorer options for protected mode using SeleniumHow to change the ActiveX settings for Internet Explorer on Win8.1 using registry entries?Is there a way to monitor registry changes?Find registry key using Excel VBAC# Registry “Use automatic configuration script”, Changing Binary valuesInternet Explorer error “connection timed out” when server does not respondIE ProxyEnable via registry not working WIN 10Refresh Internet Options through command

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

2

I can toggle the internet proxy on Internet Explorer by going to Internet options > Connections > LAN settings > Proxy Server > Use a proxy server for your LAN.

When I do that it toggles the registry key HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable.

The problem is that it's not just that because when I change the value manually with regedit it doesn't toggle the proxy nor the proxy option on IE.

I'm trying to be able to toggle it from Excel with VBA code.

Private Sub DisableProxy()

 Dim Shell As New WshShell

 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", 0, "REG_DWORD"

End Sub

I tried using a program to monitor registry changes but it only shows that one key.

How can I toggle the proxy correctly from Excel VBA?

excel vba internet-explorer proxy registry

share|improve this question

asked Mar 26 at 16:53

user7393973user7393973

1,03966 silver badges3434 bronze badges

add a comment | 

2

I can toggle the internet proxy on Internet Explorer by going to Internet options > Connections > LAN settings > Proxy Server > Use a proxy server for your LAN.

When I do that it toggles the registry key HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable.

The problem is that it's not just that because when I change the value manually with regedit it doesn't toggle the proxy nor the proxy option on IE.

I'm trying to be able to toggle it from Excel with VBA code.

Private Sub DisableProxy()

 Dim Shell As New WshShell

 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", 0, "REG_DWORD"

End Sub

I tried using a program to monitor registry changes but it only shows that one key.

How can I toggle the proxy correctly from Excel VBA?

excel vba internet-explorer proxy registry

share|improve this question

asked Mar 26 at 16:53

user7393973user7393973

1,03966 silver badges3434 bronze badges

add a comment | 

I can toggle the internet proxy on Internet Explorer by going to Internet options > Connections > LAN settings > Proxy Server > Use a proxy server for your LAN.

When I do that it toggles the registry key HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable.

The problem is that it's not just that because when I change the value manually with regedit it doesn't toggle the proxy nor the proxy option on IE.

I'm trying to be able to toggle it from Excel with VBA code.

Private Sub DisableProxy()

 Dim Shell As New WshShell

 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", 0, "REG_DWORD"

End Sub

I tried using a program to monitor registry changes but it only shows that one key.

How can I toggle the proxy correctly from Excel VBA?

excel vba internet-explorer proxy registry

share|improve this question

asked Mar 26 at 16:53

user7393973user7393973

1,03966 silver badges3434 bronze badges

Private Sub DisableProxy()

 Dim Shell As New WshShell

 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", 0, "REG_DWORD"

End Sub

share|improve this question

asked Mar 26 at 16:53

user7393973user7393973

1,03966 silver badges3434 bronze badges

share|improve this question

asked Mar 26 at 16:53

user7393973user7393973

1,03966 silver badges3434 bronze badges

asked Mar 26 at 16:53

user7393973user7393973

1,03966 silver badges3434 bronze badges

asked Mar 26 at 16:53

user7393973user7393973

1,03966 silver badges3434 bronze badges

1 Answer
1

active

oldest

votes

3

With the help of this answer I found that I have to tell that IE's configuration settings changed but the code wasn't in VBA so I looked it up and found this site.

So after changing the code it worked.

' Reference:
' Windows Script Host Object Model

Private Declare Function InternetSetOptionA Lib "wininet.dll" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

Private Sub ToggleProxy(ByVal Toggle As Integer)

 Dim Shell As WshShell
 Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39

 If (Toggle <> 0 And Toggle <> 1) Then Exit Sub
 Set Shell = New WshShell
 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", Toggle, "REG_DWORD"
 InternetSetOptionA 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0

End Sub

Private Sub Main()

 ToggleProxy Toggle:=0 ' Disable
 ToggleProxy Toggle:=1 ' Enable

End Sub

share|improve this answer

edited Mar 29 at 8:28

answered Mar 26 at 17:05

user7393973user7393973

1,03966 silver badges3434 bronze badges

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thanks for posting the solution for this issue. I suggest you to try to mark your own answer as an accepted answer for this question after 24 hrs, when it is available to mark. It can help other community members in future in similar kind of issues. Thanks for your understanding.
  
  – Deepak-MSFT
  Mar 27 at 1:22
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thanks for the code update +
  
  – QHarr
  Mar 28 at 22:19
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55362424%2ftoggle-internet-explorer-proxy-from-excel-vba%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

3

With the help of this answer I found that I have to tell that IE's configuration settings changed but the code wasn't in VBA so I looked it up and found this site.

So after changing the code it worked.

' Reference:
' Windows Script Host Object Model

Private Declare Function InternetSetOptionA Lib "wininet.dll" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

Private Sub ToggleProxy(ByVal Toggle As Integer)

 Dim Shell As WshShell
 Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39

 If (Toggle <> 0 And Toggle <> 1) Then Exit Sub
 Set Shell = New WshShell
 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", Toggle, "REG_DWORD"
 InternetSetOptionA 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0

End Sub

Private Sub Main()

 ToggleProxy Toggle:=0 ' Disable
 ToggleProxy Toggle:=1 ' Enable

End Sub

share|improve this answer

edited Mar 29 at 8:28

answered Mar 26 at 17:05

user7393973user7393973

1,03966 silver badges3434 bronze badges

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thanks for posting the solution for this issue. I suggest you to try to mark your own answer as an accepted answer for this question after 24 hrs, when it is available to mark. It can help other community members in future in similar kind of issues. Thanks for your understanding.
  
  – Deepak-MSFT
  Mar 27 at 1:22
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thanks for the code update +
  
  – QHarr
  Mar 28 at 22:19
  

  
  
  
  

add a comment | 

3

With the help of this answer I found that I have to tell that IE's configuration settings changed but the code wasn't in VBA so I looked it up and found this site.

So after changing the code it worked.

' Reference:
' Windows Script Host Object Model

Private Declare Function InternetSetOptionA Lib "wininet.dll" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

Private Sub ToggleProxy(ByVal Toggle As Integer)

 Dim Shell As WshShell
 Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39

 If (Toggle <> 0 And Toggle <> 1) Then Exit Sub
 Set Shell = New WshShell
 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", Toggle, "REG_DWORD"
 InternetSetOptionA 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0

End Sub

Private Sub Main()

 ToggleProxy Toggle:=0 ' Disable
 ToggleProxy Toggle:=1 ' Enable

End Sub

share|improve this answer

edited Mar 29 at 8:28

answered Mar 26 at 17:05

user7393973user7393973

1,03966 silver badges3434 bronze badges

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thanks for posting the solution for this issue. I suggest you to try to mark your own answer as an accepted answer for this question after 24 hrs, when it is available to mark. It can help other community members in future in similar kind of issues. Thanks for your understanding.
  
  – Deepak-MSFT
  Mar 27 at 1:22
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Thanks for the code update +
  
  – QHarr
  Mar 28 at 22:19
  

  
  
  
  

add a comment | 

With the help of this answer I found that I have to tell that IE's configuration settings changed but the code wasn't in VBA so I looked it up and found this site.

So after changing the code it worked.

' Reference:
' Windows Script Host Object Model

Private Declare Function InternetSetOptionA Lib "wininet.dll" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

Private Sub ToggleProxy(ByVal Toggle As Integer)

 Dim Shell As WshShell
 Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39

 If (Toggle <> 0 And Toggle <> 1) Then Exit Sub
 Set Shell = New WshShell
 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", Toggle, "REG_DWORD"
 InternetSetOptionA 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0

End Sub

Private Sub Main()

 ToggleProxy Toggle:=0 ' Disable
 ToggleProxy Toggle:=1 ' Enable

End Sub

share|improve this answer

edited Mar 29 at 8:28

answered Mar 26 at 17:05

user7393973user7393973

1,03966 silver badges3434 bronze badges

' Reference:
' Windows Script Host Object Model

Private Declare Function InternetSetOptionA Lib "wininet.dll" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

Private Sub ToggleProxy(ByVal Toggle As Integer)

 Dim Shell As WshShell
 Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39

 If (Toggle <> 0 And Toggle <> 1) Then Exit Sub
 Set Shell = New WshShell
 Shell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsProxyEnable", Toggle, "REG_DWORD"
 InternetSetOptionA 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0

End Sub

Private Sub Main()

 ToggleProxy Toggle:=0 ' Disable
 ToggleProxy Toggle:=1 ' Enable

End Sub

share|improve this answer

edited Mar 29 at 8:28

answered Mar 26 at 17:05

user7393973user7393973

1,03966 silver badges3434 bronze badges

answered Mar 26 at 17:05

user7393973user7393973

1,03966 silver badges3434 bronze badges

answered Mar 26 at 17:05

user7393973user7393973

1,03966 silver badges3434 bronze badges