bloccare le celle dopo il salvaggio

Buongiorno a tutti e grazie in anticipo.
Ho la seguente necessità: ho bisogno che alcune celle contenute in un file vengano bloccate e quindi impedire di modificare i dati inseriti. Il blocco delle celle deve avvenire dopo il salvataggio.
Attualmente uso questo codice:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:S10000")) Is Nothing Then
Me.Unprotect "Psw" 'sostituisci con la tua password
Target.Locked = True
Me.Protect "Psw"
End If
End Sub

Questo codice però mi blocca le celle subito dopo l'inserimento (quindi spostandosi in un'altra cella). E' possibile modificare e farle bloccare dopo il salvataggio?
Grazie

Ciao
Come hai detto tu credo non si possa fare.
Puoi provare con l'Evento Deactivate del Foglio (li bloccherebbe quando esci dal Foglio, ma te li ritroveresti bloccate se torni nel Foglio indipendentemente dal salvataggio).

Un'altra cosa. Ll tuo codice credo che blocchi solo la cella attiva (cioè target) non l'intero intervallo.

Ciao,
Mario

Scusami non sono molto pratico, mi potresti indicare come modificare il codice

Ciao


Fai sapere. Ciao,
Mario

Un saluto a tutti.
Potresti anche togliere la gestione della protezione del Foglio dalla gestione dell'evento Worksheet_Change e spostarla nella gestione dell'evento Workbook_BeforeSave o Workbook_BeforeClose, che andrai ad aggiungere, lasciando al Worksheet_Change solo il compito del cambio di stato della cella da 'Non Protetta' a 'Protetta' che diverrà attivo solamente al salvataggio del file o alla sua chiusura.

Cortesemente mi puoi scrivere come andrebbe riscritto l'intero codice? Grazie

Sembrava più facile gestire il blocco delle celle e permetterne la modifica per tutto il tempo della sessione di lavoro fino al Salva o Chiudi pertanto ho predisposto un'altra soluzione (funzionante) che però va valutata nell'insieme del progetto completo e che propongo.
Non faccio più uso del evento Worksheet_Change all'interno del foglio ma solo degli eventi Workbook_BeforeSave e Workbook_BeforeClose.
In pratica il flag del blocco delle celle viene inserito solo se salvo (menu Salva) o alla fine della sessione (Chiudi con Salva) a tutte le celle compilate nel range previsto "A1:S10000"). Quelle ancora vuote rimarranno libere e disponibili per la successiva sessione di lavoro.
Le celle marcate "Bloccate" non potranno essere modificate in quanto il foglio è Protetto mentre le altre saranno liberamente inseribili e modificabile fino al primo Salva o Chiudi. Chiaramente al primo utilizzo del foglio, ovvero alla sua inizializzazione, a tutte le celle nel range va tolto la spunta su "Bloccato".
Pertanto, nel modulo vba ThisWorkbook (Questa_cartella_di_lavoro) vanno messe queste due sole macro. L'esempio è predisposto per il Foglio1, eventualmente va adeguato alle proprie esigenze.

Ho inserito il codice da te indicato. Ho compilato una cella poi ho fatto salva ma poi ritornando sul file la cella era sempre editabile

Ciao a tutti

Fabio attento che il codice di Rollis (ciao Rolando) funziona solo nel PRIMO FOGLIO o, meglio, in Sheets(1)
Se tu hai messo il codice, per esempio, nel secondo foglio, non funziona.

Ciao,
Mario

Ciao, il mio contenuto è tutto inserito nello sheet 1. Ho rinominato questo sheet e si chiama Lista

Come avrai notato ho scritto "(funzionante)" il che significa che ho anche messo del tempo per collaudare il codice che ho scritto, non ho solo espresso un'idea come avevo fatto nel post #5.

Se fornisci una traccia del tuo file (poche righe e senza dati sensibili) inserisco io le macro nel posto giusto (anche se avevo già dato le giuste indicazioni) e verifico anche che il tutto possa funzionare con il resto del progetto.

Grazie mille per la disponibilità.
In allegato il file.

Sei stato poco attento, avevo scritto: "Pertanto, nel modulo vba ThisWorkbook (Questa_cartella_di_lavoro) vanno messe queste due sole macro."
Solo se vengono messe li in quel modulo vba vengono gestiti gli eventi Workbook_BeforeSave e Workbook_BeforeClose.

Inoltre, le righe successive al 1.100 sono utilizzate ? perché se elimini tutto quello che sta sotto fino alla fine del foglio il peso del file scende da circa 570KB a soli 96KB. Eventualmente, poi devi anche adeguare il range indicato nelle macro.

Potrebbero servire in un futuro.
Ammetto che sono poco esperto di codici però se vado in "questa cartella di lavoro" io il codice lo vedo.
Ho provato anche ad inserirlo li ex novo ma non si blocca la cella al salvataggio.

Scusate se mi intrometto, se ho capito bene...
Con Excel2013, fare clic sul pulsante Seleziona tutto (casomai togliere la password)
Mouse destro/formatto celle/Protezione celle, sulla voce "Bloccata" togliere l'eventuale spunta oppure se il quadratino e nero cliccarci ancora sopra in modo che diventi bianco.

A questo punto togliere il codice Workbook_BeforeClose di rollis13
Chiudere e salvare
Quando si riapre le celle scritte sono bloccate.

Ho capito dove sbagliavo, ora funziona. Ringrazio tutti per la pazienza e la collaborazione.

@raffaele1953, in effetti in questo caso il controllo dell'evento BeforeClose è ridondante in presenza del BeforeSave e per una gestione 'normale" del progetto la sua macro può essere totalmente eliminata 👍.

L'avevo inserita solo per gestire il caso in cui l'utente preme il tasto "Chiudi" e poi ci ripensa e preme "Annulla" 😉.

Comunque rollis13, hai risolto un bel lavoro