1: Sub AtualizarRanges() 

   2:      

   3:     Dim Ranges

   4:      

   5:     Set Ranges = Selection.Range 

   6:      

   7:     Selection.WholeStory 

   8:     Selection.Fields.Update 

   9:      

  10:     Ranges.Select 

  11:      

  12: End Sub

   1: Public Sub DownloadFile(Url As String, DestFileName As String)    

   2:     Dim http As WinHttpRequest    

   3:     Set http = New WinHttpRequest        

   4:     http.Open "GET", Url, False    

   5:     http.Send        

   6:     Dim hFile As Integer    

   7:     hFile = FreeFile        

   8:  

   9:     Open DestFileName For Output As #hFile    

  10:         Print #hFile, StrConv(http.ResponseBody, vbUnicode)    

  11:     Close #hFile

  12:  

  13:     End Sub

   1: Private Function ValidaPreenchimento() As Boolean

   2:  

   3:     Dim ctl As Control

   4:  

   5:     On Error GoTo ValidaPreenchimento_Error

   6:  

   7:     For Each ctl In Me.Controls    'Passo por todos controles do formulario

   8:  

   9:         If ctl.ControlType = acTextBox Then    ' Verifico se é uma caixa de texto

  10:             If IsNull(ctl.Value) Then    'Verifico se o campo foi preenchido

  11:                 AplicaExibicaoErro "O Campo '" + ctl.Tag + "' não pode ficar em branco", ctl    'Coloco a mensagem e movo a imagem para frente do controle com erro

  12:                 ctl.SetFocus    'Coloco foco no controle, para agilizar procedimento de correção do usuário

  13:                 Exit Function

  14:             End If

  15:         End If

  16:     Next

  17:  

  18:     If Me.txtSenhaNova <> Me.txtSenhaNova_Confirma Then    'Verifico se a confirmação da nova senha

  19:         AplicaExibicaoErro "A nova senha não confere", Me.txtSenhaNova_Confirma    'coloca a mensagem de erro e movo a imagem

  20:         Me.txtSenhaNova.SetFocus

  21:         Exit Function

  22:     End If

  23:  

  24:     Const TAMANHO_MINIMO_SENHA As Byte = 6    'Parametrizo o tamanho do campo (Boas práticas de programação) basta alterarmos aqui para fazer todas as modificações

  25:     If Len(Me.txtSenhaNova) < TAMANHO_MINIMO_SENHA Then    'Verifico se o tamanho mínimo foi preenchido

  26:         AplicaExibicaoErro "A nova senha deve conter no mínimo " & TAMANHO_MINIMO_SENHA & " caracteres", Me.txtSenhaNova_Confirma    'Coloco mensangem e movo imagem

  27:         Me.txtSenhaNova.SetFocus    'dou foco ao controle

  28:         Exit Function

  29:     End If

  30:  

  31:     ValidaPreenchimento = True

  32:     Me.txtLogin.SetFocus

  33:  

  34: ValidaPreenchimento_Exit:

  35:     Exit Function

  36:  

  37: ValidaPreenchimento_Error:

  38:     MsgBox Err.Description, vbCritical, " Erro imprevisto"

  39:     Resume ValidaPreenchimento_Exit

  40:  

  41: End Function