Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como proteger as células com base na data no Excel?

Normalmente, podemos proteger a planilha para evitar que outros editem ou modificem os valores das células, mas às vezes você precisa proteger as células com base na data. Por exemplo, eu quero proteger outras células, mas só permitem que os valores da célula da data de hoje sejam modificados como a próxima captura de tela mostrada, este artigo irá falar sobre como proteger as células com base na data.

doc protege por data 1

Proteja todas as linhas, exceto a linha de data de hoje com o código VBA

Proteja todas as linhas que a data passou com o código VBA

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair Número da Cadeia de Texto; Extrair ou remover parte dos textos; Converta números e moedas em palavras inglesas ...
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma ...
  • Ferramentas de divisão: Dados divididos em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas ...
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Criar lista de discussão e Envie e-mails pelo valor da célula...
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

arrow blue right bubble Proteja todas as linhas, exceto a linha de data de hoje com o código VBA

Apenas permita que a linha que seja igual a data de hoje a ser modificada, o código a seguir pode ajudá-lo, faça o seguinte:

1. Clique com o botão direito na guia de folha que deseja proteger as células com base na data e, em seguida, escolha Ver código no menu de contexto, no surgido Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código no módulo em branco:

Código VBA: proteja todas as linhas, exceto a linha de data de hoje:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
    If Range("E" & Selection.Row).Value <> Date Then
        ActiveSheet.Protect Password:="111111"
        MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
    ElseIf Range("E" & Selection.Row).Value = Date Then
        ActiveSheet.Unprotect Password:="111111"
        ActiveSheet.EnableSelection = xlNoRestrictions
    End If
End Sub

doc protege por data 2

notas: No código acima, a carta E é o cabeçalho da coluna onde a data localizada, "111111"É a senha para proteger esta folha. Você pode alterá-los para sua necessidade.

2. Em seguida, salve e feche esta janela de código.

(1.) Se você clicar em outras células além da linha de data de hoje, uma caixa de prompt aparecerá para lembrar que a célula não pode ser editada, veja a captura de tela:

doc protege por data 3

(2.) Se você clicar e editar a linha é igual à data de hoje, ela será modificada com sucesso, veja a captura de tela:

doc protege por data 4


arrow blue right bubble Proteja todas as linhas que a data passou com o código VBA

Se você precisa proteger todas as linhas, a data passou, somente permitir que as linhas de data atuais e futuras sejam modificadas, aplique o seguinte código VBA:

1. Clique com o botão direito na guia de folha que deseja proteger as células com base na data e, em seguida, escolha Ver código no menu de contexto, no surgido Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código no módulo em branco:

Código VBA: Proteja todas as linhas que a data passou:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
  Dim xRow As Long
  xRow = 2
  ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
  ThisWorkbook.ActiveSheet.Cells.Locked = False
  Do Until IsEmpty(Cells(xRow, 5))
    If Cells(xRow, 5) < Date Then
      Rows(xRow).Locked = True
    End If
    xRow = xRow + 1
  Loop
  ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub

doc protege por data 5

notas: No código acima, o número 5 é o número da coluna onde a data localizada, "111111"É a senha para proteger esta folha. Você pode alterá-los para sua necessidade.

3. Em seguida, salve e feche esta janela de código.

(1.) Se você clicar na data das células, uma caixa de prompt aparecerá para lembrar que a célula não pode ser editada, veja a captura de tela:

doc protege por data 6

(2.) Se você clicar na célula de linhas para tentar alterar os valores na data de hoje ou na data futura, ele será modificado com sucesso, veja a captura de tela:

doc protege por data 7


Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.