Bloccare celle dopo inserimento dati

Hai un problema con Excel?

Nuova discussione

Bloccare celle dopo inserimento dati
di francescov (utente non iscritto) data: 24/04/2013 18:50:22
Ciao a tutti,
premetto che sono pochi giorni che sto smanettando con Vba & co.
Ho la necessità di bloccare le celle dopo l'inserimento di un dato , impossibilitandone cosi la modifica/eliminazione.
La mia situazione è questa:
inserisco il dato e premo invio , la cella quindi viene bloccata e proseguo l'inserimento nella cella sottostante.

Grazie in anticipo
di totygno71 data: 24/04/2013 19:36:30
Cioa francesco

l'inserimento si verifica in un determinato range o in qualsia parte del foglio?
di francescov (utente non iscritto) data: 24/04/2013 21:13:56
sarebbe A4:A1000

grazie :)

di totygno71 data: 24/04/2013 21:43:51
Francesco...

prova il codice sotto-
ciao

Private Sub Worksheet_Activate()
Cells.Select
Selection.Locked = False
ActiveSheet.Protect
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
If Not Intersect(Target, Range("A4:A1000")) Is Nothing Then

ActiveSheet.Unprotect

If Target.Value <> "" Then
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If

End Sub

di Vecchio Frac data: 24/04/2013 21:48:48
IL concetto è buono.
Per velocizzare: un bell'ScreenUpdating = False; e non serve preselezionare le celle.

Private Sub Worksheet_Activate()
application.screenupdating=false
Cells.Locked = False
ActiveSheet.Protect
application.screenupdating=true
End Sub

Che ne dite in alternativa dell'idea di un Userform magari con la comparsa delle textbox in sequenza per guidare l'utente nella compilazione dei campi obbligatori?
di totygno71 data: 25/04/2013 08:37:34
@VF

Sentiamo Francscov che ne pensa... certo le indicazione all'utente faciliterebbe il compito di chi prova ad inserire i dati in celle protette e non capisce perchè non ci riesce... ^_^
di francescov (utente non iscritto) data: 25/04/2013 14:29:13
grazie mille!!!
ho risolto con la soluzione di totygno! a me serviva una cosa semplice semplice senza cose particolari.

grazie ancora a tutti e due :)
di totygno71 data: 25/04/2013 21:29:31
@ VF
Beccati questa..... ^_^
cit " ho risolto con la soluzione di totygno! a me serviva una cosa semplice semplice senza cose particolari."

Grazie Franscescov, a noi piacciono le cose semplici!
Allora spunto Risolto_
tatà 4 now.

Vuoi Approfondire?