Excel VBA - Senhas

  • - Acesso Livre (há alguns arquivos nesta categoria com restrição de acesso - faça o login ou Registre-se)
    Acesso Livre - Registrados (REGISTRE-SE!)
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba senhas userform e textboxes para o acesso vba senhas userform e textboxes para o acesso

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: Vazio
    Downloads: 1220

    Saberexcel - o site das macros
    Procedimentos e macros do Aplicativo Microsoft Excel VBA, usando textboxes e userforms solicita senha para o acesso a determinado programa e ou artigo.

    PARA MONTAR A PLANILHA EXEMPLO:

    1 - Userform .......... = chamado Form1
    1 - Userform .......... = chamado Form2
    1 - Textbox .......... = nomeado como Text1
    1 - Textbox ........... = nomeado como Text2
    1 - Commandbutton ..... = nomeado como - Command1
    1 - Commandbutton ..... = nomeado como - Command2
    1 - Label - caption ... = Nome (direcionado para o textbox 1 Text1)
    1 - Label - caption ... = Sobrenome (direcionado para o Text2)

    INICIO

    No Form2 folha e propriedade Form_Activate, nós escrevemos:
    Private Sub Form_Activate()
    'Dá ênfase ao Text1, cursor retorna ao Text1
    Form2.Show
    Text1.SetFocus
    End Sub

    'No Form2 e outros "Form_Load, nós escrevemos:
    Private Sub Form_Load()
    'Centro da folha - (se você não conhece esse processo, a carga sobre o site)
    CenterForm Me
    End Sub

    'Nós escreveremos o código para o botão "Limpar/cancelar"
    Private Sub Command2_Click()
    'Vamos apagar o conteúdo do TextBox
    Text1.Text = ""
    Text2.Text = ""
    'O cursor retorna SetFocus para o controle Text1
    Text1.SetFocus
    End Sub

    Private Sub Command1_Click()
    Dim t As String
    Dim M As String
    Dim C As String
    Dim MP As String

    'Escolha um nome de usuário
    C$ = "Saber" 'ou o nome de sua escolha

    'Escolha o segundo nome a sua escolha
    MP$ = "Excel" 'ou outro nome qualquer de sua escolha

    'Verifica se o nome do usuario esta correto
    If Text1.Text <> C$ Then GoTo Sair 'neste caso é "C$ = Saber"

    'Se o erro referem-se ao rótulo Sair (sair)
    'Selecione a segunda Senha

    If Text2.Text = "" Then 'se caso o usuario nao digitar nada
    'Erro de digitação

    t$ = "Atenção, nao digitou nada!"
    M$ = "Você deve digitar uma senha!"
    Reponse% = MsgBox(M$, 0 + 32, t$)
    Text2.SetFocus
    Exit Sub
    End If

    If Text2.Text <> MP$ Then 'Se a palavra senha estiver incorreta, ocorre....
    t$ = "Atenção!" ' aqui aparece no cabeçalho do form da mensagem titulo da msg
    M$ = "voce nao esta autorizado a utilizar esse programa!"
    Reponse% = MsgBox(M$, 0 + 16, t$)
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
    Else
    t$ = "Seja Bem Vindo.....!" ' aqui aparece no cabeçalho do form da mensagem titulo da msg
    M$ = "Voce esta autorizado a entrar no programa"
    Reponse% = MsgBox(M$, 0 + 64, t$)
    Form2.Show
    Unload Form1
    Exit Sub
    End If
    Exit Sub

    'Alerta de erro
    Sair:
    Text1.Text = ""
    t$ = "Atenção!"
    M$ = "Codigo Incorreto, digite novamente !"
    Reponse% = MsgBox(M$, 0 + 32, t$)
    '
    Text1.SetFocus
    Text1.Text = ""
    Text2.Text = ""
    End Sub

    Private Sub Command3_Click()
    Unload Me
    End Sub


    Aprenda Aplicativo Microsoft Excel VBA - Saber Excel



    vba senhas inputbox para acessar planilha vba senhas inputbox para acessar planilha

    popular!
    Adicionado em: 31/01/2011
    Modificado em: 31/01/2011
    Tamanho: Vazio
    Downloads: 1654



    Essa macros e procedimentos do Aplicativo Microsoft Excel VBA (Visual Basic Application), solicita uma senha por meio de uma inputbox (entrada de dados) quando o usuário tentar acessar determinada folha de planilha no livro, ocultando todas as linhas da folha de planilha, impedindo a visualização da mesma até que digite corretamente a senha.

    Private Sub Worksheet_Activate()

    sbx = InputBox("Digite sua senha('1') para acessar a planilha", "Saberexcel - o site das macros")
    If sbx = "1" Then
    Saber1.Unprotect Password:="1"
    Saber1.Cells.EntireColumn.Hidden = False
    Else
    MsgBox "Digitou a senha errada, tente novamente!", vbInformation, "Saberexcel - site das macros"
    Saber3.Select
    End If

    End Sub


    Private Sub Worksheet_Deactivate()
    On Error Resume Next
    Saber1.Cells.EntireColumn.Hidden = True
    Saber1.Protect Password:="1"
    End Sub



    COMPLEMENTO DOS CÓDIGOS PARA AUXILIAR NO TESTE DA PLANILHA.
    Essa macro do aplicativo microsoft excel vba deleta linhas baseados em critério que são as linhas vazias nas colunas (F), (G), (H).
    Observe que o loop (for next) verifica células vazias nas coluna(F,G,H) e deletam as linhas correspondentes. bem simples.

    Sub Deletar_Linhas_Celulas_Branco()
    MsgBox ("Linhas onde houver células em branco na coluna(F:G:H) serão DELETADAS!!!!")
    vUltimaLinha = Cells.SpecialCells(xlLastCell).Row

    For i = vUltimaLinha To 1 Step -1
    '-----------'
    If Cells(i , "F").Value = "" Then Rows(i ).Delete
    If Cells(i , "G").Value = "" Then Rows(i ).Delete
    If Cells(i , "H").Value = "" Then Rows(i ).Delete
    '-----------'
    Next i

    End Sub

    Macro auxiliar para reazliação do teste na folha de planilha com senhas ----
    observe que essa macro copia dados em uma coluna e cola em outra planilha, tentei simplificar ao máximo,
    para um melhor entendimento do Excel VBA.
    Nos
    MÓDULOS - COMO FAZER - Programação Microsoft Excel VBA - Saberexcel apresento tipo de programação bem simplificada e fácil

    Sub copiar_colar_teste()
    Saber2.[A1:Q25].Copy Saber1.[A1]
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

    vba senhas gera senhas de alta seguranca alfa numerico aleatorios vba senhas gera senhas de alta seguranca alfa numerico aleatorios

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: Vazio
    Downloads: 1775

    Saberexcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA produz senhas aleatorias com números e textos [alfanúmericos], gerando números e letras do alfabeto aleatórias conforme a macro abaixo, observe os valores. No exemplo de planilha contém algumas fórmulas concatenando valores de células, e gerando uma senha aleatoria.

    Sub senhas_de_alta_seguranca()
    Dim vNumero As Integer
    Dim vAlfa As String
    Randomize Timer
    For i = 1 To 10
    vNumero = Int(Rnd * 100)

    Cells(1, i).Value = vNumero
    If vNumero < 20 And vNumero >= 0
    Then
    vAlfa = "A"
    Cells(2, i).Value = vAlfa

    ElseIf vNumero < 30 And vNumero >= 20 Then
    vAlfa = "B"
    Cells(2, i).Value = vAlfa

    ElseIf vNumero < 40 And vNumero >= 30 Then
    vAlfa = "C"
    Cells(2, i).Value = vAlfa

    ElseIf vNumero < 50 And vNumero >= 40 Then
    vAlfa = "D"
    Cells(2, i).Value = vAlfa

    ElseIf vNumero < 60 And vNumero >= 50 Then
    vAlfa = "E"
    Cells(2, i).Value = vAlfa

    ElseIf vNumero < 70 And vNumero >= 60 Then
    vAlfa = "F"
    Cells(2, i).Value = vAlfa

    ElseIf vNumero < 80 And vNumero >= 70 Then
    vAlfa = "G"
    Cells(2, i).Value = vAlfa

    ElseIf vNumero <= 100 And vNumero > -80 Then
    vAlfa = "H"
    Cells(2, i).Value =
    vAlfa
    End If
    'ActiveCell.Offset(0, 1).Value = i
    Next
    [D19].Value = [D14].Value 'essa linha de código esta no exemplo de planilha copiando valores produzidos por fórmulas
    [D20].Value = [D15].Value
    End Sub



    Se o número for maior que [ 20 ] e maior ou igual a [ 0 ] - retorna letra "A"
    If vNumero < 20 And vNumero >= 0 Then
    vAlfa = "A"

    Se o número for menor que [ 30 ] e maior ou igual a [ 20 ] - retorna letra "B"
    ElseIf vNumero < 30 And vNumero >= 20 Then
    vAlfa = "B"

    Se o número for menor que [ 40 ] e maior ou igual a [ 30 ] - retorna letra "C"
    ElseIf vNumero < 40 And vNumero >= 30 Then
    vAlfa = "C"

    Se o número for menor que [ 50 ] e maior ou igual a [ 40 ] - retorna letra "D"
    ElseIf vNumero < 50 And vNumero >= 40 Then
    vAlfa = "D"

    Se o número for menor que [ 60 ] e maior ou igual a [ 50 ] - retorna letra "E"
    ElseIf vNumero < 60 And vNumero >= 50 Then
    vAlfa = "E"

    Se o número for menor que [ 70 ] e maior ou igual a [ 60 ] - retorna letra "F"
    ElseIf vNumero < 70 And vNumero >= 60 Then
    vAlfa = "F"

    Se o número for menor que [ 80 ] e maior ou igual a [ 70 ] - retorna letra "G"
    ElseIf vNumero < 80 And vNumero >= 70 Then
    vAlfa = "G"

    Se o número for menor que [ 100 ] e maior ou igual a [ -80 ] - retorna letra "H"
    ElseIf vNumero <= 100 And vNumero > -80 Then
    vAlfa = "H"


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel VBA Estudos






    Baixe o exemplo de planilha contendo as macros acima



    Publicidade:
    Compre com segurança, garantia e bons preços
    Livros, vinhos, notebooks, eletrodomésticos.....

    Informática - Submarino.com.br

    vba senhas criar senhas aleatorias alta seguranca coluna a vba senhas criar senhas aleatorias alta seguranca coluna a

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: Vazio
    Downloads: 1373

    Exemplo de como produzir senhas aleatórias de alta segurança na coluna A da folha de planilha Microsoft Excel, usando macros do do Aplicativo Microsoft Excel VBA. quantidade e numero de caracteres baseados nas células D2 e C2.

    Sub Produzir_senha()
    Dim i, y, SNA, SNC
    Dim SN As String
    Randomize

    For i = 2 To ActiveSheet.Range("D2")
    For y = 1 To ActiveSheet.Range("C2")
    SNC = Int((Rnd * 50) + 72)
    SNA = ChrW(SNC)
    SN = SN & SNA
    Cells(i, 1).Value = SN
    Next y
    SN = ""
    Next i

    Range("A1").Value = "Senhas Criadas"

    End Sub


    Sub Senhas_deletar()
    Range("A2:A51").ClearContents
    Range("A1").Value = "Senhas Deletadas"
    End Sub

     


    Aprenda sobre o Aplicativo Microsoft Excel VBA --( SaberExcel VBA )--


    Excel vba senhas inputbox constant var acesso planilha Excel vba senhas inputbox constant var acesso planilha

    popular!
    Adicionado em: 23/02/2011
    Modificado em: 23/02/2011
    Tamanho: Vazio
    Downloads: 2024

    Saberexcel - site das macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), auxiliada por uma entrada de dados(inputbox), solicita uma senha ao usuário para acessar determinada Folha de Planilha no Livro.
    Observe que usamos uma constante sbx, que poderá ser usada em todo o projeto vba, pra proteger e desproteger as folhas de planilhas.
    Espero que o exemplo seja útil. Fiquem com Deus, E_Marcondes


    Public Const sbx As String = "saber"

    Sub Senha_Entrada()
    ab = Application.InputBox("Digite a Senha para acessar a planilha(Plan2) .", "SENHA DE ENTRADA - 'saber' ", Type:=2)

    If ab <> sbx Then
    MsgBox ("Digitou a Senha Errada! - Senha é 'saber'"), vbCritical, "Saberexcel"
    'insira algo aqui, ou apenas feche o livro,
    Exit Sub
    Else
    MsgBox ("Seja bem vindo"), vbInformation, "Saberexcel"
    Plan2.Visible = True
    Plan2.Select
    End If

    End Sub




    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA