Notifications
Clear all

Senha para exibir Application

4 Posts
4 Usuários
0 Reactions
883 Visualizações
(@ideeh)
Posts: 1
New Member
Topic starter
 

Bom dia, tarde ou noite!

Sou novo em VBA mas já sei algumas coisinhas (quase nada)

Onde eu trabalho, uso varias planilhas que estão espalhadas, para isso, criei um Form com algumas delas para ficar mais fácil e rápido de abri-las.
O Form é bem básico, só com alguns botoes para abrir as planilhas.
O "problema":

Usei os códigos para que quando abri-se a planilha que se localiza o Form, o fundo (Application) fosse ocultado e deixasse visível somente a Form para ninguém mexer no fundo e nem nos codigos. Só que dai, se eu precisa-se alterar o código não iria conseguir mais, então, fiz o seguinte, coloquei um Text no fim do Form como "Modo Depurador" para que quando clica-se nele, iria deixar o fundo visível novamente e dai poder mexer no Depurador. Maaas, eu queria que quando clica-se no "Modo Depurador", fosse solicitado uma senha para desbloquear o fundo.

Vou deixar a planilha com o Form em anexo para que vocês entendam.

 
Postado : 11/02/2016 10:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pq vc não cria uma tecla de atalho que só vc saberá, e assim não precisa programar a senha.... não é boa ideia ?

Dá uma olhada em Application.OnKey

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/02/2016 12:21 pm
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Olá amigo.
Segue anexo...

Att,

Francisco

 
Postado : 11/02/2016 6:55 pm
Trindade
(@trindade)
Posts: 278
Reputable Member
 

Boa noite, iDeeh.

Uma forma simples de fazer isso seria assim:

Private Sub Label1_Click()

Dim VarSenha As Variant
Dim Senha As String

Senha = "ABC123"

VarSenha = Application.InputBox("Você não tem direito de utilização da aplicação." & vbCrLf & vbCrLf & "Informe a senha administrador!", "Acesso restrito", "Senha")

If VarSenha = False Then Exit Sub

If VarSenha = Senha Then
    Application.Visible = True
    UserForm1.Hide
End If

End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 11/02/2016 10:18 pm