Blocca celle

[Cedamido]

Gentilmente vorrei sapere se questa macro creata da Antony il 20/04/2011 blocca le celle di un solo foglio oppure una volta inserita la macro blocca le celle di tutti i fogli.Grazie

Bloccare automaticamente il valore scritto in una cella

Public Preced As Boolean, ACelAd As String
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "D1:D40" '<< L' area da bloccare
If Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
'ACelAd = ActiveCell.Range("A1").Address
If Preced Then
Application.EnableEvents = False
Application.Undo: ACelAd = ActiveCell.Range("A1").Address
MsgBox ("Vietato modificare la cella " & Target.Address)
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If ActiveCell.Address = ACelAd Then Exit Sub
On Error Resume Next
If IsError(Target.Value) Then
Preced = False
Else
If Target.Value <> 0 Then Preced = True Else Preced = False
aaa = Target.Address
End If
End Sub

[Anthony47]

Questo codice lavora su un foglio alla volta. Se vuoi la stessa prestazione su piu' fogli allora devi inserire lo stesso codice in ogni modulo vba dei fogli interessati: da Excel ci arrivi rapidamente con Tasto dx sul tab col nome del foglio, scelta=Visualizza codice.

Ciao