Ir ao conteúdo
  • Cadastre-se

Joseph2018

Membros Plenos
  • Total de itens

    32
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Caro osvaldomp. A solução do inputbox que você me forneceu atende perfeitamente o que precisava. O caso da substituição dos caracteres da senha por caracteres especiais era apenas um refinamento, mas que é plenamente dispensável, no meu caso. Assim, não é necessário um esforço maior para contemplar esta situação. Gostaria de agradecer imensamente a pronta e competente ajuda que você me deu. Espero contar com você em outras ocasiões. Grande abraço.
  2. Caro osvaldop, bom dia. seguindo sua orientação colei o código abaixo em substituição ao anterior e o segundo código no módulo da planilha "Menu", porém deu "erro em tempo de execução 1004 - Não é possível inserir objeto", na linha em destaque abaixo: Private Sub Workbook_Open() Sheets("Menu").Select Dim oTB As Object Set oTB = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1") With oTB .Left = 300: .Top = 90: .Width = 140: .Height = 25 .Object.BackColor = vbYellow .Object.Font.Size = 12 .Object.TextAlign = 2 .Object.PasswordChar = "@" End With End Sub Diante disso pergunto: 1) como corrigir? 2) Teria como manter o imput box anterior, porém somente substituir os caracteres da senha pelo @? No aguardo, desde já agradeço.
  3. Caro osvaldomp, mais uma vez obrigado. Se não for pedir muito, como colocar uma máscara para que ao invés dos caracteres da senha apareça, por exemplo, ******* ? Como ficaria para a senha Jmps2019? No aguardo, antecipadamente agradeço.
  4. Olá osvaldomp. Novamente obrigado pela resposta. Gostaria de usar a sua sugestão "Uma alternativa seria substituir a MsgBox por InputBox no código que sugeri antes, e na InputBox o usuário deveria inserir uma senha para poder abrir o arquivo no modo edição." apenas para 1 (um) usuário (eu mesmo), porém não sei como fazer. Vou colar abaixo o código que está no evento open da pasta de trabalho (não é macro auto open). Se você puder ajustá-lo para atender a sua sugestão ficaria agradecido: Private Sub Workbook_Open() Sheets("Menu").Select If MsgBox("Deseja abrir para editar?", vbQuestion + vbYesNo + vbDefaultButton2, "Banco da Amazônia - SISMEC") = vbNo Then lsLigarTelaCheia End If End Sub Sub lsLigarTelaCheia() 'Desliga atualização de tela Application.ScreenUpdating = False 'Maximiza o tamanho da tela Application.WindowState = xlMaximized 'Oculta todas as guias de menu Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'Ocultar barra de fórmulas Application.DisplayFormulaBar = False 'Ocultar barra de status, disposta ao final da planilha Application.DisplayStatusBar = False 'Alterar o nome do Excel que queira que apareça na barra de título Application.Caption = "Gerenciamento e Controle de Estoque - Material de Expediente Codificado" With ActiveWindow 'Ocultar barra horizontal .DisplayHorizontalScrollBar = False 'Ocultar barra vertical .DisplayVerticalScrollBar = False ''Ocultar guias das planilhas .DisplayWorkbookTabs = False 'Oculta os títulos de linha e coluna .DisplayHeadings = False 'Oculta valores zero na planilha '.DisplayZeros = False 'Oculta as linhas de grade da planilha '.DisplayGridlines = False End With End Sub
  5. Caro osvaldomp, bom dia. Muito obrigado, funcionou perfeitamente, porém, como não desejaria deixar a opção de editar para qualquer usuário que for abrir o arquivo, gostaria de saber se há alguma combinação de teclas que, pressionadas antes de clicar no atalho do arquivo, consiga diretamente abrir o arquivo para edição, como por exemplo a tecla SHIFT que em versões anteriores do Excel funcionava? No aguardo, antecipadamente agradeço.
  6. Prezados, gostaria de saber se tem como, ao abrir um arquivo Excel que contenha o código a seguir, evitar que o código seja executado e o arquivo abra normalmente, possibilitando que sejam feitas alterações. Por exemplo, antes ao prender a tecla SHIFT e dar dois cliques no arquivo, na área de trabalho, o arquivo abria normalmente, ignorando a macro auto-open. Caso contrário, como poderia ser feito para acessar o arquivo e poder alterá-lo, pois em código semelhante, ao sair o ambiente é restaurado, mas não permitiria o acesso para alterações. No aguardo, agradeço. Exemplo do código de entrada que, em alguma ocasiões, gostaria de evitar para acessar o arquivo normalmente: ub lsLigarTelaCheia() 'Desliga atualização de tela Application.ScreenUpdating = False 'Maximiza o tamanho da tela Application.WindowState = xlMaximized 'Oculta todas as guias de menu Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'Ocultar barra de fórmulas Application.DisplayFormulaBar = False 'Ocultar barra de status, disposta ao final da planilha Application.DisplayStatusBar = False 'Alterar o nome do Excel que queira que apareça na barra de título Application.Caption = "Gerenciamento e Controle de Estoque - Material de Expediente Codificado" With ActiveWindow 'Ocultar barra horizontal .DisplayHorizontalScrollBar = False 'Ocultar barra vertical .DisplayVerticalScrollBar = False ''Ocultar guias das planilhas .DisplayWorkbookTabs = False 'Oculta os títulos de linha e coluna .DisplayHeadings = False 'Oculta valores zero na planilha '.DisplayZeros = False 'Oculta as linhas de grade da planilha '.DisplayGridlines = False End With End Sub
  7. Prezados: favor ajustar a função PROCV do arquivo anexo, para atender ao que está descrito nela. No momento está funcionando para alguns casos, mas não para outros. Não estou conseguindo ajustar. Se possível, devolver a planilha com os ajustes necessários. Desde já agradeço. Erro_PROCV.xlsx
  8. Caro Osvaldomp: "na mosca" meu amigo. Muito obrigado.
  9. Prezados: gostaria de incrementar o código do arquivo anexo, de modo que, ao abrir o arquivo Excel (exemplo também anexo), ficassem visíveis e passíveis de exclusão, somente as planilhas a partir da décima. As demais devem ficar ocultas. Desde já agradeço. Codigo_Exibir_Somente_Planilhas_a_Partir_da_Décima.zip
  10. Prezado Edson: Fantástico. Você é o cara. Tentei entender o código, mas só consegui fazê-lo superficialmente. Funcionou perfeitamente. Certamente conseguirei adaptá-lo a situações futuras. MUITO OBRIGADO!!! adicionado 9 minutos depois Prezado Osvaldo, muito obrigado pela ajuda e encaminhamento da solução. O código fornecido pelo Edson Branco funcionou perfeitamente. Muto obrigado.
  11. Amigo, obrigado pela resposta, porém, gostaria de uma solução em que as datas informadas aparecessem nos locais apropriados (T2 e U2), e no formato de data. Se for apenas 1 campo de data funciona, porém com os 2 campos, somente se feito através dos comandos manuais. No aguardo, agradeço.
  12. Na planilha anexa, quando executo o Filtro Avançado do exemplo, manualmente, funciona perfeitamente. Porém, quando gravo uma macro com os mesmos passos e atrelo ao botão "Consultar" deixa de funcionar. Poderia me ajudar. Filtro_Avancado_Macro.zip
  13. Obrigado amigo. Fiz as adaptações e funcionou legal. Muito obrigado.
  14. Amigo, tem uma solução para minha solicitação acima, ou seja, o que devo inserir em uma cédula qualquer, para que retorne o número da linha correspondente à última célula preenchida da coluna A da planilha MOV_ME? Desde já agradeço.
  15. Não amigo, eu gostaria que fosse identificado o número da linha correspondente à ultima célula preenchida da coluna A. Esta planilha é dinâmica e o número de registros vai aumentando a todo instante. Por isso gostaria de visualizar o número da linha em correspondente à última célula da coluna A, que esteja preenchida. Obrigado pela sugestão do youtube.

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

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!