planilha abre sozinha

[Marcos113]

Tenho uma planilha onde, tenho uma celula que contém a função "AGORA", e coloquei esse código para que se auto actualize

Sub Atualiza()
Downtime = Now + TimeValue("00:00:01")
Application.OnTime Downtime, "Atualiza"
Calculate
End Sub

Porém quando fecho a planilha ela abre sozinha de novo ápos um segunda varias e varias vezes, preciso de ajuda para fazer com que isso pare, nao consigo resolver.

[Patropi]

Boa noite Marcos

 

Para resolver isso, tente o seguinte:

 

Em esta Pasta de Trabalha --> copie e cole o código abaixo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Auto_Close
End Sub

No módulo Substitua o teu código, por estes abaixo:

Sub Auto_Open()
Atualiza
End Sub
Sub Atualiza()
DonTime = Nown + TimeValue("00:00:01")
Application.OnTime DownTime, "Atualiza"
Calculate
End Sub
Sub Auto_Close()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="Atualizar"
End Sub

Não se esqueça de clicar em curtir.

 

[]s

[Marcos113]

Bom dia Patropi fiz como disse porém quando executei a macro apareceu a mensagem em anexo.

 

Apenas mudei o nome para o Atualiza, minha pasta de móduloa esta assim:

 

Public Downtime As Date
Public bye As Boolean
Sub SalvamentoProgramado()
    If Application.ThisWorkbook.Saved = False Then
        Application.ThisWorkbook.Save
    End If
End Sub
Sub Auto_Open()
Call Atualiza
End Sub
Sub Atualiza()
Downtime = Now + TimeValue("00:00:01")
Application.OnTime Downtime, "Atualiza"
Calculate
End Sub
Sub Auto_Close()
On Error Resume Next
Application.OnTime EarliestTime:=Downtime, Procedure:="Atualiza"
End Sub
Sub Montagem()
 Plan3.Visible = xlSheetHidden
  Plan4.Visible = xlSheetHidden
   Plan5.Visible = xlSheetHidden
    Plan6.Visible = xlSheetVisible
       Plan1.Visible = xlSheetHidden
       Plan2.Visible = xlSheetVisible
       Plan6.Activate
          Application.ScreenUpdating = True
End Sub
Sub Injetora()
 Plan3.Visible = xlSheetHidden
  Plan4.Visible = xlSheetHidden
   Plan5.Visible = xlSheetHidden
    Plan6.Visible = xlSheetVisible
       Plan1.Visible = xlSheetHidden
       Plan2.Visible = xlSheetVisible
       Plan2.Activate
       Application.ScreenUpdating = True
    
End Sub

E esta pasta de trabalho :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim wsHist As Worksheet, Rng As Range
    Set wsHist = Sheets("BD")
    If Sh Is wsHist Then Exit Sub
    Set Rng = wsHist.Range("A" & Rows.Count).End(xlUp).Offset(1)
    With Rng
        .Value = Date
        .Offset(, 1) = Time
        .Offset(, 2) = Target.Address
         If Target.Cells.Count > 1 Then
            .Offset(, 3) = Value
        Else
            .Offset(, 3) = Target.Value
        End If
    End With
End Sub
Private Sub Workbook_Open()
Call Auto_Open
 Plan3.Visible = xlSheetHidden
  Plan4.Visible = xlSheetHidden
   Plan5.Visible = xlSheetHidden
    Plan6.Visible = xlSheetHidden
       Plan1.Visible = xlSheetHidden
       Plan2.Visible = xlSheetVisible
       Plan2.Activate
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Auto_Close
End Sub

o primeiro codigo é para quando uma celula se altere ele armazene nessa planilha nomeada de "BD", a linha que sempre muda é o status da maquina que é uma lista suspensa, abaixo dela tem uma função "AGORA" travada por macro para atualizar apenas quando uma determina mudra o codio é o seguinte :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Address = "$B$3" Then
    Application.EnableEvents = False
    Target.Offset(1, 0).Value = Date
    Target.Offset(2, 0).Value = Time
    Application.EnableEvents = True
End If

Ai está B3 mas são quase 80 desses, se pudesse me ajudar a melhorar essa banco de dados, por que nao consigo comprar a maquina que parou e quando voltou a produzir, mas isso caso possa ajudar, baixei algumas apostilas e estou tentando desevolver, desde já agradeço imensamente sua ajuda !!! afinal o meu proposito também é aprender !

adicionado 7 minutos depois

Segue a planilha

Planilha.zip