• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

jnabais

Excel 2003 e Excel 2007

7 mensagens neste tópico

Boa noite

Gostaria de saber de é possível e também como se faz para que um ficheiro criado com Excel 2003 não seja aberto pelo Excel 2007.

Obrigado

P.S. Sou novato no Forum...mas não posso deixar de manifestar o meu agrado pelos temas abordados. Parabéns.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Como assim ... uma versão superior consegue sempre abrir uma versão inferior.

O que querias fazer ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá e Boa Noite

Obrigado pela prontidão...

Não queria fazer nada de especial, mas era uma dúvida na qual andava a "matutar" e até pensava que seria possível com VBA através de uma macro de abertura que  ao detectar o 2007 fizesse um "Application.Quit"...

Thanks

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tu podes fazer isso mas não é nada seguro.

Application.Version dá-te a versão do Excel, em que 11.0 é a do Excel 2003.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá novamente

Obrigado pela dica. Assunto encerrado.

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Private Sub Workbook_Open()

Application.ScreenUpdating = False

Application.EnableCancelKey = xlDisabled

Dim RECEBE_VERSAO As Integer

Dim VERSAO_ATUAL As String

RECEBE_VERSAO = Application.Version

If Len(RECEBE_VERSAO) = 3 Then

  RECEBE_VERSAO = Left(RECEBE_VERSAO, 1)

Else

  RECEBE_VERSAO = Left(RECEBE_VERSAO, 2)

End If

If RECEBE_VERSAO = 12 Then

  VERSAO_ATUAL = "Excel 2007"

ElseIf RECEBE_VERSAO = 10 Then

  VERSAO_ATUAL = "Excel XP"

ElseIf RECEBE_VERSAO = 9 Then

  VERSAO_ATUAL = "Excel 2000"

ElseIf RECEBE_VERSAO < 9 Then

  VERSAO_ATUAL = "muita antiga!"

End If

If Val(Application.Version) <> 11 Then

  MsgBox ("Esse programa foi feito para ser executado no Excel 2003,") _

  & Chr(13) & Chr(13) & _

  ("e a sua versão é ") & VERSAO_ATUAL _

  & Chr(13) & Chr(13) & _

  ("O programa será fechado!"), (vbOKOnly), ("PAULO SEMBLANO")

  Application.ScreenUpdating = True

  ThisWorkbook.Close SaveChanges:=False

End If

Application.ScreenUpdating = True

End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora