Bloquear com senha só uma das Plan do arquivo

Question

Bom dia !

é possível bloquear o acesso com senha só de uma das planilhas do arquivo ?

At.

Ederson

Answer 1

Veja no menu Ferramentas > proteção > Proteger planilha

Answer 2

Olá Luiz,

Na verdade essa função de proteção faz com que o usuário veja a planilha e não consiga alterar. O que eu quero na verdade é que ele clique na planilha e abra uma tela pedindo senha....igual ao recurso que tempos nas senhas de arquivo, mais funcionando em uma só planilha. Se o usuário não conseguir a senha, ele nem consegue ver o coteúdo da "plan3", mais consegue fazer o que quiser na "plan1" e plan2".

 

Digitando a tal senha...a plan3 será disponibilizada para ele.

 

É possível ????

Answer 3

Sim, você pode usar VBA e criar um formulário para o usuário inserir a senha. O formlário pode ser aberto no evento Activate da planilha e liberar o acesso se a senha estiver correta.

Answer 4

mas como eu faço isso no VBA?

Answer 5

Daniel, abra a planilha que vc deseja colocar a senha, aperte ALT+F11, e na guia "Esta pasta de trabalho cole o código abaixo:

os campos que deixei em vermelho são:

1 - o nome da planilha

2 - a senha que vc quer deixar

3 - a ordem da planilha, isto é, não importa o nome que vc dê a ela, ela sempre terá o número de início, entedeu?

 

 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo Trat
    Dim Resp As Integer
   
    If Sh.Name <> "Clientes" Then
        Resp = InputBox("Qual a sua senha")
        If Resp <> 2412 Then
         MsgBox "Você não tem acesso para entrar" & _
         " na planilha de controle", vbCritical
       Plan1.Activate
     End If
   End If
 Exit Sub
Trat:
     Plan1.Activate
    
End Sub

Answer 6

ALTERE PARA AS INFORMAÇÕES  DA SUA PLANILHA

 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo Trat
    Dim Resp As Integer
   
    If Sh.Name <> "Clientes" Then
        Resp = InputBox("Qual a sua senha")
        If Resp <> 2412 Then
         MsgBox "Você não tem acesso para entrar" & _
         " na planilha de controle", vbCritical
       Plan1.Activate
     End If
   End If
 Exit Sub
Trat:
     Plan1.Activate
    
End Sub