Home Excel - Downloads / Areas Restritas Excel VBA - Proteger - Desproteger

Excel VBA - Proteger - Desproteger

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba protege celulas presenca matricula Excel planilha vba protege celulas presenca matricula

    popular!
    Adicionado em: 04/06/2011
    Modificado em: 04/06/2011
    Tamanho: 73.37 KB
    Downloads: 1125

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

    E
    sse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), protege e ou desprotege uma folha de planilha em determinadas colunas, sensibilizada pelo Evento_Change(Ao digitar), nas colunas(A)=1, Coluna(D)=4, Coluna(7)=G.
    A finalidade é proteger somente as colunas onde se encontra o número da matrícula já digitado e deixar liberado as células em branco, para novas digitações, nas outras colunas na folha de planilha nao sensibilizada pelo procedimento ficam desprotegidas, para mudança do status, para sim ou não. Baixe o exemplo de planilha no final da página para melhor entendimento. Fiquem com Deus, Expedito Marcondes.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vCelula As Range, vRegiao As Range
    Set vRegiao = Intersect(Target, Union(Columns(1), Columns(4), Columns(7)))

    If vRegiao Is Nothing Then Exit Sub
    ActiveSheet.Unprotect

    For Each vCelula In vRegiao
    If vCelula <> "" Then
    vCelula.Locked = True
    Else
    vCelula.Locked = False
    vCelula.FormulaHidden = False
    End If
    Next vCelula
    [B1].Value = "Folha de Planilha PROTEGIDA!"
    [B1].Font.ColorIndex = 10
    ActiveSheet.Protect

    End Sub




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






    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    vba proteger celulas com formulas de selecao vba proteger celulas com formulas de selecao

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: 19.65 KB
    Downloads: 911

    Macro impede usuário de ativar células onde há formulas
    Macro do Aplicativo Microsoft Excel VBA, impede o usuário, de digitar nas células onde contém fórmulas, mas não pelo método validação, mas via vba mesmo. O usuário vai clicar nas células onde contém as fórmulas e elas vão estar congeladas indisponível para ativação e digitação, somente com células que contenham fórmulas. Veja bem, protege com senha determinada planilha e desprotege

    Sub protege_celulas_formulas()
    Protecao_celulas_Formulas Worksheets("Plan3"), "Saberexcel"
    End Sub

    Sub DesProtege_celulas_formulas()
    Worksheets("Planl3").Unprotect "Saberexcel"
    End Sub


    Sub Protecao_celulas_Formulas(Ws As Worksheet, PassWord As String)
    On Error Resume Next

    With Ws
    .Unprotect PassWord 'que a palavra (senha) é passada para a macro
    .Cells.Locked = False
    .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
    .EnableSelection = xlUnlockedCells
    .Protect PassWord
    End With
    End Sub


    Aprenda Microsoft Excel VBA ((SaberExcel))

    vba proteger desprotege executa macro protege novamente vba proteger desprotege executa macro protege novamente

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: 84.67 KB
    Downloads: 1259

    Saberexcel - o Site das Macros
    Esssa Macro do Aplicativo Microsoft Excel VBA, desprotege determinada folha de planilha, insere uma autonumeração e depois protege novamente via macro, então, essa macro poderá ser muito útil para você desproteger uma planilha, rodar uma determinada macro e a protegê-la novamente.

    Option Explicit
    Dim BoolProtect As Boolean
    Const senha As String = "teste"

    Sub Desprotege_Planilha()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    BoolProtect = False
    'Checa se a planilha esta protegida.
    If ws.ProtectContents = True Then
    BoolProtect = True
    'desprotege a planilha
    ws.Unprotect _
    Password:=senha
    End If
    End Sub

    Sub Protege_Planilha()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    ' Checa se planilha esta protegida
    If BoolProtect = False Then
    ws.Protect _
    Password:=senha
    BoolProtect = False
    Else
    ws.Protect _
    Password:=senha
    BoolProtect = True
    End If
    End Sub

    Sub Desprotege_roda_macro_protege()
    Call Desprotege_Planilha
    Call Minha_Macro
    Call Protege_Planilha
    End Sub

    Sub Minha_Macro()
    Dim i As Integer
    Range("D3") = "Macro desprotegeu a planilha para rodar rotina....."
    Range("D4") = "Macro inserindo númeração de 1 a 10000....."

    For i = 1 To 10000
    Sheets("Plan1").Cells(1 + i, 1) = i
    Next

    Range("D3") = ""
    Range("D4") = "Dados inseridos e planilha protegida novamente....."
    End Sub

    Sub Teste()
    Dim senha
    senha = "teste"
    ActiveSheet.Unprotect senha
    Range("A2:A5000").ClearContents
    Range("D4") = ""
    End Sub

    Aprenda tudo sobre Aplicativo Microsoft Excel VBA com SaberExcel



    vba senha protege todas planilhas auxilio inputbox vba senha protege todas planilhas auxilio inputbox

    popular!
    Adicionado em: 27/11/2010
    Modificado em: 27/11/2010
    Tamanho: 18.72 KB
    Downloads: 742

    Saberexcel - o site das macros
    Macros do Aplicativo Microsoft Excel VBA, protege todas as folhas de planilha do Livro, com auxílio de uma caixa de entrada (InputBox)

    Sub Proteger_todas_planilhas()
    On Error Resume Next
    Dim Wsh As Worksheet
    Dim vMinhaSenha As String

    vMinhaSenha = InputBox("Entre com sua Senha!" & vbCrLf & _
    "(Aceita espaço em branco sem senhas)" & vbCrLf & vbCrLf & _
    "Nao esqueça a senha!", "Entre com a Senha - Saberexcel ")

    For Each Wsh In ThisWorkbook.Worksheets
    Wsh.Protect (vMinhaSenha)
    Next Wsh

    End Sub

    observem que esta macro vai desproteger suas planilhas, mudamos pouca coisa, voce só tem que lembrar da senha para desprotegê-la.

    Sub Desproteger_todas_planilhas()
    On Error Resume Next
    Dim Wsh As Worksheet
    Dim vMinhaSenha As String

    vMinhaSenha = InputBox("Entre com sua Senha!" & vbCrLf & _
    "(Vamos desproteger todas as planilhas)" & vbCrLf & vbCrLf & _
    "Lembre-se da senha!", "Entre com a Senha - Saberexcel ")


    For Each Wsh In ThisWorkbook.Worksheets
    Wsh.Unprotect (vMinhaSenha)
    Next Wsh

    End Sub



    Aprenda Aplicativo Microsoft Excel VBA com qualidade Saberexcel

     


    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