VBA kode til optælling af låst celle

Hej!

  Jeg har et spørgsmål, hvordan får jeg en værdi i en låst celle til at blive talt op.

Den skal tælles op ved dokument load og har forsøgt følgende, men uden resultat:

    Dim value As Integer
    value = Cells(6, 13)
    value = value + 1
    ActiveWorkbook.Unprotect
    Cells(6, 13).value = value
    Cells(17, 13).value = value
    Cells(16, 13).value = Now
    ActiveWorkbook.Protect

Hvad skal jeg ellers gører?