Ir ao conteúdo
  • Cadastre-se
Douglas Souzaps

Rodar macro excel sem atrapalhar o uso de outras planilhas

Recommended Posts

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente referenciar ActiveSheet a Thisworkbook:

 

Ex.:

	With Thisworkbook
	.ActiveSheet....
	.ActiveSheet....
	End With 
	

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×