Du kan tilføje følgende macro:
Private Sub Workbook_Open()
Sheet1.Unprotect ("Password")
If Sheet1.Cells(1, "A") = "" Then
Sheet1.Cells(1, "A") = Now
End If
Sheet1.Protect ("Password")
End Sub
Det kræver at du først markere alle de felter som folk skal kunne indtaste i, højre klikker på markeringen og vælger Format Cells - Protection - fjern flueben ved Locked.
Makroen vil hver gang workbook åbnes låse alle de felter som ikke er låst op vha instruktionen ovenfor, samt se om der er indsat noget i felt (1,"A") på sheet1.
Du kan selv låse sheet1 op vha. tools- protection - unprotect. Koden er så "Password" men kan ændres i macroen!
mvh
Peder