Protezione Cella

[marte1503]

Ciao a tutti,
avrei bisogno una riga di codice da aggiungere alla mia macro collegata a Pulsante1
e un'altra riga da aggiungere a Pulsante2


PREMESSA
ho un foglio che normalmente è tutto protetto a parte CellaB3 e Cella B5 che accettano l'inserimento dati

- la riga aggiuntiva per pulsante 1 dovrebbe proteggere le 2 Celle NON protette
- la riga da aggiungere a pulsante 2 dovrebbe rimuovere la protezione solo dalle 2 Celle sopra citate lasciando protetto il resto del Foglio

non so se sia possibile effettuare questa operazione e tanto meno come ottenerla

attendo un aiuto
grazie

[marte1503]

Scusate...
dimenticavo la potenza del registratore di macro..
A chi dovesse interessare questo comando io ho risolto così:

Codice: Seleziona tutto

ActiveSheet.Unprotect
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("F5,F3").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


A presto