Note: The other languages of the website are Google-translated. Back to English

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.



  • 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...
guia kte 201905
  • 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!
parte inferior da aba do escritório
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos