[Resolvido]Controle de guia com senha

Boa noite a todos, gostaria de saber se alguns dos amigos não teria um controle de guia que para mudar de uma guia para outra peça uma senha, eu tinha um exemplo que estava em hd externo que deu pau e não consigo mais reaver, procurei na net e não lembro de que site peguei.
A necessida se dá pelo motivo que quando cadastro alguma pessoa deixo em uma aba do controle de guia, com os dados pessoais como os numeros de documentos e para não ter probelma de qualquer pessoa mexer.
E nesse controle de guia fica muito legal, se alguém tiver o exemplo para disponibilizar acho que peguei em site espanhol, mas procurei hoje e não consegui encontrar.
Obrigada a todos Amandaalves

crie um controle de guias nomeia para CtlGuia0, com 2 abas ( a aba em questão deve ser ocultada, vc clica nela va em propriedades, na guia todas muda para visivel = Não)


na primeira guia coloque 1 botão com a função abaixo, acho que vai resolver não testei

lembrando que as guias tem numeração, a primeira começa com zero, depois 1 2 3....

Dim varNum As String

varNum = InputBox("Senha de Acesso", "Revalidação do Prazo", "***")

If varNum = "SENHA" Then
   
Me.CtlGuia0.Pages(1).Visible = True
Me.CtlGuia0.Pages(1).SetFocus
   
Else

   MsgBox "Senha incorreta", _
           vbInformation, "Atenção"
   Application.Quit

End If

Boa noite a todos,
Pessoal eu achei o exemplo que contém senha no controle de guia, alguém poderia me ajudar a mudar  o jeito de colocar a senha pois, quando clico na aba que pede senha é colocada em uma imputbox, mas ai aparece a senha, como faço para ao invez de uma imputbox abra um formulário para colocar a senha e ai sim se estiver certo liberar a guia.
Muito obrigada Amandaalves


esse é o código que tem no meu formulário:


DoCmd.OpenForm "FormSenhaBloqueioFuncionario"


Private Sub TabCtl0_Change()
'---------------------------------------------------------------------------------------
' Procedimiento:
' FechaHora: 13/09/2007 19:44
' Autor:  ©  Javier Gomez
' Proposito: Poner password a una ficha
' e-mail: javier.news@gmail.com
' WEB: http://es.geocities.com/accessdemo/
'---------------------------------------------------------------------------------------
Dim strInput As String
Dim ctl As Control


   Me.City.Visible = False
   Me.PostalCode.Visible = False
   Me.HomePhone.Visible = False
   Me.TitleOfCourtesy.Visible = False
   Me.BirthDate.Visible = False
   Me.Region.Visible = False
   Me.Country.Visible = False
   Me.Notes.Visible = False
   Me.Address.Visible = False




   If Me.TabCtl0.Value = 1 Then

       strInput = InputBox("Por favor introduce el password para tener acceso ha esta zona", "Zona restringida")

       If Len(strInput) = 0 Then
           MsgBox "No se han introducido datos", vbExclamation, "Informacion requerida"
           Exit Sub
       End If

       Rem para proteger aunmas este password mira la DEMO 33 de http://es.geocities.com/accessdemo/
       If strInput = "1234" Then

           For Each ctl In Controls
               ctl.Visible = True
           Next ctl

           MsgBox "Password correcto", vbInformation, "Password"
       Else
           MsgBox "Lo siento No tienes acceso para esa informacion", vbCritical, "Password"
           Exit Sub
       End If

   End If

End Sub

Segue o arquivo para os amigos poderem ajudar a fazer a mudança

https://www.dropbox.com/s/jptsq3cm1g65b17/Ficha%20Segura.mdb?dl=0

Ola;

Eu tenho um exemplo que fiz para um usuário daqui mesmo;

Tente entender a mecanica e na duvida dê um grito;

A senha para entrar na Aba 2 é "123" e apenas terá 3 possibilidades de erro;

http://dl.dropboxusercontent.com/u/771097/Password_na_Aba.zip

Oi JPaulo e a todos do forum, quanto tempo grande amigo.

Vou baixar e depois retorno para dizer se consegui entender, por enquanto muito obrigada.
Fica com Deus

OLá bom dia a todos.
JPaulo, era isso mesmo que precisava, muito obrigada.

Fica com Deus