Como bloquear e desbloquear células especificadas com uma caixa de seleção no Excel?
Este artigo fala sobre o uso de uma caixa de seleção para bloquear e desbloquear um intervalo de células especificadas no Excel.
Bloqueie e desbloqueie células especificadas com uma caixa de seleção usando o código VBA
Bloqueie e desbloqueie células especificadas com uma caixa de seleção usando o código VBA
O script VBA abaixo pode ajudá-lo a desbloquear ou bloquear um intervalo de células especificadas ao marcar ou desmarcar uma caixa de seleção na planilha. Faça o seguinte.
1. Em primeiro lugar, você precisa especificar um nome para o intervalo de células que você precisa bloquear e desbloquear com uma caixa de seleção.
Aqui eu seleciono o intervalo A1: A14, digito um nome LockRng no Nome caixa e, em seguida, pressione a Entrar chave. Veja a imagem:
2. Na planilha contém a caixa de seleção que você usará para bloquear e desbloquear células, clique com o botão direito na guia Planilha e clique em Ver código no menu do botão direito.
Anote os: A caixa de seleção deve ser uma caixa de seleção ActiveX ao inserir.
3. No popping up Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo no Code janela.
Código VBA: bloqueie ou desbloqueie um intervalo de células especificadas com uma caixa de seleção
Private Sub CheckBox1_Click()
Range("LockRng").Select
On Error Resume Next
If CheckBox1.Value = True Then
Selection.Locked = Fals
MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
Else
Selection.Locked = True
MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
End If
End SubAnote os: No código, Checkbox1 é o nome da caixa de seleção, LockRng é o nome da célula de intervalo especificada. Você pode alterá-los conforme necessário.
4. aperte o outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.
Agora você pode testar o código. Ao desmarcar a caixa de seleção, um Kutools for Excel caixa de diálogo aparecerá para informar que o intervalo especificado foi bloqueado, clique no OK botão.
Ao marcar a caixa de seleção, todas as células no intervalo especificado serão desbloqueadas e você receberá um Kutools for Excel caixa de diálogo conforme a imagem abaixo à direita mostrada.
Artigos relacionados:
- Como filtrar dados com base na caixa de seleção do Excel?
- Como ocultar a caixa de seleção quando a linha está oculta no Excel?
- Como criar uma lista suspensa com várias caixas de seleção no Excel?
- Como destacar uma célula ou linha com checkbox no Excel?
As melhores ferramentas de produtividade para escritório
Kutools for Excel Resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de 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 (salvar e aplicar 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 ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em 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!
