ok o codigo ficou assim simples : On Error GoTo Trata_Erro Mail.Send MsgBox "Orçamento Enviado com Sucesso!!!" ...

Então foi o que eu disse... Pasta de trabalho protegida, impede a exibição o ocultação das planilhas. Para resolver, a melhor opção e mais correta, é...

wagner o brigado pela atenção, mas a senha e do email que é a mesma da rede como não tenho como pegar a senha da rede uma vez o usuario logado criei e...

Boa tarde!! Neste caso será exibido as guias somente em poder da senha, o autor do arquivo pode exibir e manter o arquivo protegido (via VBA), caso n...

Boa tarde!! Eu baixei seu arquivo, o mesmo está protegido!!! Solicite ao dono do arquivo que entre com a senha para desproteger o arquivo!! Att

Eu não baixei o arquivo... mas eu chuto que a pasta de trabalho está protegida... isso impede a alteração de sua estrutura, consequentemente, da visib...

Favor darem uma olhada na msgbox ai do código , com minha duvida. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) D...

JSCopa, qto tempo... Então, você tem razão por um lado... Mas é que do ponto de vista da aplicação geral do intervalo dinâmico, teoricamente ele pode...

Extamente Wagner Morel!! Poderia me explicar esse as funções de left e mid? Muito obrigado!! Att,

Veja se é isto : Dim iRow As Integer Dim iTT_Itens iTT_Itens = ListView_Filtro.ListItems.Count For X = 1 To ListView_...

Boa tarde!! Seria isso? Sub Use_A_Pesquisa_Do_Forum() If Range("A1").Value <> "" Then MsgBox "Célula ...

Boa tarde! Tente isto: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Senha As String Senha = "123" If...