Eliminare workbook protetto

Hai un problema con Excel?

Nuova discussione

Eliminare workbook protetto
di Ame90 (utente non iscritto) data: 30/10/2015 09:41:48
Buongiorno a tutti,

Ho creato un file "matrice" che permette la compilazione, da parte degli operatori, di un certificato per ogni codice prodotto che inseriscono. Questo file matrice genera dei file Excel temporanei (il lavoro può durare qualche giorno) mediante un tasto salva che io ho creato e, per evitare che il file matrice venga salvato, ho inibito tasto chiusura e salva (è necessario che anche il tasto chiudi fosse inibito e ho creato un tasto apposito).

Se un operatore inserisce un codice prodotto per cui esiste già un file temporaneo ad esso associato, il codice se ne accorge ma, prima di aprirlo, entra nel seguente IF (1) (dovuto al fatto che per ogni codice possono essere necessari dei fogli aggiuntivi, perciò se l'ultima richiesta è differente da quella che ha generato il file temporaneo, questo deve essere eliminato e ricominciare da capo con uno nuovo)

Il comando kill presente dell'ELSE mi dice che non ha l'autorizzazione, a causa del blocco alla chiusura che ho impostato (nella prima parte dell'IF inserisco infatti bln = True che permette la chiusura del file matrice e fa proseguire con il temporaneo). Ora la mia volontà sarebbe di impostare bln = true anche nel temporaneo così da poterlo chiudere.
Riporto il modulo che implementa questo blocco.

Ho provato ad attivare il file temporaneo con .Activate nell'ELSE, sperando così che il comando bln fosse riferito a lui, ma nulla cambia.

Grazie anticipatamente per le risposte

-----------------(1)---------------------
if matrice.check_box.value = temp.check_box.value then
      bln = True
      currentWb.Close savechanges:=False  (questa parte di codice funziona)
else
     LookupWB.Workbook_BeforeClose (False)
     LookupWB.Close savechanges:=False
     Kill (sFile)
end
-----------------(2)-------------------------------------
Sub close_interface()
    bln = True
    ActiveWorkbook.Close savechanges:=False
End Sub

di patel data: 30/10/2015 12:01:28
dovresti allegare un file di esempio funzionante per fare i test
di Ame90 (utente non iscritto) data: 30/10/2015 12:22:07
Sfortunatamente mi è stato detto che non posso allegare file. Il motivo risiede nel nome dell'autore del file Excel, che oltre al mio nome personale contiene anche quello dell'azienda in cui lavoro, che vuole restare anonima.

La ringrazio comunque per l'attenzione dedicatami
di patel data: 31/10/2015 08:19:52
non ti ho chiesto il file originale ma un esempio funzionante, quindi con dati fasulli e limitato al problema da risolvere

Vuoi Approfondire?