Blocco condizionale di celle in excell2010

Question

Innanzitutto scusate la mia poca chiarezza ma per me è una "prima volta" in forum.

Avrei bisogno di bloccare da ulteriori modifiche le celle di una riga quando l'ultima cella viene valorizzata.

Ho provato (naturalmente in un file con estensione xlsm) con il seguente codice VBA:

Private Sub Foglio1_Change(ByVal Target As Range)

If Range("A1").Value = "" Then

Range("B1").Locked = False

Else

Range("B1").Locked = True

End If

End Sub

Nella mia ignoranza credevo che bastasse salvare la compilazione ma il comando non funziona. Quale può essere il problema?

Grazie

Answer 1

però se non proteggi il file il blocco della cella non ha effetto.

Forse potresti ricorrere ad un criterio di convalida da applicare in B1.

Fai clic su B1, poi portati nella scheda dati e scegli Convalida dati, quindi, dall'elenco Consenti, secgli Personalizzato e immetti questa formula =VAL.VUOTO($A$1)

Excel ti lascerà scrivere in B1 solo quando A1 è vuota.

Answer 2

Ok. Funziona. Non è però esattamente quello che cercavo: la mia vorrebbe essere una tabella per registrare Uscita/Rientro materiale e, più che bloccare con pwd il record pensavo di disabilitarlo (al suo completamento ovvero al rientro di quanto temporaneamente prestato). In questo modo avrei lo "storico" dei movimenti fatti su cui andare comunque a fare statistiche varie.

sorry

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Me

        .Unprotect 'Password:= "LaTuaPassword"

        If .Range("A1").Value = "" Then

            .Range("B1").Locked = False

        Else

            .Range("B1").Locked = True

        End If

        .Protect 'Password:= "LaTuaPassword"

    End With

End Sub

Che bloccherà la cella B1 se la cella A1 non è vuota.