Foglio per orari ingresso/uscita lavoro (Badge)

ABCDEF@Excel, 08/12/2019 21.12:

---

Password 123 Tramite convalida immetti l'orario

---

GiuseppeMN, 09/12/2019 17.22:

---

All'apertura la Password è univova; quindi Dip1, Dip2, Dip3 ecc ...
Dopo l'apertura il file può essere modificato liberamente solo da "ADMIN"
La Password d'accesso a VBA è proprio "ADMIN" e funziona.

---

ABCDEF@Excel, 10/12/2019 00.09:

---

Premi ALT+F11 e sostituisci il codice

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        If Target.Offset(0, 0) = "Entrata" Or Target.Offset(0, 0) = "Uscita" Then
            ActiveSheet.Unprotect "123"
            Application.EnableEvents = False
            Target.Offset(0, 1).Value = Now
            Application.EnableEvents = True
            Target.Offset(0, 0).Locked = True
            Target.Offset(1, 0).Locked = False
            ActiveSheet.Protect "123"
        End If
    End If
End Sub

Salva. Per quanto riguarda il MAC non saprei. Prova ALT+F11
Strumenti/Proprietà di VbaProject/Protezione ad inserire una Password

---

rollis13, 10/12/2019 18.32:

---

Un saluto a tutti.

Dato che non riesco a reperire l'elaborato di GiuseppeMN (non trovo l'allegato) allora mi permetto di suggerire un'aggiunta alla macro di ABCDEF@Excel per gestire il verso indicato dall'utilizzatore visto che, di solito, deve essere diverso da quello precedente. Questa è la macro integrata:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        'verifica verso
        If Target.Row > 10 Then
            If Target.Offset(-1, 0) = Target Then
                MsgBox "Stai indicando lo stesso verso."
                Application.EnableEvents = False
                Target = ""
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
        '--------------
        If Target = "Entrata" Or Target = "Uscita" Then
            ActiveSheet.Unprotect "123"
            Application.EnableEvents = False
            Target.Offset(0, 1).Value = Now
            Application.EnableEvents = True
            Target.Locked = True
            Target.Offset(1, 0).Locked = False
            ActiveSheet.Protect "123"
        End If
    End If
    
End Sub

---