[Resolvido]Bloquear comando activex

Olá pessoal bom dia. Estou com uma dúvida que não consegui encontrar em nenhum lugar.

é possível bloquearmos todos os controles de um controle activex inserido em um formulário. Este problema ocorre pois gostaria de permitir que apenas algumas pessoas pudessem imprimir ou salvar arquivos pdf que estou abrindo por este controle.

Grato pela atenção

Bom dia!

Se você tiver um Grupo de usuários pode verificar com VBA e definir quem pode e não pode, veja esse exemplo:

Private Sub Form_Open(Cancel As Integer)
Select Case CurrentUser()

Case "s011114"
Me.ControleActiveX17.Enabled = False
Me.Comando18.Enabled = False
Me.Comando19.Enabled = False

Case "s011115"
Me.ControleActiveX17.Enabled = True
Me.Comando18.Enabled = True
Me.Comando19.Enabled = True
End Select
End Sub

O que acha?

Olá Leandro, Primeiramente muito obrigado pela resposta, tentei desta forma, porém o problema é que o enable não deixa a pessoa visualizar o conteúdo do pdf e o que eu precisava era que ela visualizasse mas não conseguisse imprimir e nem salvar este pdf localmente.

Por favor, você pode postar o código do botão?

Private Sub fnccarregamaterial(Optional j As Byte = 0)
'declara as variáveis necessárias para busca
Dim canexo, clocal As String
Dim formato, mat, idanexo, op As Integer
mat = idtbmaterial
idanexo = seletor
If IsNull(idanexo) = False Then
'encontra o formato do arquivo
formato = DLookup("[formato]", "tbanexo", "[idtbanexo] = " & idanexo)
'monta o caminho que está o arquivo
canexo = DLookup("[pastafiles]", "tbconfig", "[idtbconfig]= 1") & _
DLookup("[pasta]", "tbformato", "[idtbformato] = " & formato) & _
mat & DLookup("[caminho]", "tbanexo", "[idtbanexo] = " & idanexo)
'Seleciona entre abrir arquivo e pedir uma cópia
Select Case j
Case 1
' abre o vídeo no local desejado
MsgBox canexo
tela.LoadFile (canexo) -> Aqui está o problema, ele abre o pdf em um controle activex mas dá ao usuário pelas toobars a possibilidade de imprimir e salvar o arquivo com outro nome.
Case 2
Dim vform As Boolean
'Verifica se o form de reserva está aberto
vform = SysCmd(acSysCmdGetObjectState, acForm, "FNReserva")
If vform = False Then
' quando fechado avisa que o materião não pode ser adicionado a reserva
MsgBox " Este botão só pode ser utilizado quando a tela de reservas está aberta"
Else
'adicionar material a lista de reserva
If IsNull(Me.idtbmaterial) = False Then 'verifica se o material não é nulo
addrmaterial (idanexo)
Else
MsgBox "Este não é um material válido para ser adicionado", vbOKOnly, "Aviso"
End If
End If
End Select
Else
MsgBox "Você deve primeiro selecionar um arquivo para fazer o pedido", , "Aviso"
End If
End Sub

Boa noite Flávio,como vai essa dúvida?