Hehe 

Private Sub Workbook_Open()
    Dim Quest      As Integer
    Dim CurUser As String
    CurUser = Environ("username")
    Sheets(1).Range("a1").Value = GetSetting("Counter", "Value", CurUser & " " & ActiveWorkbook.Name, 1)
    SaveSetting "Counter", "Value", CurUser & " " & ActiveWorkbook.Name, Sheets(1).Range("a1").Value + 1
    Quest = MsgBox("Reset Key?", vbYesNo + vbCritical)
    If Quest = vbYes Then DeleteSetting "Counter", "Value", CurUser & " " & ActiveWorkbook.Name
End Sub
Cheers

Dave