Real Time Clock

[rakupareek]

Hii
I am using following code for digital clock running real time
Sub clock()
Application.ScreenUpdating = False
Worksheets("Estimate").Range("J8").Value = Now
Application.OnTime Now + TimeValue("00:00:01"), "Clock"
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()
Worksheets("Estimate").Unprotect Password:="1234"
Call Clock
Worksheets("Estimate").Protect Password:="1234"
End Sub

Now my problem is:-
1. Screen flickering every second
2. When i unprotect sheet by putting password, The worksheet unprotect & protect automatically within second.
i can't edit in my worksheet.
please help me to resolve this.

 

[Micron]

Maybe if you explained the purpose of the idea someone can suggest an alternative approach. What you are doing makes no sense to me.
- Sheet opens, unprotects and then calls Clock
- Clock code runs in an instant and passes control back to the calling procedure
- Sheet gets protected. All of this probably happens in less than 1 second.
Not sure why you should expect anything else.

 

[rakupareek]

I have inserted this clock in a invoice I want to print current time in invoice.

 

[Micron]

Just once? Then use Now(), or use Time function?

 

[rakupareek]

But I want digital clock in my file
Please suggest

 

[Micron]

Then I guess remove the protection and don't put it back on until some other point - perhaps when you close the file.

 

[rakupareek]

Thanks