EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
andre,
porque não utilizas a propria planilha, na coluna onde tens os links, para conter as imagens? se assim o fizeres, torna-se muito mais simples obter o que pretendes.
wagner,
se utilizares a 2ª opção, não te esqueças de colocar o código application.displayalerts=false no módulo de saída do workbook, para não te aparecer a mensagem se queres guardar antes de sair…
wagner,
há uns tempos atrás, o mvp dave peterson, respondeu assim:
if you save the file to a folder that the users only have readonly access
rights, then they’ll only be able to open the file in readonly mode–and won’t
be prompted.if you use windows explorer to modify the attributes to be readonly, then excel
will respect this setting, too. the user won’t be prompted and the file will
open in readonly mode.julgo que será, talvez, a melhor solução.
wagner,
não testei, mas acho que se este código não dá, talvez seja um pouco dificil conseguir código que te resolva o problema. no entanto, vou continuar a pesquisar, ok?
fica bem.
o que vi acerca deste assunto:
sub workbook_open()
application.displayalerts=false
application.ontime now + timevalue(“0:00:20”), “turnmeon”
end sub
sub workbook_close()
‘just in case it didn’t get turned back on
call turnmeonend sub
sub turnmeon()
application.displayalerts=true
end sub
experimenta e diz qq coisa, ok?
jk…,
vê o seguinte exemplo e adapta, ok?
‘—————————————————————————————
‘ module : userform1
‘ datetime : 05-07-2012 17:30
‘ author : jorge rodrigues
‘ purpose : este módulo tem por finalidade criar registos
‘—————————————————————————————‘—————————————————————————————
‘ procedure : commandbutton1_click
‘ datetime : 05-07-2012 17:30
‘ author : jorge rodrigues
‘ purpose : adiciona registos e limpa o formulário antes de adicionar novo registo.
‘—————————————————————————————
‘
private sub commandbutton1_click()dim intnext as integer
dim c as control
dim numero as integerworksheets(“inscritos”).select
intnext = range(“aa1”) + 2
numero = intnext
codtipodoc.setfocusfor each c in me.controls
if typename(c) = “textbox” or typename(c) = “combobox” then
if c.value = “” then
msgbox “por favor, preencha todos os campos!”
c.setfocus
exit sub
end if
end if
nextrange(“a” & intnext) = numero – 1
range(“b” & intnext) = codtipodoc.value
range(“c” & intnext) = numeroid.value
range(“d” & intnext) = apelido.value
range(“e” & intnext) = nome.value
range(“f” & intnext) = condiesp.valuecodtipodoc = “”
numeroid = “”
apelido = “”
nome = “”
condiesp = “”codtipodoc.setfocus
end sub‘—————————————————————————————
‘ procedure : commandbutton2_click
‘ datetime : 05-07-2012 17:30
‘ author : jorge rodrigues
‘ purpose : cancela a adição de um registo ou sai do formulário
‘—————————————————————————————
‘
private sub commandbutton2_click()
unload me
sheets(1).selectend sub
anexa o ficheiro aqui, mas zipado, porque não é possível receber no formato xlsm. no 4shared, dá-me sempre erro de id ou password e, por isso, não consigo efectuar o download.
vbj,
pode ser que te ajude.
andre,
não consigo efectuar o download do ficheiro:
coloquei o id que deste e a password, mas a resposta é esta:
invalid e-mail address or password
andre,
envio-te, em anexo, uma planilha como exemplo, a qual contém código que poderás adaptar para os fins que pretendes. ao abrir o formulário, aparece um frm que contém um botão de comando de pesquisa (consulta) e que, depois de ser acedido, pesquisa por nome, apelido ou nome completo. de seguida, dá a hipótese de editar no formulário inicial e guardar.
fica bem e dp diz qq coisa, ok? 🙂
Teste-Cpia.xlswagner,
experimenta assim:
sub abrir_pasta()
dim sha as string
sha = sheets(“plan1”).range(“a3”).textshell “explorer.exe” & ” ” & sha, vbnormalfocus
end sub
tem que haver um espaço entre o comando dp programa a executar (explorer) e o caminho onde tens o ficheiro.
podes ver e depois dizer qq coisa?
fica bem.
