SaberExcel o site das Macros

Esses Macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), protege todas as folhas de planilhas na abertura do livro com uma senha pré-definida por uma variável, quando o usuário for desproteger as folhas de planilhas, por meio de uma entrada de dados(inputbox)
se digitar a senha errado, insere na folha de planilha o horario, senha digitada e mensagem de frustração de tentativa, se for a senha verdadeira,
insere (****) e emite a mensagem seja bem vindo.  Espero que o exemplo seja útil. Fique com Deus, E_Marcondes
(*)  - no final da página faça o download do exemplo.


EM UM MÓDULO COMUM (STANDARD) INSIRA O MACRO:
'Excel protecão definido usando UserInterface para macro permitir trabalhos na folha de planilha

Sub proteger_planilhas()
Dim vPlanilhas As Worksheet
Dim vSenha As String
 
 vSenha = "saber"

 For Each vPlanilhas In ActiveWorkbook.Sheets
   Acesso Livre AO EXEMPLO E AOS CODIGOS  - Registrados (REGISTRE-SE!) 
    Next vPlanilhas
End Sub

  

NO MÓDULO DE EDIÇÃO DA FOLHA DE CÓDIGO  DO OBJETO FOLHA DE PLANILHA INSIRA O PROCEDIMENTO:

Private Sub cmbDESPROTEGER_Click()
proteger_planilhas
Dim vAcesso As String
 vAcesso = InputBox("Ente com sua senha [saber]", "Desproteger todas as folhas de planilha")
 
  If vAcesso = "saber" Then
    Acesso Livre AO EXEMPLO E AOS CODIGOS  - Registrados (REGISTRE-SE!) 
 End If
 
End Sub

 

'exemplo de Move Mouse.
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Resposta As String
Resposta = MsgBox("Deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
   ThisWorkbook.FollowHyperlink "http://www.saberexcel.com/", , True
End If
End Sub

NO MÓDULO DE EDIÇÃO DA FOLHA DE CÓDIGO DA FOLHA DO OBJETO WORKBOOK(LIVRO) INSIRA O PROCEDIMENTO:

Private Sub Workbook_Open()
proteger_planilhas
End Sub

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

       Acesso Livre - Registrados (REGISTRE-SE!)
  Baixe o exemplo de planilha contendo os procedimentos e e macros acima
Excel planilha vba senha proteger desproteger registrando (66.65 KB)


Publicidade
Compre com segurança, garantia e ótimos preços