How can I reset this Counter ? I would like to activate a command line when I want.
'Get setting from registry
Counter = GetSetting("XYZ Corp", "Budget", "Count", 0)
LastOpen = GetSetting("XYZ Corp", "Budget", "Opened", "")
'Display the information
msg = "Aplicatia este folosita de " & Counter & " ori."
msg = msg & vbCrLf & "Last opened: " & LastOpen
MsgBox msg, vbInformation, ThisWorkbook.Name
'Update information and store it
Counter = Counter + 1
LastOpen = Date & " " & Time
SaveSetting "XYZ Corp", "Budget", "Count", Counter
SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen
'Reset Counter Code
Thank.
The simple solution is: „Counter=0”
Bookmarks