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

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 )--

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.....

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

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