Deschidere workbook de pe server - probleme

[zvonacfirst]

Buna.

Am o problema pentru a carei rezolvare ma vad din nou nevoit sa solicit ajutor.
Am un workbook la a carui lansare se deschide un userform interfata care tine ascunsa aplicatia si in functie de ce doreste userul sa faca, are butoane care deschid un singur sheet, cel de care userul are nevoie..
Acest workbook este postat pe un server al companiei. Din motive de securitate, userii nu vad continutul folderului de pe server, pentru lansarea workbookului am facut un fisier excel care are un buton cu un link, acest fisier fiind postat pe spatiul colaborativ SarePoint. El deschide workbookul dupa care se inchide.
Problema este ca, lansat de pe SharePoint, workbookul nu porneste cu userformul activat, ci cu Excelul vizibil si nu inteleg care este cauza.
Daca pe oricare dintre computerele userilor fac un shortcut cu url-ul catre workbook, acesta porneste corect.
Treaba este ca vor fi la un moment dat 50-60 de useri iar unii sunt in afara tarii.

In ThisWorcbook exista urmatorul cod:

Cod: Selectaţi tot

Private Sub Workbook_Open()
    frmEvaluare.Show vbModeless
    Application.Visible = False
End Sub

Am atasat fisierul de lansare a workbookului, desi nu cred ca in el este buba.
Multumesc.

[Dr.Windows]

Ba s-ar putea ca exact acest fisier sa fie "buba"...

Incearca sa folosesti procedura "Private Sub Open_Close()" din Modulul1, in loc de "ActiveWorkbook.FollowHyperlink", "Workbooks.Open".

Adica urmatorul cod:

Cod: Selectaţi tot

Private Sub Open_Close()
      Application.DisplayAlerts = False
      Application.Workbooks.Open "C:\Users\Lucian\Desktop\x\SharepointFile_with_VBA.xlsm"
      Workbooks("Evaluare.xlsm").Close SaveChanges:=False
      Application.ScreenUpdating = True
End Sub