Indsæt dags dato uden opdatering2

Troede lige det x-lars og mrjh har hjulpet mig med virker, men nu har bak lige gjort mig opmærksom på noget andet...


x-lars og mrjh har hjulpet mig med flg.:

Private Sub Workbook_Open()
ActiveSheet.Unprotect
Worksheets("Faktura").Range("L17").Select
        ActiveCell.FormulaR1C1 = "=NOW()"
'  Sæt format på opdateringstidspunktet
    Range("L17").Select
    Selection.NumberFormat = "dd/mm/yyyy"
'  Fjern formlen, så kun opdateringstidspunktet står tilbage
    Selection.Copy
    Range("L17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


bak er nu kommet med flg forslag:

Private Sub Workbook_Open()
  With Worksheets("Faktura")
      If .Range("L17") = "" Then
        .Protect userinterfaceonly:=True
        .Range("L17") = Date
      End If
  End With
End Sub

Jeg fatter ikke kinesisk, så jeg stiller mit spørgsmål igen:
Hej NGer

Jeg sidder med en faktura hvor jeg på fakturadato har brugt =IDAG()
Det virker jo perfekt, mit problem er nu - Hvordan fastlåser jeg dags dato???

Hvis jeg senere skal ind og finde en faktura til en kunde, der fx har smidt sin faktura væk - Er det jo træls den opdaterer datoen istedet for at huske på den dato, hvor fakturaen blev udskrevet.

På forhånd tak for hjælpen
Heidi ;)

PS. Husk at jeg bruger arkbeskyttelse på min faktura...