Como definir senhas para proteger planilhas individuais por usuários no Excel?
No Excel, você pode definir senhas diferentes para planilhas diferentes, isso significa que um usuário pode fazer alterações em uma planilha usando uma senha e outro pode usar uma senha diferente para fazer alterações em outra planilha. Mas, às vezes, você só quer que cada usuário possa visualizar e acessar sua própria planilha. Isso é possível de ser resolvido no Excel?
Para proteger cada planilha individualmente e limitar o acesso às planilhas pelos usuários, aplique o código VBA abaixo:
1. Abra uma nova pasta de trabalho e crie uma nova planilha chamada “Principal”, veja a captura de tela:
2. Então aperte Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela, clique duplo Esta pasta de trabalho da esquerda Projeto-VBAProject painel para abrir um módulo de código em branco e, em seguida, copie e cole o seguinte código VBA na janela de código, veja a captura de tela:
Código VBA: defina senhas para proteger planilhas individuais pelos usuários
Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
If xUserName = "" Then
Exit Sub
End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
If xPass = "" Then
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Else
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
If xWSh.Name = xUserName Then
xBolH = True
Exit For
End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
MsgBox "The password is incorrect, please enter the user name and password again."
GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
If xWSh.Name <> "Main" Then
xWSh.Visible = xlSheetVeryHidden
End If
Next xWSh
ActiveWorkbook.Save
End Sub
3. Em seguida, coloque o cursor no final do Private Sub Workbook_Open () script e pressione F5 chave para executar este código. Agora, na caixa de prompt exibida, insira o nome de usuário que você deseja criar uma planilha para este usuário, veja a captura de tela:
4. E então, clique OK botão, na caixa de prompt a seguir, digite uma senha para proteger esta planilha, veja a captura de tela:
5. Continue clicando OK botão e uma nova planilha nomeada com o nome de usuário é criada de uma só vez, e você pode criar os dados para esse usuário conforme necessário. Veja captura de tela:
6. Repita a etapa 3 – etapa 5 acima para criar outras folhas uma a uma que você deseja usar.
7. Depois de criar as planilhas, salve a pasta de trabalho atual clicando Envie o > Salvar como., No Salvar como caixa de diálogo, especifique um nome de arquivo e escolha Pasta de trabalho habilitada para macro do Excel (* .xlsm) formato do Salvar como tipo lista suspensa, veja a captura de tela:
8. Em seguida, clique no botão Salvar para salvar este arquivo.
9. E, em seguida, feche a pasta de trabalho e reabra-a, em seguida, clique em Habilitar Conteúdo na parte superior da barra de fórmulas para ativar o código, veja a captura de tela:
10. Agora, uma caixa de prompt será exibida para lembrá-lo de inserir o nome de usuário e a senha para abrir a planilha específica de determinado usuário.
11. Por fim, ao enviar esta pasta de trabalho para outros usuários, você deve enviar o nome de usuário e a senha para o usuário. Eles apenas abrirão e editarão suas próprias planilhas e não terão autorização para ver outras planilhas.
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- 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 e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... 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 ...
- Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- 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...
- Agrupamento de tabela dinâmica por número da semana, dia da semana e mais ... Mostrar células desbloqueadas, bloqueadas por cores diferentes; Destacar células que possuem fórmula / nome...
- 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!
