Impedire modifica celle dopo immissione

Hai un problema con Excel?

Nuova discussione

Impedire modifica celle dopo immissione
di Miki68 (utente non iscritto) data: 29/05/2013 12:15:04
Vorrei una macro per bloccare le celle dell'intervallo "B1:b80", dopo che è stato immesso un valore. Insomma, impedire l'eliminazione o la modifica dopo l'immissione dei dati in una delle celle dell'intervallo.
Ringrazio in anticipo chi mi vorrà aiutare.

di totygno71 data: 29/05/2013 13:18:22
ciao Miki

ci sono tanti modi
uno puo essere

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect

    If Not Intersect(ActiveCell, Range("B2:B80")) Is Nothing And ActiveCell.Value <> "" Then
    ActiveCell.Locked = True
    ActiveSheet.Protect
    End If

End Sub

di Mister_x data: 29/05/2013 17:27:18
ciao

io al codice di totygno, che saluto, aggiungerei anche una Password cosi da rendere piu' problematica la modifica se non la si conosce

ciao da Mister_x

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect ("Pippo")

    If Not Intersect(ActiveCell, Range("B1:B80")) Is Nothing And ActiveCell.Value <> "" Then
    ActiveCell.Locked = True
    ActiveSheet.Protect ("Pippo")
    End If

End Sub

Vuoi Approfondire?