Re: [pt-br-usuarios] Erro no Broffice 3.3

Bom dia,

Verifique:
Ferramentas > Opções > BrOffice  > Geral > Ativar recursos experimentais
(instáveis)

Deve estar habilitado. Essa opção vem desabilitada por padrão.

Abraço.


Em 26 de maio de 2011 08:01, Marcio <ti.sistemas@copam.com.br> escreveu:

> Sim, está no nível médio.
>
> Em 26/05/2011 07:43, rogerio dandrea escreveu:
>
>  Já verificou a segurançade macro?
> > ferramentas>opções>segurança>segurança de macro
> >
> > 2011/5/26 Marcio<ti.sistemas@copam.com.br>
> >
> >  Bom dia,
> > > Após atualizar o BrOffice da versão 3.2 para a versão 3.3 as macros
> > > pararam
> > > de funcionar.
> > >
> > > Segue tela do erro:
> > >
> > >
> > >
> > > Segue a macro:
> > >
> > > REM  *****  BASIC  *****
> > >
> > > sub VW
> > > dim resultfound as new  com.sun.star.sheet.GoalResult '(divergence,result
> > > structure)
> > > dim formula_address as new  com.sun.star.table.CellAddress
> > >  '(sheet,column,
> > > Row structure)
> > > dim variable_address as new  com.sun.star.table.CellAddress
> > > dim targetresult as string  'goal value sought as STRING
> > > Dim oDoc as object
> > > Dim oSheet as object
> > > dim cell as object
> > > Dim oCell1 as object
> > >
> > > oDoc=thiscomponent
> > > oSheet = oDoc.Sheets.getByName("Planilha1")
> > > 'set location of formula to be evaluated to give goal value
> > > formula_address.sheet = 0  'index values - zero based
> > > formula_address.Column = 15
> > > formula_address.Row = 67
> > > ' set location of variable to be changed
> > > variable_address.sheet = 0
> > > variable_address.Column = 15
> > > variable_address.Row = 62
> > > ' set goal value
> > > oCell1 = oSheet.getCellByPosition(19,62)
> > > targetresult = oCell1.Value
> > >
> > > ' run goalseek
> > > resultfound =
> > > oDoc.seekgoal(formula_address,variable_address,targetresult)
> > > ' do something with result
> > > 'msgbox resultfound.result
> > > cell = oSheet.getCellByPosition(15,62)
> > > cell.Value = resultfound.result
> > >
> > > 'Data 1
> > > formula_address.sheet = 0  'index values - zero based
> > > formula_address.Column = 12
> > > formula_address.Row = 67
> > > ' set location of variable to be changed
> > > variable_address.sheet = 0
> > > variable_address.Column = 12
> > > variable_address.Row = 62
> > > ' set goal value
> > > oCell1 = oSheet.getCellByPosition(19,61)
> > > targetresult = oCell1.Value
> > >
> > > ' run goalseek
> > > resultfound =
> > > oDoc.seekgoal(formula_address,variable_address,targetresult)
> > > ' do something with result
> > > 'msgbox resultfound.result
> > > cell = oSheet.getCellByPosition(12,62)
> > > cell.Value = resultfound.result
> > >
> > > end sub
> > >
> > > O que fazer para resolver este problema.
> > >
> > > --
> > > Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
> > > # Informações sobre os comandos disponíveis (em inglês):
> > >  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
> > > # Cancelar sua assinatura: mande e-mail vazio para:
> > >  usuarios+unsubscribe@pt-br.libreoffice.org
> > > # Arquivo de mensagens:
> > > http://listarchives.libreoffice.org/pt-br/usuarios/
> --
> Atenciosamente,
>
>
>  A U T O  P E Ç A S
>
> Márcio S. Mendonça | Analista Desenvolvimento de Sistemas
>
> Tecnologia da Informação | Rodovia Índio Tibiriçá, km 48,5 , 2061- Bairro
> Roncon
> 09431-600 - Ribeirão Pires - SP - Brasil
>
> Tel+55 11 2808-7350 | Fax+55 11 2808-7382 | www.copam.com.br
>
> --
> Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
> # Informações sobre os comandos disponíveis (em inglês):
>  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
> # Cancelar sua assinatura: mande e-mail vazio para:
>  usuarios+unsubscribe@pt-br.libreoffice.org
> # Arquivo de mensagens:
> http://listarchives.libreoffice.org/pt-br/usuarios/


-- 
Paulo de Souza Lima
Técnico em Eletrônica e Administrador
http://www.pasl.net.br
http://almalivre.wordpress.com
Curitiba - PR
Linux User #432358
Ubuntu User #28729

-- 
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/