Sto creando un foglio di calcolo per i dati di tendenza per i test analitici di prodotti chimici. Vorrei che ogni riga di dati fosse bloccata una volta che la trascrizione di detti dati è stata verificata dal revisore. Sono in grado di bloccare una singola riga usando questo codice in VBA:
Private Sub Worksheet_Change (ByVal Target As Range)
Se Range("X3") = "No" Allora
Intervallo ("B3: W3"). Bloccato = Falso
ElseIf Range("X3") = "Sì" Allora
Intervallo ("B3: W3"). Bloccato = Vero
End If
End Sub
La colonna X contiene un elenco a discesa con "Sì" e "No" come le due opzioni. Vorrei che ogni riga di dati, man mano che viene aggiunta al foglio, venga bloccata una volta che il revisore ha selezionato sì in questa colonna per assicurarsi che non vengano apportate modifiche indesiderate ai dati passati. È possibile senza dover ripetere il codice about per ogni riga all'infinito?
Private Sub Worksheet_Change (ByVal Target As Range)
Se Range("X3") = "No" Allora
Intervallo ("B3: W3"). Bloccato = Falso
ElseIf Range("X3") = "Sì" Allora
Intervallo ("B3: W3"). Bloccato = Vero
End If
End Sub
La colonna X contiene un elenco a discesa con "Sì" e "No" come le due opzioni. Vorrei che ogni riga di dati, man mano che viene aggiunta al foglio, venga bloccata una volta che il revisore ha selezionato sì in questa colonna per assicurarsi che non vengano apportate modifiche indesiderate ai dati passati. È possibile senza dover ripetere il codice about per ogni riga all'infinito?