Hi all after copying code through links on here my command bars have
disappeared! Even right Click does not bring up the menu on bars or
cells! have re-strarted the PC and when opening Excel only the formula
bar is visible and I cannot reset and command bars. Please help ASAP

Regards
Neil


*** Sent via Developersdex http://www.developersdex.com ***

Hi Neil,

Try:

Hit Alt-F11 to go to the VBE
Insert | Module
Paste the following:

Sub RestoreToolBars()
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB
End Sub

Run the code
Alt-F11 to return to Excel

---
Regards,
Norman



"Neil Atkinson" wrote in message
...

Hi all after copying code through links on here my command bars have
disappeared! Even right Click does not bring up the menu on bars or
cells! have re-strarted the PC and when opening Excel only the formula
bar is visible and I cannot reset and command bars. Please help ASAP

Regards
Neil


*** Sent via Developersdex http://www.developersdex.com ***

Great that worked fine, many Thanks


"Norman Jones" wrote in message
...

Hi Neil,

Try:

Hit Alt-F11 to go to the VBE
Insert | Module
Paste the following:

Sub RestoreToolBars()
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB
End Sub

Run the code
Alt-F11 to return to Excel

---
Regards,
Norman



"Neil Atkinson" wrote in message
...

Hi all after copying code through links on here my command bars have
disappeared! Even right Click does not bring up the menu on bars or
cells! have re-strarted the PC and when opening Excel only the formula
bar is visible and I cannot reset and command bars. Please help ASAP

Regards
Neil


*** Sent via Developersdex http://www.developersdex.com ***

Hi Neil,

Great that worked fine, many Thanks

Thank Bob instead.

I assumed (despite the change of thread) that you had initially used Bob's
code and I merely gave you Bob's code with the logic reversed.

---
Regards,
Norman



"Karoo News" wrote in message
...

Great that worked fine, many Thanks


"Norman Jones" wrote in message
...

Hi Neil,

Try:

Hit Alt-F11 to go to the VBE
Insert | Module
Paste the following:

Sub RestoreToolBars()
Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = True
Next oCB
End Sub

Run the code
Alt-F11 to return to Excel

---
Regards,
Norman



"Neil Atkinson" wrote in message
...

Hi all after copying code through links on here my command bars have
disappeared! Even right Click does not bring up the menu on bars or
cells! have re-strarted the PC and when opening Excel only the formula
bar is visible and I cannot reset and command bars. Please help ASAP

Regards
Neil


*** Sent via Developersdex http://www.developersdex.com ***