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

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/