Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Su chiusura
- Hai un problema con Excel?
Su chiusura
di Giuseppe (utente non iscritto) data: 27/11/2010
Ciao a tutti e grazie in anticipo. in un file excel utilizzato da 4 persone ho protetto delle celle dove solo io posso andare a scrivere; dunque da menù strumenti, protezione, rimuovi protezione foglio, sproteggo e scrivo. fatto ciò compio l'operazione inversa che mi riprotegge le celle. se dimentico di riproteggere, tutti possono scrivere nelle mie celle riservate; a tal proposito pensavo ad una protezione automatica sull'evento chiusura. come posso fare? ho scritto il seguente codice ma non funziona. grazie a tutti. ciao
Option Explicit Private Sub Workbook_BeforeClose( _ ByRef Cancel As Boolean) ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _ True End Sub
di Ricky53 (utente non iscritto) data: 28/11/2010
Ciao,
ipotizziamo che il foglio da proteggere sia "foglio1"
allora devi utilizare il codice che ti allego
Sheets("Foglio1").Select ActiveSheet.Protect Password:="TuaPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True
Nulla di fatto
di Giuseppe (utente non iscritto) data: 28/11/2010
Grazie per avermi risposto, ma la soluzione proporta non funziona; ho provato pure ad inserire il codice su apertura, ma nulla di fatto.
Private Sub Workbook_Open() Sheets("Foglio1").Select ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
Ok risolto
di Giuseppe (utente non iscritto) data: 29/11/2010
Sbagliavo a scrivere il codice su un modulo; dovevo inserirlo in thisworkbook. grazie a tutti
- Vuoi Approfondire?
