Proteggi celle con formule

Stato
Chiusa ad ulteriori risposte.

Cesco80

Utente abituale
13 Luglio 2019
476
30
40
Verona Prov.
Office 2019
31
Bloccare le celle contenenti formule è un classico,propongo quindi una semplicissima macro,che blocca tutte le celle contenenti formule nel foglio di lavoro con un solo click.

Blocca Celle con Formula:
Sub proteggi_celle_con_formula()
    With ActiveSheet
        .Unprotect
        .Cells.Locked = False
         On Error Resume Next
        .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
        .Protect AllowDeletingRows:=True
    End With
End Sub

E di seguito il codice per ripristinare

Ripristino celle bloccate contenenti formule:
Sub ripristina_celle_con_formula()
    With ActiveSheet
        .Unprotect        
        .Cells.Locked = False
         On Error Resume Next
        .Cells.SpecialCells(xlCellTypeFormulas).Locked = False
        .Protect AllowDeletingRows:=True
    End With
End Sub
 
  • Like
Reactions: ges
Stato
Chiusa ad ulteriori risposte.

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!