Bom Rogerio, fiz um cambalacho que impede que o usuário abra a tela para acertar a data e hora:
Em um módulo vc coloca
SHFileExists verifica se o arquivo existe
Public Declare Function SHFileExists Lib "shell32" Alias "#45" (ByVal szPath As String) As Long
Public Function Bloquear(vValor As Boolean)
If vValor = True Then
If SHFileExists("C:WINDOWSSYSTEMSYSDM.CPL") Then
vNameOld = "timedate.cpl"
vNameNew = "timedate.dll"
Name "c:WINDOWSSYSTEM" & vNameOld As "c:WINDOWSSYSTEM" & vNameNew
End If
ElseIf vValor = False Then
If SHFileExists("C:WINDOWSSYSTEMSYSDM.CPL") Then
vNameOld = "timedate.dll"
vNameNew = "timedate.cpl"
Name "c:WINDOWSSYSTEM" & vNameOld As "c:WINDOWSSYSTEM" & vNameNew
End If
End If
End Function
No Form coloque dois botões, e insira o codigo a seguir:
Private Sub Command1_Click()
Bloquear True
End Sub
Private Sub Command2_Click()
Bloquear False
End Sub
Obs. Para funcionar corretamente, a janela de data e hora deverá estar fechada. Caso vc esqueça a janela aberta dará erro. Se isso acontecer, verifique se o nome do arquivo TimeDate está como TimeDate.Cpl (esse é o nome correto) ou se esta como TimeDate.Dll. Para voltar a funcionar a janela, basta vc renomear o arquivo de TimeDate.dll para TimeDate.cpl.
T+
Rinaldo
