Ir ao conteúdo
  • Cadastre-se

Alex Fernando Junio

Membro Júnior
  • Posts

    5
  • Cadastrado em

  • Última visita

Reputação

0
  1. Fala Galera Beleza? Tenho uma planilha no VBA que estou programando senhas para executar, consegui colocar critérios de utilização para as senhas e bloquear as opções de salvar e salvar como, porém fiz isso usando Subs separadas, o que preciso é que o bloqueio das opções de salvamento só ocorra com um usuário específico ou seja com uma condição, que é uma das senhas, segue q Programação abaixo,, se alguém puder me ajudar. Private Sub Workbook_Open() ActiveSheet.Unprotect "1234" Dim senha As String senha = InputBox("Digite a Senha") If senha = "1234" Then 'não pergunta se quero salvar ao clicar no x MsgBox "Você é um usuário padrão!" Application.EnableCancelKey = xlDisabled Dim dt As Date 'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia) dt = DateSerial(2020, 9, 28) If Date >= dt Then MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador." ThisWorkbook.Close savechanges:=False End If ElseIf senha = "12345" Then MsgBox "Você é um usuário Administrador!" ThisWorkbook.Activate Else MsgBox "Senha Invalida" ThisWorkbook.Close savechanges:=False End If ActiveSheet.Protect "1234" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.Unprotect "1234" If SaveAsUI = True Then Cancel = True Application.EnableEvents = False ThisWorkbook.Save MsgBox "A Opção 'Salvar Como' está desabilitada!" Application.EnableEvents = True End If ActiveSheet.Protect "1234" End Sub 'Não permite usar o botão salvar Private Sub Workbook_AfterSave(ByVal Success As Boolean) ActiveSheet.Unprotect "1234" If Saved = True Then Cancel = True MsgBox "A opção Salvar está desabilitada" End If ActiveSheet.Protect "1234" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveSheet.Unprotect "1234" ThisWorkbook.Close savechanges:=False ActiveSheet.Protect "1234" End Sub
  2. Boa tarde, estou com um dúvida e VBA e gostaria de saber se alguém aqui poderia me ajudar, No meu trabalho temos uma planilha que as vezes precisa ser compartilhada com parceiros, porém por conter dados internos, esses dados não podem ser acessados por muito tempo ou por qualquer um, consegui programar tela de login para acesso porém o que preciso é: Um usuário master com acesso ilimitado e outro com acesso restrito a alguns dias seja a senha expirando ou a planilha autoexcluindo, alguém tem noção de como fazer isso? desde já agradeço
  3. Olá, tenho um problema com um computador.... se alguém puder me ajudar, segue, por favor. Tenho um computador com a placa Gx270 da Dell, ele anteriormente funcionava normalmente com windows 7 mas ocorreu de eu precisar formatar e agora a resolução de tela está em 640x480 e não pode ser alterada, já instalei os drivers, está td ok mas as demais resoluções só funcionam com 256. alguém tem alguma noção doq deveria fazer? Já agradeço.
  4. Olá, preciso de ajuda para solucionar um problema. Tenho um Switch principal e uma rede, desse Switch há vários outros e dentre eles há um roteador Tp-Link, preciso usar o roteador somente como Switch. Porém ao conectar duas máquinas nele o compartilhamento ficam somente entre essas duas máquinas. Criou-se uma rede isolada, como configurar esse roteador com o principal, para q seja apenas uma rede? Se puderem me ajudar agradeço muito.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...