foglio di calcolo blocco cancellazione o modifica su cella

[StefSeb]

Gentilissimi devo condividere un file (pensavo di usare un Foglio di Lavoro Google) in cui gli utenti possano segnare dei valori in un elenco.
Ho la necessità però che appena una cella viene valorizzata diventi protetta in modifica e cancellazione.

Come si può fare?

[StefSeb]

Non trovando la soluzione sto girando il problema.
Pensavo di Creare due fogli di cui uno nascosto (foglio 2)
Nel foglio 1 inserisco 3 colonne
Colonna A data
Colonna b slot orario
Colonna C da compilare
Appena uno compila un qualunque riga la colonna C
Ed esce O passa ad altra cella
Copia la riga compilata (cella in A, B, e C) nel foglio 2
Cancella la riga copiata dal foglio 1

In questo modo potrò vedere le cose inserite sicuro che non siano state modificate da altri e nessuno può scrivere in quello slot orario.
Per fare questo ho provato a scrivere questo codice che funziona in parte:
Sub Prova()
Sheets("foglio1").Select

Range("G1").Value = Range("C1").End(xlDown).Offset(0, 0).Value
Range("F1").Value = Range("C1").End(xlDown).Offset(0, -1).Value
Range("E1").Value = Range("C1").End(xlDown).Offset(0, -2).Value

Range("E1:G1").Select
Selection.Cut

Sheets("Foglio2").Visible = True
Sheets("foglio2").Select
Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.Visible = False


Sheets("foglio1").Select

Range("C1").End(xlDown).Offset(0, -2).RowDelete
# Questo non funziona, dovrebbe andare sulla cella di colonna A dove ha trovato la cella compilata ed eliminare la riga intera.
End Sub


La macro funziona in parte, trova la cella copia il contenuto in G1, copia le due colonne precedenti in E1 e F1, seleziona queste 3 celle, le "taglia" attiva il foglio 2 (che è nascosto) cerca la prima riga vuota e incolla la selezione.
RI nasconde il foglio 2 e dopo dovrebbe ritornare sulla prima cella della riga tovata prima e dovrebbe cancellare la riga.

Tutto questo è in Excell poi dovrò trovare il modo di passare in Google Sheets.

[StefSeb]

Sistemato il codice ora funziona


Sub Prova()

Sheets("foglio1").Select

Range("C1").End(xlDown).Offset(0, -2).Select
Application.CutCopyMode = False
Selection.Cut
Range("E1").Select
ActiveSheet.Paste

Range("C1").End(xlDown).Offset(0, -1).Select
Application.CutCopyMode = False
Selection.Cut
Range("F1").Select
ActiveSheet.Paste


Range("C1").End(xlDown).Offset(0, 0).Select
Application.CutCopyMode = False
Selection.Cut
Range("G1").Select
ActiveSheet.Paste

Range("E1:G1").Select
Selection.Cut
Sheets("Foglio2").Visible = True
Sheets("foglio2").Select
Range("A65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.Visible = False

Sheets("foglio1").Select

End Sub




Ora il problema è riscriverlo per Google Sheets!