Gabriel.Rizzatto

Agradecido, funcionou perfeitamente!

pela tabulação eu testei aqui porém ele sempre ficar executando somente a formulário user e senha nunca dar um entrar no botão

Olá eu tenho um formulário de login e queria fazer que quando eu apertar a tecla " enter" ele executar o próximo passo no caso ele executar o botão entrar do login. Alguém poderia me ajudar??????

up??

Consegui o ?

Realmente !

antes de tirar os adesivos com esse cromado, passe o dedo com a unha forçando bem se realçar um circulo quer dizer que uma parafuso para fazer a retirada, veja também em baixo das borracha de apoio do notebook, acho que só depois ele meio ruim mesmo para retirar parece que ira quebrar utilize algo como uma espatula e vai abrindo, com cuidado pois pode danificar a estrutura do notebook e acabando não fechando mais um dos parafusos. Com segui o abrir°??

Caso não consiga volte aqui, por favor vou tentar ajudar o máximo!

Quer utilizar um notebook para trabalho ou jogos , caso jogos procure sobre notebook da razer ou alienware, melhores opções no mercado sem reclamações já tive os dois!, caso for para trabalho Del é uma ótima opção porém se for parar pra pensar mt dinheiro para um notebook eu compraria uma Mac adicionado 0 minutos depois Mas acho que não irá se arrepender sobre esse que mostrou ! adicionado 0 minutos depois Excelente também adicionado 2 minutos depois Posso dizer que se comprar um Macbook, um i5 nunca irá se arrepender mas para jogos não recomendo, é mt bom para trabalho!

Retire a memoria e ligue, depois teste com os demais componentes, caso não ligue mande um vídeo para entender melhor o que ocorre meu querido

Meu querido mande a foto da transei de seu notebook, veja se lembre que a adesivo tampando parafusos para abertura de seu notebook

Roda um Live CD de Linux e observa se o problema continua. Se acontecer no Linux também, é hardware.

Meus queridos o arquivos está corrompido por isso isso acontece, após baixar uma iso da internet verifique se está corrompido o arquivo com um programa chamado Hash que verifica o arquivo baixado. adicionado 1 minuto depois Para entender 64 bits ela é melhor apenas para os computadores que atendam aos seus requisitos da máquina e às aplicações do usuário. Embora limite sua capacidade, a versão 32 bits do Windows suporta um processador 64, mas a versão 64 não funciona com um processador de 32 bits.

Veja completo para entender, veja que as Que gráfico ele só busca somente linha de acordo com nome, isso é que eu quero, porém quando gráfico capturar folga ele da como zero, não como de acordo com texto preenchido na planinha

Atualize os drive, qual windows você trabalha amanda?, entendi provavelmente sua placa-mãe não tem suporte de resolução para estender os monitores, tente o primeiro passo atualize todos os drives.

Como assim me explique melhor?

Tenta inciar no modo de segurança geralmente sequencialmente a tecla F8 . Caso não consiga, tente resetar as configurações da bios e iniciar Não se esqueça se iniciar o modo de segurança, ao entrar coloque de fabrica a configuração de sua placa de vídeo. ou de acordo com os requezitos de seu computador

Opa beleza? então pessoal tirar uma dúvida é possível conectar o gráfico com texto e números exemplo: Olhe no gráfico veja que ele está conectado com os dados da segunda imagem, queria que o gráfico além do valor numero ele emite-se por exemplo folga na quela data que está conectada

Veja: Sub substitute() ' ' substitute Macro ' ' Note: In Excel VBA, in tools -> references: Enable Microsoft Word 12.0 0bject ' Dim FindStr As String Dim ReplaceStr As String Dim path_src As String Dim path_dest As String ' Define word object Dim WA As Object Dim cs As Worksheet Dim Idx As Integer ' Data worksheet "Data" col A find text, Col B replace text Set cs = ActiveWorkbook.Worksheets("Data") Set WA = CreateObject("Word.Application") WA.Visible = True path_src = "C:\Temp\data.docx" path_dest = "C:\Temp\data_out.docx" WA.documents.Open (path_src) ' Set word object active WA.Activate ' Optional, use Idx to limit loop iterations Idx = 1 Do While ((Len(cs.Cells(Idx, 1).Value) > 1) And (Idx < 100)) ' FindStr = cs.Cells(Idx, 1).Value ReplaceStr = cs.Cells(Idx, 2).Value With WA .Selection.HomeKey Unit:=wdStory .Selection.Find.ClearFormatting .Selection.Find.Replacement.ClearFormatting With .Selection.Find .Text = FindStr .Replacement.Text = ReplaceStr .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With .Selection.Find.Execute Replace:=wdReplaceAll End With Idx = Idx + 1 Loop WA.Application.ActiveDocument.SaveAs path_dest WA.documents.Close Set WA = Nothing End Sub

Faz o seguinte procedimento tente converter para excel novamente, nesse link de acesso: http://cpap.com.br/orlando/ Caso Consiga converter o arquivo. __________________________ Siga os passo desse site: https://guiadoexcel.com.br/quebrar-senha-de-projetos-vba-excel-vbe-editor/

Veja tenho esses códigos que ligam a "tela cheia e desliga", o problema é o seguinte, quando eu abro outra planilha ele matem a tela cheia, queria ativar somente no mesmo arquivos. E também queria fazer uma forma que ele irá "ligar tela cheia" de acordo com um critérios de usuários exemplos: Por favor alguém me ajude. Usuário Senha Tela admin admin lsDesligarTelaCheia guest 123 lsLigarTelaCheia Códigos ligar e desligar tela: Sub lsLigarTelaCheia() '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 Application.Caption = "Versão 1.0" 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 Sub lsDesligarTelaCheia() 'Reexibe os menus Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'Reexibir a barra de fórmulas Application.DisplayFormulaBar = True 'Reexibir a barra de status, disposta ao final da planilha Application.DisplayStatusBar = True 'Reexibir o cabeçalho da Pasta de trabalho ActiveWindow.DisplayHeadings = True 'Retornar o nome do Excel Application.Caption = "" With ActiveWindow 'Reexibir barra horizontal .DisplayHorizontalScrollBar = True 'Reexibir barra vertical .DisplayVerticalScrollBar = True 'Reexibir guias das planilhas .DisplayWorkbookTabs = True 'Reexibir os títulos de linha e coluna .DisplayHeadings = True 'Reexibir valores zero na planilha .DisplayZeros = True 'Reexibir as linhas de grade da planilha .DisplayGridlines = True End With End Sub Código user form do login Private Sub CommandButton1_Click() Dim rgNomePlans As Range, cél As Range Dim usuario As String, Senha As String 'Verifica se os campos estão preenchidos If txtUsuario = "" Then MsgBox "Preencha o campo usuário!", vbCritical, "Atenção" txtUsuario.SetFocus: Exit Sub ElseIf txtSenha = "" Then MsgBox "Preencha o campo senha!", vbCritical, "Atenção" txtSenha.SetFocus: Exit Sub End If With Sheets("Senha") .AutoFilterMode = False .Range("$A$1").CurrentRegion.AutoFilter Field:=1, Criteria1:="=" & txtUsuario.Text .Range("$A$1").CurrentRegion.AutoFilter Field:=2, Criteria1:="=" & txtSenha.Text Set rgNomePlans = .AutoFilter.Range.Columns(3) End With If rgNomePlans.SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then Set rgNomePlans = rgNomePlans.Offset(1, 0).Resize(rgNomePlans.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible) ActiveWorkbook.Unprotect Password:="123" Unload frmLogin For Each cél In rgNomePlans Sheets(cél.Value).Visible = True Next cél ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False Else MsgBox "Usuário e/ou Nome Incorreto!" 'O auto-filtro resultou vazio End If ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False End Sub