[RESOLVIDO] Fechar userform por inatividade
Enviado: Qua Jul 28, 2010 2:57 pm
Boas gente..
Estou usando o código abaixo para fechar as plan por inatividade, eu gostaria tbém de fechar os userform...mas não consigo...valeu pela atenção...
Private Sub Workbook_Open()
UserForm1.Show
SaveSheet = True 'Defina True para Salvar a planilha ao Fechar ou False para não salvar
Timeout = 3 'O Tempo de Inatividade é o resultado de TimeOut*TempoVerifica
TempoVerifica = "00:00:05" 'Intervalo de Verificação
StartTimer 'Inicia o Timer(descomentar para funcionar)
End Sub
Private Sub Workbook_Activate()
TempoInativo = 0
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
TempoInativo = 0
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
TempoInativo = 0
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
TempoInativo = 0
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
TempoInativo = 0
End Sub
Global Timeout As Integer
Global SaveSheet As Boolean
Global TempoVerifica As String
Global dTime
Global TempoInativo As Integer
Function StartTimer()
dTime = Now + TimeValue(TempoVerifica)
Application.OnTime dTime, "Verifica", , True
End Function
Function Verifica()
TempoInativo = TempoInativo + 1
If TempoInativo >= Timeout Then
Application.StatusBar = False
ThisWorkbook.Close SaveSheet
End If
dTime = Now + TimeValue(TempoVerifica)
Application.OnTime dTime, "Verifica", , True
End Function
Function StopTimer()
Application.StatusBar = False
Application.OnTime dTime, "Verifica", , False
End Function
Estou usando o código abaixo para fechar as plan por inatividade, eu gostaria tbém de fechar os userform...mas não consigo...valeu pela atenção...
Private Sub Workbook_Open()
UserForm1.Show
SaveSheet = True 'Defina True para Salvar a planilha ao Fechar ou False para não salvar
Timeout = 3 'O Tempo de Inatividade é o resultado de TimeOut*TempoVerifica
TempoVerifica = "00:00:05" 'Intervalo de Verificação
StartTimer 'Inicia o Timer(descomentar para funcionar)
End Sub
Private Sub Workbook_Activate()
TempoInativo = 0
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
TempoInativo = 0
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
TempoInativo = 0
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
TempoInativo = 0
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
TempoInativo = 0
End Sub
Global Timeout As Integer
Global SaveSheet As Boolean
Global TempoVerifica As String
Global dTime
Global TempoInativo As Integer
Function StartTimer()
dTime = Now + TimeValue(TempoVerifica)
Application.OnTime dTime, "Verifica", , True
End Function
Function Verifica()
TempoInativo = TempoInativo + 1
If TempoInativo >= Timeout Then
Application.StatusBar = False
ThisWorkbook.Close SaveSheet
End If
dTime = Now + TimeValue(TempoVerifica)
Application.OnTime dTime, "Verifica", , True
End Function
Function StopTimer()
Application.StatusBar = False
Application.OnTime dTime, "Verifica", , False
End Function