[Risolto] Come fare per rendere inutilizzabili da altri celle con formule, senza necessariamente proteggere foglio Excel.

ciao

vediamo se ho capito

seleziona il foglio cliccando sul triangolo ta la A e 1

click destro

formato celle

protezione

leva la spunta a bloccato

Allegati : image.png

fatto questo seleziona tenendo cliccato ctrl le celle interessate

o se vuoi nascondere tutte le formule 

TROVA E SELEZIONA

FORMULE

CLICK DESTRO 

FORMATO CELLE

METTI LA SPUNTA SU BLOCCATE E NASCOSTE

fatto questo

REVISIONE 

PROTEGGI FOGLIO

Allegati : image.png

non vedrai le formule e

tutte le celle selezionate con formula saranno intoccabili

ma avranno sempre il risultato esatto

@gianfranco55  Ciao Gianfranco bentrovato. Questo salvataggio io lo avevo gia fatto ma, ho necessità di usare tutte le funzioni del foglio Excel tipo( modficare grandezza cella, inserire nuove righe ecc.). Va bene bloccare le celle formule e nascondere le stesse perchè usano il foglio anche altri. Ma io vorrei che il resto del foglio fosse utilizzabile normalmente, cosa che con la protezione foglio non mi permette di fare. Può essere possibile? Grazie P.S. Ti allego un foglio che ho già salvato ma non ho messo pw perchè tu lo possa modificare.

Allegati : Gara LANCI primi 8 OK inviare.xlsx

Ciao a tutti. Tempo fa, causa stesso fastidio, avevo risolto così:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Environ("UserName") <> "QuiTuoNomeUtente" Then
        If ActiveCell.HasFormula Then
            MsgBox "Non è possibile modificare questa cella!"
            Exit Sub
       End If
    End If
End Sub

 

Codice da inserire in Foglio1 o comunque nel foglio in qui intendi effettuare il controllo. Più fogli, più codici, tutti nel relativo foglio. Naturalmente cambia "QuiTuoNomeUtente" con il tuo nome.

Edit: se però non ti sposti dalla cella sarà sempre possibile cancellare il contenuto. Quindi avevo risolto spostando il cursore alla riga superiore:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Environ("UserName") <> "QuiTuoNomeUtente" Then
        If ActiveCell.HasFormula Then
            MsgBox "Non è possibile modificare questa cella!"
            C = ActiveCell.Column
            R = ActiveCell.Row
            Cells(R - 1, C).Select
            Exit Sub
       End If
    End If
End Sub

ciao

ho letto che non hai seguito le istruzioni

se le segui solo le celle selezionate saranno bloccate 

ma noto anche che sicuramente hai risolto