Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

utilizzare file con macro e chiudere senza salvare

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

utilizzare file con macro e chiudere senza salvare

Postdi matzap » 30/08/13 15:45

ciao,
ho un file in rete che più persone devono utilizzare attivando macro tramite tasti, userform ecc.
alla fine però vorrei che il file si chiudesse senza dare loro possibilità di salvare. mentre vorrei mantenere per me questa prerogativa.

il sola lettura fa salvare loro il file con un altro nome e costringe me a fare lo stesso.

Basterebbe anche far salvare solo le modifiche ad un foglio in particolare.
si può fare?

ciao
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Sponsor
 


Re: utilizzare file con macro e chiudere senza salvare

Postdi Zer0Kelvin » 31/08/13 16:40

Ciao.
Non sono riuscito a visualizzare il file di dylan666, comunque il problema è risolvibile inserendo queste due sub nel codice di ThisWorkbook:
Codice: Seleziona tutto
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Close savechanges:=False
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Application.UserName <> "Il tuo Username" Then
        Cancel = True
    End If
End Sub

Qualunque richiesta di salvataggio da un altro utente verrà ignorata ed alla chiusura non verrà chiesto di salvare.
Salvare le modifiche ad un solo foglio potrebbe non essere così semplice, a meno di non salvare il foglio in questione in un nuovo file....
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: utilizzare file con macro e chiudere senza salvare

Postdi Anthony47 » 31/08/13 17:27

Non ho grande pratica con i file condivisi, chiedo quindi se in questo modo le modifiche introdotte dall' utente sono conservate o vanno perdute. E' una domanda vera, non finta...

Ciao a tutti.
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: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: utilizzare file con macro e chiudere senza salvare

Postdi Zer0Kelvin » 31/08/13 17:39

Veramente non pensavo ad un "vero" file condiviso. Aspettiamo di saperne di più...
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: utilizzare file con macro e chiudere senza salvare

Postdi Dylan666 » 01/09/13 00:02

io non ho linkato un file, ma la pagina di un forum che mostrava un codice vba molto simile al tuo.
Io vedo correttamente quella pagina anche ora
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46

Re: utilizzare file con macro e chiudere senza salvare

Postdi ricky53 » 01/09/13 01:32

Ciao,
confermo anch'io: la pagina è visibile.

In situazioni simili io ho utilizzato
Codice: Seleziona tutto
Environ("UserName")

perchè con la
Codice: Seleziona tutto
Application.UserName
visto che l'UserName può essere modificata entrando nelle opzioni di excel, quindi, si renderebbe vano il codice scritto ed il file sarebbe salvato da chiunque
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: utilizzare file con macro e chiudere senza salvare

Postdi Zer0Kelvin » 01/09/13 01:37

Dylan666 ha scritto:io non ho linkato un file, ma la pagina di un forum che mostrava un codice vba molto simile al tuo.

Ho visto; purtroppo, a certe ore, l'ADSL dalle mie parti è un pò "moscio"! ;)

PS: sono d'accordo con Ricky, Environ("UserName") è più adatto al caso...
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: utilizzare file con macro e chiudere senza salvare

Postdi matzap » 02/09/13 11:16

ciao a tutti,
ho provato con il codice di Zer0Kelvin ma non mi funziona nel senso che mi chiude sempre senza salvare anche dal mio PC
in ThisWorkbook io non ho nessun codice perciò le unich righe di codice sono queste:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close savechanges:=False
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName <> "mio Username" Then
Cancel = True
End If
End Sub
Il pc fa parte di una rete, perciò ho provato scrivendo solo il mio Username e poi aggiungendo anche il dominio ma niente.
Potrebbe esserci qualche altro tipo di errore?

Il file è in una rete e può essere usato da diverse persone per creare report da stampare ma non da salvare.

ciao e grazie
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: utilizzare file con macro e chiudere senza salvare

Postdi Dylan666 » 02/09/13 14:01

Sicuro che scrivi il nome giusto?

Prova con questo codice:

Codice: Seleziona tutto
Sub test()
MsgBox (Application.UserName)
End Sub


A me per esempio appare il "Display Name" (nel mio caso "Nome Cognome", quello che appare in cima al tasto Start insomma) invece che il mio nome di dominio (cioè Logon Name) come mi sarei aspettato.
Comunque il valore che apparirà nel MsgBox sarà quello che dovrai usare come valore della variabile
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46

Re: utilizzare file con macro e chiudere senza salvare

Postdi ricky53 » 02/09/13 14:27

Ciao,
Dylan: dipende da cosa è stato scritto in
Barra dei Menu, Opzioni, Generale, "Nome Utente" (Applicabile ad Office 2003)

per il 2007 e successive:
File, Opzioni, Generale, "Nome Utente"




Matzap: prova con quanto ti avevo suggerito io. Però fai attenzione a come scrivi nell'istruzione "If" il nome.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: utilizzare file con macro e chiudere senza salvare

Postdi Dylan666 » 02/09/13 14:44

Hai perfettamente ragione, lo avevi pure specificato nei post precedenti.. me lo ero proprio perso! :P
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46

Re: utilizzare file con macro e chiudere senza salvare

Postdi matzap » 03/09/13 12:58

Infatti per username vuole il mio nome e cognome.
ora però questo codice:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close savechanges:=False
End Sub
-----------------------------------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.username <> "mio nome" Then
Cancel = True
End If
End Sub

mi fa salvare tramite i tasti della barra "salva" e "salva con nome" ma alla chiusura mi chiude senza salvare nulla.
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: utilizzare file con macro e chiudere senza salvare

Postdi Anthony47 » 03/09/13 16:39

Non l' ho collaudato, pero' se aggiungi il test dell' tente anche nella Workbook_BeforeClose dovrebbe funzionare:
Codice: Seleziona tutto
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.username <> "mio nome" Then ThisWorkbook.Close savechanges:=False
End Sub

Avevo chiesto se così le modifiche introdotte dagli utenti venivano conservate, lo hai gia' controllato?

Ciao
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: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: utilizzare file con macro e chiudere senza salvare

Postdi matzap » 04/09/13 08:00

si ora funziona, grazie
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27


Torna a Applicazioni Office Windows


Topic correlati a "utilizzare file con macro e chiudere senza salvare":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti