proteggo celle avviando macro

[FrasubbPartecipante Frasubb Karma: 1 pt]

Ciao a tutti,

ho l'esigenza di proteggere delle formule scritte nelle celle a1, d1 e range f5:f100.

Come faccio a fare ciò, senza però proteggere il foglio di lavoro ?

Esiste una macro che in apertura file protegge automaticamente queste celle ?

Grazie mille a chi vorrà aiutarmi

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

Lascia le celle da bloccare in stato “Bloccata” (Formato celle, Protezione) e sblocca tutte le altre poi proteggi il foglio.

Per il codice ti basta il registratore di macro.

[alexps81Moderatore alexps81 Karma: 58 pts]

Prova ad andare nell'angolo in alto del foglio, tra la colonna A e il rigo 1 e premi il tasto destro del mouse. Nel menù contestuale, scegli "Formato celle", poi portati nella scheda "Protezione" e togli al spunta a "Bloccata" ed infine "OK".

Poi seleziona prima la cella "A1", tieni premuto CTRL e scegli la cella "D1" e sempre tenendo premuto CTRL scegli da "F5" a "F100". Con queste celle selezionate, premi tasto destro del mouse e ripeti come prima..."Formato celle", "Protezione", ma sta volta metti la spunta su "Bloccata" e infine "OK".

A questo punto vai su "Proteggi foglio", se vuoi metti una Password e poi "OK".

Vedi se ti può bastare.

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

Forse ho scritto in arabo?

Cosa ho detto di diverso?

[rollis13Partecipante rollis13 Karma: 8 pts]

Non credo abbiate scritto in arabo ma sicuramente in una lingua straniera perché l'OP ha chiaramente chiesto:

Come faccio a fare ciò, senza però proteggere il foglio di lavoro ?

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao a tutti

Prova con questa macro (da inserire nel Modulo del Foglio interessato)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1,D1,F5:F100")) Is Nothing Then
    MsgBox "Cella NON modificabile"
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
    Exit Sub
  End If
End Sub

Fai sapere se è quello che volevi. Ciao,

Mario

[FrasubbPartecipante Frasubb Karma: 1 pt]

Grazie Mario,

era proprio ciò che ho richiesto e che serviva.   

Chiudo come risolta

[Autore]

Articoli