Qual comando ultilizar para exibir mensagem de acesso negado após apertar botão no Excel com VB

Question

Fala pessoal, sou novo aqui no f&oacute;rum e queria uma ajuda de voces. Estou desenvolvendo uma interface em Excel que possui varios bot&otilde;es que ao serem pressionados vao ate uma determinada pasta no windows, algumas dessas pastas sao bloqueadas para que somente algumas pessoas tenham acesso. Queria saber se teria algum codigo em visual basic para exibir uma mensagem de acesso negado para pessoas que nao tiverem acesso a essas determindas pastas ?

Answer

C&oacute;digo pra exibir mensagem tem e &eacute; f&aacute;cil.
O que eu n&atilde;o sei &eacute; como a ferramenta saberia que aquele usu&aacute;rio n&atilde;o tem acesso &agrave;quela pasta.

D&aacute; algum tipo de erro quando uma pessoa sem acesso tenta abrir a pasta pela sua interface?

Answer

Esse &eacute; o problema, quando uma pessoa aperta um botao que nao tem acesso &eacute; aberta a pasta dos meus documentos do windows, provavelmente deve ser um caminho logico pro windows. Eu queria que ao inves de ir para os meus documentos aparecesse uma mensagem de erro dizendo que o acesso &eacute; invalido, o problema &eacute; que nao sei como restringir com uma estrutura de decisao esse acesso.

Answer

Tente este ex. abaixo:
Ao tentar acessar a pasta, se o usuario nao tiver o previlegio, aparece a msg e  a macro interronpe a execu&ccedil;&atilde;o.

Sub Verif_Acesso()
Dim user As String
Dim Status As Boolean

user = Z&eacute; ' AQUI Insira o cirterio para o status de previlegios do usuario
If user = Z&eacute; Then Status = True
If user = Man&eacute; Then Status = False

If Status = True Then
MsgBox user & , voce n&atilde;o tem previlegios para acessar esta pasta de arquivos, _
vbCritical, Aten&ccedil;&atilde;o
Exit Sub
Else
'Aqui: insira seu codigo para abrir a pasta
End If
End Sub

Answer

Obrigado mano, deu certo. Surgiu uma outra duvida, onde eu trabalho tem 30 usuarios entao queria saber se teria como eu restringir para tres usuarios terem acesso a pasta selecionada e os outros 27 usuarios nao terem acesso ?

[QUOTE=Basole, post: 7196934, member: 908394]Tente este ex. abaixo:
Ao tentar acessar a pasta, se o usuario nao tiver o previlegio, aparece a msg e  a macro interronpe a execu&ccedil;&atilde;o.

Sub Verif_Acesso()
Dim user As String
Dim Status As Boolean

user = Z&eacute; ' AQUI Insira o cirterio para o status de previlegios do usuario
If user = Z&eacute; Then Status = True
If user = Man&eacute; Then Status = False

If Status = True Then
MsgBox user & , voce n&atilde;o tem previlegios para acessar esta pasta de arquivos, _
vbCritical, Aten&ccedil;&atilde;o
Exit Sub
Else
'Aqui: insira seu codigo para abrir a pasta
End If
End Sub[/QUOTE]

Answer

Sim tem sim, mas para isso os usuarios precisam logar para poderem ter acesso a planilha e para a rotina saber quem est&aacute; acessando, e ai voce cria uma planilha(aba,  protege-a e deixe-a oculta) para cadastrar esses usuarios e dar os respectivos previlegios ex.: coluna X: Z&eacute;, coluna Z: Sim ; coluna X: Man&eacute;, coluna Z: N&atilde;o . 
Depois disso no codigo acrescenta o recurso de pesquisar as informa&ccedil;oes desses usuarios.   
Se puder compartilhar sua planilha ou um modelo bem proximo dela fica mais facil aplica-las o descrito acima sem ter q alterar depois o codigo.

Answer

Estou enviando um arquivo contendo o meu excel. Queria so uma maneira de que cada pessoa apos fazer o login tenha acesso so a determinados botoes de acordo com o seu login

Answer

Segue anexo c/ altera&ccedil;oes:
Codigo aplicado no userform login.
Se na coluna(D) do usuario estiver N&Acirc;O, ent&atilde;o a macro n&atilde;o habilita o bot&atilde;o CommandButton2

Answer

Funcionou perfeitamente mas e se eu quiser bloquear o primeiro botao ?

Answer

Altere esse  trecho:
Private Sub UserForm_Initialize()
' verif. status do usuario -> se for SIM habilita o botao AIC, caso contrario desabilita
  ProcuraStatusUsuario UsuarioAtual, UserSt
  If UserSt = N&Acirc;O Then
  Me.AIC.Enabled = False
  Else
  Me.AIC.Enabled = True
  End If
End Sub

Answer

Obrigado mano, me ajudou muito
P.S: Salvou minha vida

Answer

Pessoal surgiu outra duvida, queria saber se &eacute; possivel gerar um relatorio de acesso depois do usuario fazer o login ?

Answer

A rotina cria/edita um arquivo texto chamado RelatorioUser.txt na mesma pasta* que estiver sua planilha, com o nome do suario e a data/horario que logou.

* altere de acordo c/ sua pref.
* cole o cod. abaixo em um modulo
Sub RelatorioACessos()
    Dim strFile_Path As String
    strFile_Path = ThisWorkbook.Path & \RelatorioUser.txt 'AQUI: altere o diretorio (ex: C:\Temp\RelatorioUser.txt) onde seja savar
    Open strFile_Path For Append As #1
    Print #1, UsuarioAtual & , logou em: ; Format(Now, dd/mm/yyyy HH:MM:SS)
    Close #1
End Sub
*abaixo seu codigo do botao [Entrar] do form. login, que chama a rotina acima:
Private Sub CommandButton1_Click()
    If Chave =  Then
        MsgBox Digite o nome do usu&aacute;rio !!!
        Chave.SetFocus
        Exit Sub
    Else
        If Senha =  Then
            MsgBox Digite a senha do usu&aacute;rio !!!
            Senha.SetFocus
            Exit Sub
        End If
    End If

'Varrer Planilha

For i = 2 To 4
        Celula1 = Cells(i, 1).Value
        Celula2 = CStr(Cells(i, 2).Value)
        Celula3 = (Cells(i, 3).Value)

If Chave = Celula1 And Senha = CStr(Celula2) Then
            MsgBox Bem-Vindo

UsuarioAtual = Chave    ' define o usuario atual (Com declara&ccedil;&atilde;o Global Public UsuarioAtual as STring no modulo 1)

Application.Run RelatorioACessos 'chama rotina que cria o relatorio de acessos

Unload Login
            PAILOG.Show

Exit Sub

End If
    Next
    MsgBox Usu&aacute;rio ou Senha incorretos.Tente novamente !!!
    Chave = 
    Senha = 
    Chave.SetFocus
End Sub

Answer

Funcionou perfeitamente, mas se nao for pedir demais, queria saber se nesse relat&oacute;rio de acesso tem como mostrar o que o usuario acessou enquanto estava logado ?

Answer

Segue rotina q registra todas altera&ccedil;oes nas celulas das planilhas (abas),
*cole o cod. abaixo, no editor das abas q deseja monitorar

Dim PreviousValue
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Acao As String
If Target.Value  PreviousValue Then
        Acao = _
             Sheets(Usu&aacute;rios e Senhas).[XFD1].Value &  alterou a c&eacute;lula  & Target.Address _
            &  de  & PreviousValue &  para  & Target.Value
            Application.Run RelatorioACessos, Acao
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub

* Em seguida, altere este trecho do codigo do botao [Entrar] do form. login,

Sheets(Usu&aacute;rios e Senhas).[XFD1].Value = UsuarioAtual
           Dim Acao As String
           Acao = Logou no Sistema
           Application.Run RelatorioACessos, Acao 'chama rotina que cria relatorio

* Segue alteracao na rotina q gera relatorios
Sub RelatorioACessos(Acao As String)
    Dim strFile_Path As String
    strFile_Path = ThisWorkbook.Path & \RelatorioUser.txt 'AQUI: altere o diretorio (ex: C:\Temp\RelatorioUser.txt) onde seja savar
    Open strFile_Path For Append As #1
    Print #1,  Format(Now, dd/mm/yyyy HH:MM:SS) & =>  & UsuarioAtual & :  & Acao
    Close #1
End Sub

Ferramentas

Mover Tópico