Bom dia, @dunguinha

Faça essas modificações no código do CommandButton1_Click do UserFormSenha:

Private Sub CommandButton1_Click()
   Dim CADASTRO As String
   Dim REGISTRO As String
   CADASTRO = UCase(Me.txtApto.Text & Me.txtBloco.Text)
   linhafinal = Dados.Range("A1000").End(xlUp).Offset(1, 0).Row
   'Faz um for da sua linha inicial até a final, e vai fazendo a comparação.
   For i = 2 To linhafinal
    REGISTRO = UCase(Sheets("Dados").Cells(i, 1).Value & Sheets("Dados").Cells(i, 2).Value)
    If REGISTRO = CADASTRO Then
      MsgBox "Apartamento e Bloco já constam registrados. ", vbCritical, "  ATENÇÃO!"
      Unload Me
      Exit Sub  '/////////ACRESCENTAR ESTA LINHA
    End If
   Next
'/////////ACRESCENTAR ESTE BLOCO
   If MsgBox("Não registrado. Deseja registrar?", vbYesNoCancel, "CADASTRAR NOVO REGISTRO") = vbYes Then
     With CadastroSenha
      .txtApto = Me.txtApto
      .txtBloco = Me.txtBloco
       Unload Me
      .Show
     End With
   Else
     Unload Me
   End If
'/////////FIM BLOCO
End Sub

Muito Obrigado Edson, era isso mesmo, ficou show de bola.