Frage stellen

msalsinha's Profil - Aktivität

2017-12-20 02:10:08 +0100 verliehene Abzeichen  Elementare Frage (Quelle)
2017-11-21 14:26:06 +0100 verliehene Abzeichen  Bemerkenswerte Frage (Quelle)
2017-08-31 17:30:30 +0100 verliehene Abzeichen  Bemerkenswerte Frage (Quelle)
2017-03-14 19:07:55 +0100 verliehene Abzeichen  populäre Frage (Quelle)
2017-03-14 06:01:31 +0100 verliehene Abzeichen  Bemerkenswerte Frage (Quelle)
2017-03-14 00:29:33 +0100 Beantwortete Frage BLOQUEAR ACESSO A FOLHA(planilha)

Já encontrei algo muito próximo do que pretendo e já editei algumas partes, infelizmente fiquei bloqueado em duas partes: na verificação da palavra passe e no envio de volta para a folha1 se for colocada a palavra passe errada.


sub PASSWORD

  ' Criar o diálogo
  oDialog = CreateUnoService("com.sun.star.awt.UnoControlDialog")
  oDialogModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
  oDialogModel.setPropertyValues( _
    Array("Height","PositionX","PositionY","Title","Width"), _
    Array(50,200,150,"Insira a sua senha",100))
  oDialog.setModel(oDialogModel)

  ' Criar a caixa de texto (oEditModel) que receberá a senha.
  oEditModel = oDialogModel.createInstance("com.sun.star.awt.UnoControlEditModel")
  oEditModel.setPropertyValues( _
    Array("EchoChar","Height","PositionX","PositionY","Width"), _
    Array(asc("*"),15,5,5,90) )
  oEditModel.EchoChar = asc("*")
  oDialogModel.insertByName("PasswordEdit",oEditModel)

  ' Criar o botão "Cancelar" e o botão "Ok"
  oOKButton = oDialogModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
  oOKButton.setPropertyValues( _
    Array("DefaultButton","Height","Label","PositionX","PositionY","PushButtonType","Width"), _
    Array(True,15,"~OK",55,25,1,40))
  oDialogModel.insertByName("OkButton",oOKButton)
  oCancelButton = oDialogModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
  oCancelButton.setPropertyValues( _
    Array("Height","Label","PositionX","PositionY","PushButtonType","Width"), _
    Array(15,"~Cancelar",5,25,2,40))
  oDialogModel.insertByName("CancelButton",oCancelButton)

  oSheet = ThisComponent.Sheets.getByName("folha1")

  ' Exibir o diálogo
  oDialog.setVisible(True)
  If oDialog.execute() = 1 Then

  MsgBox "SENHA ACEITE",48,"ATENÇÃO!"

else

  MsgBox "SENHA INVÁLIDA",48,"ATENÇÃO!"

GoTo

  oSheet

End If

End Sub

2017-03-14 00:24:11 +0100 verliehene Abzeichen  Unterstützer (Quelle)
2017-03-14 00:23:09 +0100 Beantwortete Frage Protect sheet with password

I find something very close to what I want. I already edit something but I'm block e two situations: in password verification and send back to sheet1 if password is wrong.



sub PASSWORD

  ' Criar o diálogo
  oDialog = CreateUnoService("com.sun.star.awt.UnoControlDialog")
  oDialogModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
  oDialogModel.setPropertyValues( _
    Array("Height","PositionX","PositionY","Title","Width"), _
    Array(50,200,150,"Insira a sua senha",100))
  oDialog.setModel(oDialogModel)

  ' Criar a caixa de texto (oEditModel) que receberá a senha.
  oEditModel = oDialogModel.createInstance("com.sun.star.awt.UnoControlEditModel")
  oEditModel.setPropertyValues( _
    Array("EchoChar","Height","PositionX","PositionY","Width"), _
    Array(asc("*"),15,5,5,90) )
  oEditModel.EchoChar = asc("*")
  oDialogModel.insertByName("PasswordEdit",oEditModel)

  ' Criar o botão "Cancelar" e o botão "Ok"
  oOKButton = oDialogModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
  oOKButton.setPropertyValues( _
    Array("DefaultButton","Height","Label","PositionX","PositionY","PushButtonType","Width"), _
    Array(True,15,"~OK",55,25,1,40))
  oDialogModel.insertByName("OkButton",oOKButton)
  oCancelButton = oDialogModel.createInstance("com.sun.star.awt.UnoControlButtonModel")
  oCancelButton.setPropertyValues( _
    Array("Height","Label","PositionX","PositionY","PushButtonType","Width"), _
    Array(15,"~Cancelar",5,25,2,40))
  oDialogModel.insertByName("CancelButton",oCancelButton)

  oSheet = ThisComponent.Sheets.getByName("sheet1")


  oDialog.setVisible(True)
  If oDialog.execute() = 1 Then AND 'I can't make password verification in here'

  MsgBox "PASSWORD ACCEPT",48,"ATENTION!"

else

  MsgBox "INVALID PASSWORD",48,"ATENTION!"

GoTo

  oSheet  'In here a need to send back to sheet1 if password is invalid'

End If

End Sub

2017-03-14 00:00:13 +0100 verliehene Abzeichen  Enthusiast
2017-03-12 19:52:15 +0100 Kommentierte Antwort Protect sheet with password

I intent to create a document with two sheet that ill be used by many people. In sheet1 I want insert some kind of form to people fill in and in sheet2 I want to insert some configuration commands(combo box and list box whit macro association), this commands I want restrict access only to people that know what are doing, without destroying anything important. I don't need high security level, because a don't need to hide nothing I only want avoid document destruction.

2017-03-12 19:37:58 +0100 Kommentierte Frage BLOQUEAR ACESSO A FOLHA(planilha)

Eu ainda não construí nada de concreto, mas o que pretendo construir é uma folha com um formulário(folha1) e outra folha com configurações(folha2), onde apenas quem tiver permissão possa aceder e editar. Na intenção deste documento ser utilizado por várias pessoas e qualquer pessoa poder aceder à folha1 mas na folha2 que terá comandos de configuração apenas aceder quem tenha conhecimentos suficientes para editar sem destruir nada de importante.

2017-03-12 19:37:29 +0100 Beantwortete Frage BLOQUEAR ACESSO A FOLHA(planilha)

Eu ainda não construí nada de concreto, mas o que pretendo construir é uma folha com um formulário(folha1) e outra folha com configurações(folha2), onde apenas quem tiver permissão possa aceder e editar. Na intenção deste documento ser utilizado por várias pessoas e qualquer pessoa poder aceder à folha1 mas na folha2 que terá comandos de configuração apenas aceder quem tenha conhecimentos suficientes para editar sem destruir nada de importante.

2017-03-12 00:35:36 +0100 Kommentierte Antwort Protect sheet with password

Unfortunately that solution don't work for me. I need sheet2 stay visible, but if someone click on it appears some type of block, preferred lock access and only unlock only by introduce password.

2017-03-12 00:02:04 +0100 Kommentierte Frage BLOQUEAR ACESSO A FOLHA(planilha)

Arquivo do calc!

2017-03-11 13:19:12 +0100 verliehene Abzeichen  populäre Frage (Quelle)
2017-03-11 12:04:16 +0100 Kommentierte Antwort Protect sheet with password

Thanks for your answer, but what a pretend is avoid open that sheet, not only protect sheet edition! Or in last resource, block edition for forms control like combo box or list box.

2017-03-11 10:14:28 +0100 Gestellte Frage BLOQUEAR ACESSO A FOLHA(planilha)

Olá

Precisava de bloquear o acesso a uma determinada folha(planilha).

Ex.:Abrimos um documento do calc na folha1 e se tentarmos abrir a folha2 somos bloqueados no acesso com uma password.

Alguém pode me ajudar? Obrigado

2017-03-11 10:08:16 +0100 Gestellte Frage Protect sheet with password

I need to block total access to a sheet.

Ex. Open calc document in sheet1 and if someone try to change to sheet2 block access with password.

Can someone help me?

Sorry for my poor English.

2016-11-11 02:39:37 +0100 verliehene Abzeichen  populäre Frage (Quelle)
2016-11-10 18:39:28 +0100 verliehene Abzeichen  Fragen (Quelle)
2016-11-09 19:46:35 +0100 verliehene Abzeichen  Schüler (Quelle)
2016-11-09 14:38:38 +0100 Kommentierte Antwort INTRODUZIR DATA ACTUAL SE MODIFICAR CÉLULA

Obrigado pela sugestão, mas criando formulário não será compatível com a folha de calculo que pretendo criar.

2016-11-09 10:14:50 +0100 Gestellte Frage INTRODUZIR DATA ACTUAL SE MODIFICAR CÉLULA

Olá

Pretendia criar uma função ou uma macro que sempre que modificar a uma determinada célula com um determinado conteudo ela marque a data de hoje sem que volte actualizar a não ser se voltar a modificar o conteudo da célula.

Obrigado

2016-10-26 10:49:12 +0100 verliehene Abzeichen  Bemerkenswerte Frage (Quelle)
2016-10-20 16:52:17 +0100 verliehene Abzeichen  populäre Frage (Quelle)
2016-10-19 23:12:12 +0100 Beantwortete Frage Macro que evite guardar documento

Só tem problema com essa solução, é que pretendo editar o ficheiro e que no final quando o fechar ele fique igual!

2016-10-19 14:44:50 +0100 Gestellte Frage Macro que evite guardar documento

Olá

Solicitava a vossa ajuda para saber se existe uma macro capaz de evitar guardar um documento.

Ex.: Se alguém ao fechar o documento clicar em guardar apareça uma mensagem a dizer:"Feche sem guardar!" e evite guardar o documento.

2016-10-19 14:40:06 +0100 Gestellte Frage Criar Função IF

Olá! Sou novo por aqui, e tenho uma dificuldade com um macro que gostaria que me ajudassem.

Precisava de criar uma função que fizesse funcionar a seguinte condição:

If "DADOS.09" > 0 AND "DADOS.G31" = 2 AND "DADOS.I37" > 1 Then
  MsgBox "PORTAS TIPO P1 NÃO TEM 2º ACABAMENTO(OPÇÃO 2)",48,"ATENÇÃO!"
  Exit Sub
End If

Obrigado