locked
Bloquear com senha só uma das Plan do arquivo RRS feed

  • Pergunta

  • Bom dia !

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

    At.

    Ederson

    quarta-feira, 7 de março de 2007 12:59

Todas as Respostas

  • Veja no menu Ferramentas > proteção > Proteger planilha
    quinta-feira, 8 de março de 2007 01:12
    Moderador
  • 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 ????

    quinta-feira, 8 de março de 2007 11:15
  • 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.
    quinta-feira, 15 de março de 2007 05:16
    Moderador
  • mas como eu faço isso no VBA?
    sexta-feira, 25 de maio de 2007 15:19
  • 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

    quarta-feira, 6 de junho de 2007 15:54
  • 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

    quarta-feira, 6 de junho de 2007 17:54