Eroare deschidere initiala fisier in VBA - Workbook_Open

[ovidiu's]

Salut,

Help!
Incerc sa rezolv urmatoarea problema in VBA si nu gasesc solutii.

Imi dau seama ca aici poate avea o influenta si faptul ca in Excel Options/Trust Center/Protect View este bifata optiunea "Enable Protect View for files originating from the Internet", si nu as dori sa fie debifata decat daca se poate automat si rebifata la loc la inchiderea fisierului.

Mesajul la o prima deschidere a fisierului fiind "PROTECT VIEW Be careful - files from the internet can containes viruses.
Unless you need to edit, it's safer to stay in Protect View" si am posibilitatea apasarii butonului "Enable Editing".

In fisierul excel pe care il deschid ( la o prima deschidere doar ), in VBA, la Private Sub Workbook_Open() codul se opreste la comanda ThisWorkbook.Sheets(1).Activate, eroarea fiind de genul "Run-time error 1004. Activate method of Worksheet class failed".

Multumesc anticipat!

[IPP]

Buna ziua

Se comporta la fel si daca inlocuiti linia de cod

Cod: Selectaţi tot

ThisWorkbook.Sheets(1).Activate

cu

Cod: Selectaţi tot

ThisWorkbook.Sheets(1).Select

?
IP

[ovidiu's]

Da, mesajul de eroare este acelasi.
Din cate vad, atunci cand apare eroare, in bara am doua fisiere cu acelasi nume, unul normal si unul "[Protect View]".
Posibil ca asta sa produca imposibilitatea VBA de a merge mai departe?

[ovidiu's]

Am mai cautat, si problema mea pare cunoscuta.

A mai avut cineva o problema de acest fel?

[Catalin B.]

Solutii posibile:
Excel.ProtectedViewWindow
disabling-protected-view-2010
Sau deschizi fisierul direct in PVWindow si schimbi in Edit mode:
Application.ProtectedViewWindows.Open Filename:=fName
Application.ActiveProtectedViewWindow.Edit

[ovidiu's]

Salut Catalin,

Ideea este urmatoarea:
- prima solutie a fost testata si nu functioneaza.
Nici nu vad de ce Microsoft Excel ar da voie printr-un macro ( poate chiar virusat ) ca optiunea "Enable Protect View for files originating from the
Internet" sa fie anulata/debifata la deschiderea fisierului.
Sau mergem pe ideea ca sunt inca un incepator in VBA.

- a doua solutie : nu imi permit sa anulez ( debifez ) din start, optiunea Protect View, pentru orice fisier care vine din Internet.

Am aceasta problema, doar la prima deschidere a fisierului.
Tinand cont de faptul ca o aplicatie din Intranet foloseste fisierul excel cu alta denumire la fiecare deschidere, aceeasi eroare o am de fiecare data.

Multumesc oricum pentru raspuns.
Ovidiu

[Catalin B.]

Schimbarea din Protected View in Edit nu inseamna si permiterea rularii de macro din fisierul care a fost in Protected view. Daca setarile de securitate sunt corecte, permiterea rularii macro este un mesaj de avertizare care apare dupa ce fisierul este in Edit mode. Devine o problema doar atunci cand setarile macro permit rularea oricarui cod fara restrictii, abia atunci un macro din fisierul respectiv poate rula automat la trecerea in Edit mode.
In cazul de fata, presupun ca setarile macro sunt corecte.

Nici nu vad de ce Microsoft Excel ar da voie printr-un macro ( poate chiar virusat ) ca optiunea "Enable Protect View for files originating from the
Internet" sa fie anulata/debifata la deschiderea fisierului.

in Excel Options/Trust Center/Protect View este bifata optiunea "Enable Protect View for files originating from the Internet", si nu as dori sa fie debifata decat daca se poate automat si rebifata la loc la inchiderea fisierului

Variantele prezentate implica rularea codului "Application.ProtectedViewWindows.Open Filename:=fName" din alt fisier excel sau dintr-un add-in, nu din fisierul descarcat de pe internet.
Pentru prima deschidere a fisierului se poate folosi un simplu cod de gestionare erori, codul nu va mai da eroare, dar la prima deschidere nu va activa acel sheet.

Cod: Selectaţi tot

On Error Resume Next
Sheets(1).Activate
If Err.Number<>0 then Exit Sub

Poate e mai bine de folosit codul de activare sheet la inchiderea fisierului, nu la deschidere. Astfel, sheet-ul respectiv va fi cu siguranta activ la orice deschidere, fara sa mai fie nevoie de activare sheet la deschidere. Depinde de context, aici nu stiu daca acel cod mai face si altceva in afara de activare sheet.

[ovidiu's]

Salut Catalin,

Codul din Worbook_Open are mai multe etape:
- mai intai trebuie sa ia cateva cateva sheet-uri sa le verifice si sa le "curete". Pana sa ajunga la acestea nu poate intra nici in primul sheet al workbook-ului, mai ales tinand cont, asa cum am spus ca am in bara Windows 2 fisiere cu aceeasi denumire, unul ".xlsm" si unul ".xlsm [Protect View]"
- apoi alte etape, la care nici nu ajunge…

Incerc sa activez acum aceste sheet-uri si sa rulez aceste coduri din Workbook_Activate si cred ca o sa mearga.
Verific.

Multumesc.
Toate cele bune!

[H2SO4]

Salut,

Am avut si noi o problema asemanatoare.
S-a rezolvat prin rularea unui antivirus (de pe un suport extern) apoi repararea/reinstalarea Excel/Office.
Sper sa te ajute.

[ovidiu's]

Multumesc.