CasaDoHardware

Entre no VBA Alt + F11 Ferramentas > Propriedades de VBA Project > Proteção Marque Bloquear projeto para exibição. Escolha uma senha.

disponibiize o arquivo com dados de exemplo mostrando o resultado esperado

Em resumo do que o Osvaldo perguntou Toque A1 pela celula da validação E sim pela a condição desjada if range("A1).value = "Sim" Then Sua instrução End If

Como eu disse Sub MostraCaixasubstituir() Application.Dialogs(xlDialogFormulaReplace).Show End Sub Ou seja Trocar find por replace

Pesquise por somarproduto

Senha no VBA Serve assim Senha 1234 teste senha.xlsm

E so trocar na macro onde esta find por replace..

Vamos la bloquear o acesso ao VBA é relativamente simples basta colocar senha no projeto. Mas como costumo dizer isso é o mesmo que trancar a porta colocar a chave embaixo do tapete, e pra ajudar colocar um cartaz na porta "Chave embaixo do tapete". Ou seja de nada adianta. Qualquer pessoa com o um pouco de conhecimento abre o projeto. Agora qto a abrir a aba usuario com senha é simples bastar criar um formulário com uma textbox para digitar a senha e exibir a aba usuario. A titulo didatico, vai ser necessário ajustar o codigo, esse exemplo mostra como exibir uma determinada aba de acordo com o usuario, sei que nao é o que você pretende mas o principio do codigo é o mesmo. O usuario admim mostra todas as guias do arquivo a senha é admim O demais usuarios exibem apenas as suas respectivas abas. Usuario marcelo senha marcelo Usuario luiz senha luiz. Veja o exemplo e faça as adaptações para a sua necessidade. Abrir Guia.xlsm

então crie o formulario com as informaçoes que você precisa carregar e quais as celulas que precisa carregar no formulario. O codigo pra carregar os dados basicamente é algo assim textbox1.value = cells(1,1).value Neste exemplo a informação da celula a1 vai ser carregada no textbox1

Envie o arquivo por MP com informações da senha, são numeros, letras, letras e numeros, maiusculas, minusculas, enfim tudo que puder ajudar a resolver a questao da senha. A senha de abertura é um tanto complicada então qto mais informações tiver melhor. Qual o assunto da planilha.

Da proxima vez envie no topico assim mais pessoas tem a oportunidade de ajudar. Essa copia sera feita apenas uma vez no dia? Ela vai receber dados de forma desordenada??? O ideal seria ter uma organização por linha DATA EMPRESA VALOR Hoje você tem 8 empresas se esse numero aumentar a macro vai precisar ser modificada toda vez que você inserir ou excluir uma empresa, da forma que informei a macro é permanente se você nao inserir mais colunas de dados. Para visualizar os dados de determinada empresa basta usar auto filtro. Ou se for o caso uma macro que filtre esses resultados conforme a sua necessidade. Observei na planilha a coluna A uma celula sem a DATA mas com valores, isso de fato ocorre ou foi apenas um erro.

Onde esta e quais os dados devem ser carregados..

Isso é apenas estético ou tem alguma outra razão? porque tudo que você pode fazer nessa tela você faz na que enviei o comando .... E a não ser estético não faz nenhuma diferença.

você pediu o codigo para visualizar impressão e é isso que o codigo faz. O que você disse agora que precisa da caixa de dialogo de impressão Isso o Ctrl + P ja resolve para você No entanto se quiser fazer isso por codigo Sub imprimir() Application.Dialogs(xlDialogPrint).Show End Sub Se isso nao atender poste um exemplo manual do que você quer que aconteça.. No seu caso que janela você quer que apareça.

Disponibilize o arquivo com dados de exemplo e com o resultado esperado que fique fácil

Se você disponibilizar seu arquivo com a macro e explicar o que ele faz, fica mais fácil ajudar.

Ve se isso ajuda EDUCAÇÃO INFANTIL - Planilha dados isncriçãomacro.xls

Cole o codigo que citei acima antes da instrução de colagem na 3ª planilha

Disponibilize os dois arquivos. Com dados de exemplo

A instrução que pula uma linha e essa: 'Seleciona a ultima linha preenchida range("A1048576").end(Xlup).select 'Pula para a linha de baixo. activecell.offset(1,0).select

O que o codigo nao esta fazendo que deveria fazer?

Nao entendi a parte que você diz ter um codigo que faz o que você quer mas nao serve Como você nao colocou nenhum codigo, teste esse Sub Visualizar() Sheets("Plan1").printpreview End Sub

Se nenhuma das duas opções funcionam pra você, desculpe mas nao tem solução.

Tente assim De dois cliques na textbox1 Cole esse codigo Private Sub TextBox1_Change() TextBox2.Value = TextBox1.Value End Sub

Eu importaria para o Acess que nao tem limite de registro.... Embora um pouco mais trabalhoso é possivel fazer o mesmo que se faz em excel