When file is on sharepoint, it throws error when I open. Locally, it opens just fine.

[Pat_The_Bat]

I have a file template that I use on a daily basis. When I open the file, it has a login procedure that it goes through. Basically, it hides all the sheets until the user authenticates; Then once the user authenticates, it makes all the sheets visible.

The problem I'm running into is that I have to save these files on our sharepoint server. When I go to open the file from the SPS, I get screen flickering, and then ultimately the workbook throws an error. (Error handling that I wrote into the code that is).

Whereas, when I moved that same file to my local network, and then opened it; it worked exactly as expected.

Any thoughts on this?

Private Sub Workbook_Open()        Application.ScreenUpdating = False         Sheets("Cover").Visible = True    On Error Resume Next                With Sheets(37)    Sheets("Cover").Activate        Range("a1").Select    End With        Application.ScreenUpdating = False    Sheets("Cover").Visible = True             
    Sheet5.Visible = xlSheetVeryHidden    Sheet6.Visible = xlSheetVeryHidden    Sheet9.Visible = xlSheetVeryHidden    Sheet10.Visible = xlSheetVeryHidden    Sheet11.Visible = xlSheetVeryHidden        Sheet13.Visible = xlSheetVeryHidden       Sheet15.Visible = xlSheetVeryHidden    Sheet16.Visible = xlSheetVeryHidden    Sheet17.Visible = xlSheetVeryHidden    Sheet18.Visible = xlSheetVeryHidden    Sheet19.Visible = xlSheetVeryHidden    Sheet20.Visible = xlSheetVeryHidden    Sheet21.Visible = xlSheetVeryHidden    Sheet22.Visible = xlSheetVeryHidden    Sheet23.Visible = xlSheetVeryHidden    Sheet24.Visible = xlSheetVeryHidden    Sheet38.Visible = xlSheetVeryHidden    Sheet39.Visible = xlSheetVeryHidden    Sheet40.Visible = xlSheetVeryHidden    Sheet41.Visible = xlSheetVeryHidden    Sheet42.Visible = xlSheetVeryHidden    Sheet43.Visible = xlSheetVeryHidden    
    Application.ScreenUpdating = True        Load Login                   Login.StartUpPosition = 0   Login.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Login.Width)   Login.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Login.Height)   Login.Show

   
End Sub