Track opening time and closing time ofworkbook

[EinarOSies]

Please I may want a code to calculate the time I used in working with a workbook. The details are when I open the workbook it stores it in a cell then when closing it stores it in another cell then calculate the difference between the my opening time and closing time and present it to me with a message box of the difference or the amount of time I used working with the workbook. Please thanks

 

[Zot]

You can refer here

Tracking Workbook Opens And Closes

www.cpearson.com

 

[EinarOSies]

After pasting the and while debugging it gives me an error that " The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute". Is there anyway I can get around it to work both on 32-bit machines and 64-bit machines.
Thanks Einar

 

[Zot]

After pasting the and while debugging it gives me an error that " The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PtrSafe attribute". Is there anyway I can get around it to work both on 32-bit machines and 64-bit machines.
Thanks Einar

If you go to VBA Editor, you can see that line that call Function such as

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long

is red in color.

You just need add PtrSafe

Private Declare PtrSafe Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long

Do this for all those red color line. They are usually the Private Declare Function. Then it should be compatible for bot 32 and 64-bit as far as I know

 

[EinarOSies]

Please okay gonna try

 

[EinarOSies]

Sure please it worked thanks im advance.
Einar

 

[EinarOSies]

Please when I run the code it gives me a run-time error '1004'. "The cell or chart you're trying to change, unprotected the sheet. You might be requested to enter a password"
Behind the code for the workbook on opening it protects all worksheet. Please how can your code work at the same time protect my workbook

 

[Zot]

You meant when upon opening workbook, it protects all worksheet? I guess you have to exclude that Audit xlVeryHidden worksheet. No one can unhide it except through VBA.

 

[EinarOSies]

Yes I tried I have tried that and it still gives me that error even stopping all my macros in the workbook open event. Any additional help

 

[Zot]

Yes I tried I have tried that and it still gives me that error even stopping all my macros in the workbook open event. Any additional help

Sorry. I've never tried this before. I just copy the code on new workbook and it seems that the sheets Audit was not created as believed. That caused an error. I made some change and this seems to work.

on this part

If Err.Number = 9 Then
        Set WS = Me.Worksheets.Add(before:=1)
        WS.Name = "Audit"
    End If

change to

If Err.Number = 9 Then
    Set WS = Sheets.Add(Before:=Sheets(1))
    WS.Name = "Audit"
End If