Eseguire una macro al variare di un valore in una colonna

[erika_i]

Ciao Anthony e grazie per la pazienza...
di seguito il file che sto utilizzando:

https://www.wetransfer.com/downloads/3c5636bd0f097ac6456be1e7536f390320150616131822/e787bad051d37e41d5942c671cc1895b20150616131822/3ce063

grazie ancora.

[Anthony47]

Ah aha...
Quindi tu metti a mano una password; poi avvii una macro che non conosce la password e ti chiedi come mai la password la devi inserire a mano?
Per proteggere e sproteggere con password, devi modificare la riga
ActiveSheet.Unprotect
In
ActiveSheet.Unprotect Password:="pippo"

E analogamente la protezione sara' fatta con
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="pippo"

"pippo" ovviamente e' a libera scelta.

Ciao

[erika_i]

ahahahaha sì sì facevo proprio così.
te l'ho detto che sono imbranata...
grazie 1000 comunque!!! ora ovviamente funziona.

[Omocaig]

Ciao, ho rielaborato la prima macro che ha postato Anthony e la riporto nel caso in cui fosse necessaria a chi volesse compilare più intervalli come da esempio:

In B13:B10000 inserisco il nominativo e nella colonna A ottengo la Data
In L13:P10000 inserisco il Valore e nella colonna S ottengo la Data

Il tutto senza blocchi e da inserire direttamente nel foglio in cui stai operando, In Visual Basic Editor nella cartella Microsoft Excel Oggetti.

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As range)
Dim KeyCells As range
Set KeyCells = range("L13:P10000")
If Not Application.Intersect(KeyCells, range(Target.Address)) Is Nothing _
    And Cells(Target.Row, "S") = "" And IsNumeric(Target.Value) Then
    ActiveSheet.Unprotect
    With Cells(Target.Row, "S")
        .Value = Int(Now)
        .Locked = False
    End With
    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
Set KeyCells = range("B13:B10000")
If Not Application.Intersect(KeyCells, range(Target.Address)) Is Nothing _
    And Cells(Target.Row, "A") = "" Then
    ActiveSheet.Unprotect
    With Cells(Target.Row, "A")
        .Value = Int(Now)
        .Locked = False
      End With
    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If

Ciao a tutti