Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

CHIUSURA FILE EXCEL DOPO AVERLI APERTI

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

CHIUSURA FILE EXCEL DOPO AVERLI APERTI

Postdi scanacc » 10/01/16 15:21

Carissimi,
sono alle prese con un FILE che vorrei portare all'attenzione di alcuni miei amici entro fine mese. Vorrei che fosse tutto automatizzato e nello stesso tempo vorrei fare in modo che i codici da me scopiazzati e anche un pò creati, siano tenuti nascosti.
Per quest'ultima cosa mi sono avvalso di un programmino che trasforma i file excel in .exe in modalità read only .
Veniamo al problema.
Il file parte con:
Codice: Seleziona tutto
ActiveSheet.Unprotect "PSW"
    Application.ScreenUpdating = False
    Application.Run "APRI_FILE"
.....
.....
Application.Run "CHIUDI_FILE"
End sub

Il file "APRI_FILE" è scritto così:
Codice: Seleziona tutto
Sub APRI_FILE()
Windows("MIO_PROGRAMMA.xlsm").Activate
   
Workbooks.Open Filename:="c:\DOCUMENTI\FileA.xls"

Workbooks.Open Filename:="c:\DOCUMENTI\FileB.xls"
End sub

il file "CHIUDI_FILE" è scritto così:
Codice: Seleziona tutto
Sub CHIUDI_FILE()
Dim book As Workbook
Dim file_aperto As Workbook
Dim aperto As Boolean
Dim nome As String
nome = "FileA.xls"
aperto = False
For Each book In Workbooks
   If book.Name = nome Then
      Set file_aperto = Workbooks(nome)
      aperto = True
      file_aperto.Close
      Exit For
   End If
Next book

Set file_aperto = Nothing

nome = "FileB.xls"
aperto = False
For Each book In Workbooks
   If book.Name = nome Then
      Set file_aperto = Workbooks(nome)
      aperto = True
      file_aperto.Close
      Exit For
   End If
Next book

Set file_aperto = Nothing
End sub


Fino a qui tutto OK! Nel senso che sarà fortuna o casualità, tutto funziona come vorrei funzionasse...il file quando si apre non fa balletti strani, le cartelle si aprono e si chiudono senza avere particolari evidenze ottiche etc.

Veniamo alla trasformazione in file.exe tramite il programmino chiamato XLtoEXE.exe
Quando lo apro il file si minimizza/maximizza 3 volte, i file richiamati si aprono in maniera evidente e il file di "MIO_PROGRAMMA.exe"riappare solo dopo che il codice ha finito di "girare" completamente, ed in più le cartelle aperte non si chiudono a differenza di quanto accadeva prima della trasformazione.
AIUUUUUUUUUUUUUUUUUUUUUTOOOOOOOOOOOOOOOOOOOOOOOOOO
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: CHIUSURA FILE EXCEL DOPO AVERLI APERTI

Postdi Anthony47 » 10/01/16 17:02

Perdona, vieni su un forum, una comunita' che ha l'obiettivo di diffondere le conoscenze, a chiedere aiuto su come nascondere le cose che hai scopiazzato...
Non hai la sensazione di aver sbagliato approccio?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: CHIUSURA FILE EXCEL DOPO AVERLI APERTI

Postdi scanacc » 10/01/16 17:54

Beh! In effetti! :oops: .... Però sono stato sincero!
...comunque sono giorni che ci sbatto la testa cercando di capire dove poter attingere le informazioni necessarie ... ma non riesco a venirne a capo ...
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30


Torna a Applicazioni Office Windows


Topic correlati a "CHIUSURA FILE EXCEL DOPO AVERLI APERTI":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti