Web Toolbar

[JoyC]

This is a bit of a problem which is driving me crazy.

I have multiple workbooks linked with hyperlinks, all of which I have applied some VBA to go to Full Screen and hide all toolbars (including the Web Toolbar) when the workbook opens.

This is working fine with the exception of the Web Toolbar which will not hide. I've tried this on Workbook open and on Sheet activate and yet it still keeps coming up.

With Application
.DisplayFullScreen = True
.CommandBars("Web").Visible = False
End With

When I run the code from the VBA window it works. Could someone tell me what I'm doing wrong please?

Thank you.

 

[RomulusMilea]

Hello,

Please insert complete code you are having the troubles with, and please insert:

 before the first letter of the code, and

after the last letter of the code.

Thank you.

 

[RomulusMilea]

Hi again,

Sorry, wrong message...

 

[JoyC]

Thanks for your response, this is the entire block of code:

Private Sub workbook_open()
 
'   Checking User Name and authority of access.
    Application.ScreenUpdating = False
    Sheets("Blank").Select
 
    Sheets("Access Levels").Cells(1, 2) = Application.UserName
    Sheets("Access Levels").Cells(1, 4) = Application.UserLibraryPath
    If Sheets("Access Levels").Range("C9") = "Restricted" Then
    Sheets("Blank").Select
    MsgBox "Sorry, you do not have the access rights to view the data contained in this report. Please contact a member of the HR Team to request access"
    ThisWorkbook.Close SaveChanges:=False
 
    Else
 
    ActiveWindow.DisplayWorkbookTabs = False
    Const strPwd As String = "PMS"
 
    ThisWorkbook.Unprotect Password:=strPwd
 
    Run "Copy"
 
End If
With Application
    .DisplayFullScreen = True
    .CommandBars("Web").Visible = False
 
End With
End Sub

 

[RomulusMilea]

Here is the corrected message,

Please insert [ code ] before first letter of your code and remove spaces inside paranthesis and

[ /code ] before last letter of your code and remove spaces inside paranthesis

 

[RomulusMilea]

Hello,

You inserted:

Application.ScreenUpdating = False

at the beginning of you code, I guess you need to turn it back to True.

Application.ScreenUpdating = True

Did this help ?

 

[JoyC]

No. I've just tried turning that to True and still makes the web bar visible and has now stopped displaying in full screen!

 

[JoyC]

I've solved it.

By eliminating the hyperlink and using VBA to open the new workbook has stopped the Web Bar from popping up.