Estou precisando de um help para terminar um cadastro no meu trabalho.
No meu cadastro vão existir duas planilhas (Cadastro CPD e Cadastro SEGURANÇA), uma para cada usuário.
O que eu preciso é que ao iniciar a tela de cadastro do usuário "A" a planilha (Cadastro CPD) referente a esse usuário seja desbloqueada com um senha predefinida e ao fechar a tela do cadastro a planilha seja bloqueada novamente.
Quero que aconteça o mesmo para o usuário B (Cadastro SEGURANÇA), mas as senhas são diferentes uma da outra, pois um não pode alterar o conteudo do outro.
Tetei utilizar o codigo abaixo, mas ao tentar alterar os dados, incluir ou excluir, se não estiver na ABA correta retorna erro de que a planilha está bloqueada.
- Código: Selecionar todos
Dim BoolProtect As Boolean
Const senha As String = "senha a utilizar"
'----------------------------------------------
'Proteger e desproteger planilha
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
O métedo só funciona se estiver com a planilha aberta e visivel caso contrario não funciona.
Já vasculhei a internet e não consegui encontrar algo que me ajude.
Só para esclarecer, o usuário "A" irá preencher o cadastro, após isso essas informações irão para o usuário "B" onde ele irá completar as restantes informações... Serão informações espelhos.
Se alguém conseguir me dar um help irei agradecer muito.
Abraços
da mensagem!
