Jump to content
Fórum Script Brasil
  • 0

Salvar.colocar senha e cadastrar usuarios para terem acesso aos dados


Guest Pablo de melo dias

Question

Guest Pablo de melo dias

Salvar.colocar senha e cadastrar usuarios para terem acesso aos dados da planilha em vba...

como eu faço isso, queria restringir o acesso, e um botão para siar da planilha..fechando a mesma...

wap.pablo@hotmail.com

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Ai,

Primeiro cria um modulo desse jeito aki...

Option Explicit

Public Cod_novo As String 'usado pelo btn de teste
Public Inc As Integer     'Flag de inclusão
Public Exc As Integer     'Flag de exclusão
Public Alt As Integer     'Flag de Alteração
Public ManUser As Integer    'Flag de Inclusão de Usuário
Public NUser As String    'Nome do usuário
Public vsen As String     'usada pelo form CadSenha
Depois... Um form. de apresentação com isso aki...
Private Sub Form_Open(Cancel As Integer)
Inc = 0
Exc = 0
Alt = 0
ManUser = 0
End Sub

Private Sub Imagem1_Click()
DoCmd.OpenForm "Message"
End Sub

Private Sub Prosseguir_Click()

If IsNull(User) Then
   If MsgBox("Usuário inválido !", vbOKOnly, "Atenção !") = vbOK Then
      Exit Sub
   End If
End If
Me.RecordsetClone.FindFirst "[Usuario] = '" & Me![User] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
If Me![Usuario] <> Me![User] Then
   If MsgBox("Usuário não cadastrado, chame o administrador.", vbOKOnly, "Atenção !") = vbOK Then
      Exit Sub
   End If
End If
If IsNull(Me![Senha]) Then
   DoCmd.OpenForm "CadSenha", , , , , acDialog
   If vsen = "" Then
      If MsgBox("Senha inválida !", vbOKOnly, "Atenção !") = vbOK Then
         Exit Sub
      End If
   End If
   Me![Senha] = vsen
   ElseIf IsNull(Me![Sen]) Or Me![Senha] <> Me![Sen] Then
          If MsgBox("Senha não confere, chame o administrador.", vbOKOnly, "Atenção !") = vbOK Then
             Exit Sub
          End If
End If
NUser = Me![Usuario]
Inc = Me![Inclui]
Exc = Me![Exclui]
Alt = Me![Altera]
ManUser = Me![IncUser]
DoCmd.OpenForm "Documentos"
End Sub

Private Sub Sair_Click()
    DoCmd.Close
    DoCmd.Quit acQuitPrompt
End Sub
Até ai beleza? Agora... Um Form. Cad. de senha com isso aki...
Private Sub BtnOK_Click()
If IsNull(Edt_Sen) Then
   Edt_Sen = ""
End If
vsen = Edt_Sen
DoCmd.Close
End Sub
e... esse cod aki você coloca nos Form Q você precisar desabilitar acessos...
If Inc = 0 Then
   Me!Comando15.Enabled = False
End If

If Exc = 0 Then
   Me!Comando14.Enabled = False
End If

If Alt = 0 Then
   Me.AllowEdits = False
End If

Lógico esse cód eu que montei...

EoO só colei aki...

Então por favor... Não me pergunte: "Os nomes dos formulários tem que ser esses aki?"

Espero ter ajudado...

Qualquer coisa tamo aew!

Abs By Onix...

Edited by kuroi
Adicionar Tag CODE
Link to comment
Share on other sites

  • 0
Guest pablo de melo dias

nÃO CONSIGO CRIAR... você PODERIA ME MANDAR UMA PLANILHA PRONTA PRA EU VER COMO ESTA LA NO VISUAL BASIC...

ME MANDA POR E-MAIL.. wap.pablo@hotmail.com

quando eu faço isso não aparece nada aqui na planilha....

Link to comment
Share on other sites

  • 0
Guest Pablo de Melo DIas

fAVOR NÃO CONSIGO FAZER ESSE COMANDO ELE DA ERRO NO MEU ARQUIVO POR FAVOR alguém PODERIA ME ENVIAR POR E-MAIL UMA PLANILHA PRONTA.. COM ESSE FORMATO.. ABIXO... NA RESPOSTA..??? POR FAVOR SE PUDEREM ME AJUDAR AGRADEÇO MUITO.. madem para wap.pablo@hotmail.com..

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...