Macro VBA - Problema durante il tentativo di apertura file.

Question

Buongiorno a tutti,

sto lavorando su una macro VBA che importa all'interno del mio foglio excel delle tabelle presenti su altri documenti. Fino a Dicembre (Facci ogirare la macro ogni 3 mesi circa) non ho avuto problemi.

Facendo rigirare l'ultima volta nel momento in cui dovrebbe salvare il file senza la macro, mi compare questo errore:

"Problema durante il tentativo di apertura del file. Per Garantire la protezione del computer è stata pertanto impedita l'apertura del file".

Il documento non si salva, e dopo il salvataggio manuale non mi elimina la macro e non mi permette di modificare il foglio.

Come posso risolvere questo problema??

Grazie mille a tutti per il supporto!

Buonagiornata

Luigi

Answer 1

Ulteriore domanda da ignorante (nel senso che ignora), potrebbe essere dovuto ad un numero di sheet troppo grande per essere gestito da un file .xls?

Answer 2

Sub Macro()

    Range("F5:F23").Select

    Selection.FormatConditions.AddIconSetCondition

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    With Selection.FormatConditions(1)

        .ReverseOrder = False

        .ShowIconOnly = True

        .IconSet = ActiveWorkbook.IconSets(xl3Symbols2)

    End With

    Selection.FormatConditions(1).IconCriteria(1).Icon = xlIconYellowExclamation

    With Selection.FormatConditions(1).IconCriteria(2)

        .Type = xlConditionValueNumber

        .Value = 0

        .Operator = 7

        .Icon = xlIconRedCross

    End With

    With Selection.FormatConditions(1).IconCriteria(3)

        .Type = xlConditionValueNumber

        .Value = 1

        .Operator = 7

        .Icon = xlIconGreenCheck

    End With

    Application.DisplayAlerts = False

    For Each WS In Worksheets

        If WS.Name <> "RECAP INDICATORI" Then WS.Delete

    Next

    Application.DisplayAlerts = True

    Sheets("RECAP INDICATORI").Cells(1, 3).Value = "dal " & Sheets("RECAP INDICATORI").Cells(1, 10) & " al " & Sheets("RECAP INDICATORI").Cells(1, 11).Value

    Caricamento

    Recap

    '*************************************** PASSI FINALI ***********************************************

    '****************************************************************************************************

Msg = "Procedere con la suddivisione dei risultati?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbYes Then Call Sportello

'    Call Sportello

    NomeOutput = ThisWorkbook.Path & "" & Sheets("RECAP INDICATORI").Cells(1, 1).Value & "_Risultati indicatori_" & Format(Sheets("RECAP INDICATORI").Cells(1, 10).Value, "ddmmyyyy") & "_" & Format(Sheets("RECAP INDICATORI").Cells(1, 11).Value, "ddmmyyyy")

    SaveWithoutMacros (NomeOutput)

    Workbooks("INDICATORI ANTIRICICLAGGIO - Risultati.xls").Close savechanges:=False

Questa è la macro che utilizzo. 

Non allego anche le funzioni Caricamento Recap e Sportello perchè ho il problema solo in fase di salvataggio e creazione del file "risultati.xls".

Scusa la genericità, non sono troppo tecnico.

Luigi

Answer 3

Intanto grazie per la pronta risposta.

Non sono io l'amministratore della macchina.

<cut>

Per esperienza, automatizzo i file di Excel all'interno del contesto di utilizzo, onde evitare cose di questo genere. Se il contesto è particolare, installo una macchina virtuale/o un nuovo utente di quel contesto in collaborazione con il gestore della rete sul mio portatile. Evita che quello che a casa/in ufficio va senza problemi, poi riportato in sito non vada più.

Troppo vago, mi spiace. Puoi, per favore, postare la macro? Se contiene dati sensibili, puoi postare un file qui:

maurogsc

chiocciola

alice.it

Answer 4

Intanto grazie per la pronta risposta.

Non sono io l'amministratore della macchina.

La macro l'ho sviluppata sul mio pc portatile (dove continua a funzionare correttamente) e l'ho poi inserita nella rete aziendale dove sono presenti i file excel che la macro importa (e da quella posizione funzionava fino a dicembre, però non so se sono stati installati aggiornamenti e/o simili)

Il primo tentativo che ho fatto è stato di allineare le impostazioni del centro protezione del computer aziendale con quanto presente nel mio pc dove ho sviluppato la macro, ma il problema non si risolve.

Manualmente riesco ad ovviare alla problematica salvando il file come "Cartella di Lavoro Excel" e successivamente risalvarlo come "cartella di lavoro excel 97-2003", che è il formato richiesto dagli utilizzatori del file.

Però prima la macro in automatico mi creava l'output voluto nel formato corretto.

grazie ancora per il supporto

Answer 5

<cut>

"Problema durante il tentativo di apertura del file. Per Garantire la protezione del computer è stata pertanto impedita l'apertura del file".

<cut>

Sicuro di non aver modificato le impostazioni di sicurezza delle macro?

• Scheda file
• Opzioni
• Centro Protezione
• Impostazioni Centro protezione

Il pc è sempre lo stesso?

Hai modificato l'av? (quale av?)

Sei Administrator ed esegui il file come Administator?

Il salvataggio avviene in rete?