What do I need to change for this to work on 64 bit guys ?
Option Explicit
'Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
'bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'Private Const KEYEVENTF_KEYUP = &H2
'Private Const VK_SNAPSHOT = &H2C
'Private Const VK_MENU = &H12
'Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
' ByVal dwMilliseconds As Long)
'
' Public Sub mySleep()
'Do
'Application.Calculate
'ActiveSheet.Unprotect "6477"
'Sheets("MAIN").Range("b1").Value = Now
'ActiveSheet.Protect "6477"
'
' Call Sleep(2000) '2000 Millisekunden Pause
'Loop
'End Sub
Option Explicit
'Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
'bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'Private Const KEYEVENTF_KEYUP = &H2
'Private Const VK_SNAPSHOT = &H2C
'Private Const VK_MENU = &H12
'Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
' ByVal dwMilliseconds As Long)
'
' Public Sub mySleep()
'Do
'Application.Calculate
'ActiveSheet.Unprotect "6477"
'Sheets("MAIN").Range("b1").Value = Now
'ActiveSheet.Protect "6477"
'
' Call Sleep(2000) '2000 Millisekunden Pause
'Loop
'End Sub