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

 

[apgmin]

But I want digital clock in my file
Please suggest

Dim SchedRecalc As Date

Sub Recalc()

With Sheet1.Range("A1")

.Value = Format(Time, "hh:mm:ss AM/PM")

End With

Call SetTime

End Sub

Sub SetTime()

SchedRecalc = Now + TimeValue("00:00:01")

Application.OnTime SchedRecalc, "Recalc"

End Sub

Sub Disable()

On Error Resume Next

Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

End Sub

 

[Artik]

Since time is only needed for printing, it's simpler to program the BeforePrint event in the ThisWorkbook module:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Me.Worksheets("Estimate")
        .Protect Password:="1234", UserInterfaceOnly:=True
        .Range("J8").Value = Now
    End With
End Sub

This is all the code needed. Just that.

Artik