Boa tarde. Edson, grato por seu retorno.Talvez eu tenha sido um pouco sucinto na informação, causando a impressão que simplesmente bloquear e proteg...

Obrigado @Osvaldo, serviu bem, só acrescentei a linha "ActiveCell.Offset(-1, 0).Activate", pois ao clicar no "Enter" a célula ativa passava a ser a pr...

Supondo que você vai usar um botão para acionar o evento, faz assim: Private Sub CommandButton1_Click() Workbooks.OpenText Filename:="...

Não entendi, o calendário já esta no arquivo que você postou.

Oi, a imagem esta associada ao item da list, você deseja avançar no item da list com esses botões ou somente a imagem? Tente anexar uma cópia de sua ...

Veja esse código e adapte ao seu projeto. Sub AplicandoBordas_V02() 'Define o intervalo cujas bordas serão formatadas Set rg = ActiveSheet....

Ok, veja se assim resolve. Coloque os dois arquivos em uma pasta e mande descompactar a part1.

Estacio da uma olhada nesse link, mas de qualquer forma precisa ter o caminho da foto para poder salvar. http://www.planilhando.com�...

Qual o erro?

Olha nesse post que tem a solução completa: http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=28715#p143144

coloca no Workbook: Private Sub Workbook_Open() Libera_Restrito = 0 End Sub

Veja se assim atende o proposto

Oi marciarv, nesse caso é melhor usar outro código que é mais completo e te possibilita mais opções, veja o exemplo