Ir ao conteúdo

Posts recomendados

Postado

Boa tarde galera, sou novo no fórum e estou iniciando em macros no excel, criei a seguinte macro para criar uma ferramenta de timesheet:

 

Sub StartClock()
ActiveSheet.Unprotect Password:="douglasps"
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.ZOrder msoSendToBack
Range("I8").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("I8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect Password:="douglasps"
Go = True
MyClock
ActiveWorkbook.Save
Range("H7").Select
End Sub

Sub MyClock()
If Go Then
ActiveSheet.Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "MyClock"
End If
End Sub

Sub StopClock()
ActiveSheet.Unprotect Password:="douglasps"
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.ZOrder msoBringToFront
Range("A1").Select
Go = False
ActiveSheet.Protect Password:="douglasps"
ActiveWorkbook.Save
Range("H7").Select
End Sub

 

A ferramenta funciona perfeitamente, o unico problema é que ela intefere em qualquer outra planilha que eu abrir... 

Alguém consegue me ajudar com isso?

Tks

 

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!