Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
PLANILHA E EXCLUIDA...
 
Notifications
Clear all

PLANILHA E EXCLUIDA ANTES DE ABRIR - VBA

 
2024 - VBA & Macros
Post Recente por NERI S 7 anos atrás
3 Posts
3 Usuários
0 Reactions
1,103 Visualizações
RSS
 MIOJO
(@miojo)
Posts: 7
Active Member
Topic starter
 

Boa noite.

Pessoal estou precisando de uma ajuda, estou necessitando de uma macro, que ao abrir uma planilha com senha, caso o usuário erre por duas ou três vezes essa senha, ela se auto excluíra, pesquisando na net, achei uma macro que se auto exclui após expiração de determinada data, estou tentado modifica-la para minha necessidade, mas não estou tendo sucesso, alguém poderia me ajudar ?

Macro para excluír planilha após expirar data.

Private Sub Workbook_Open()

Dim dtexp As Date

dtexp = ("08/01/2018")

If Date >= #5/01/2018# Then
If Date >= dtexp Then

ThisWorkbook.Saved = True

MsgBox "Este arquivo está expirado, esta planilha se autoexcluira"

ThisWorkbook.ChangeFileAccess xlReadOnly

Kill ThisWorkbook.FullName
ThisWorkbook.Close

End If
End If

End Sub

Desde já grato pela ajuda.

 
Postado : 02/04/2018 6:44 pm
 suporte100
(@suporte100)
Posts: 55
Trusted Member
 

Ola, este código não auto exclui, mas ele trava para não abrir (somente com senha)

'colar na pasta de trabalho
Private Sub Workbook_Open()

Dim exdate As Date

'data de expiração
exdate = "15/05/2018"

If Date > exdate Then
varNum = Application.InputBox("A planilha expirou, entre em contato com administrador", "Revalidação do prazo", "####")

'senha para abrir novamente.

If varNum = 3636 Then
Exit Sub
End If
MsgBox ("Senha Incorreta, por gentileza solicitar validação para o Administrador!")
ActiveWorkbook.Close
End If

MsgBox ("Você têm " & exdate - Date & " Dias restantes")

End Sub

 
Postado : 09/04/2018 1:15 pm
NERI S
 NERI S
(@neri-s)
Posts: 0
Estimable Member
 

Eu tenho uma planilha que funciona assim (só Exemplo):
- Planilha Clientes;
- Planilha compras;
- planilha contas;
- Planilha Inicial - Esta planilha fica oculta antes do vencimento

Enquanto a planilha está dentro do prazo, nada acontece. Ao vencer, as planilhas Clientes, Compras e Contas são Ocultas e é reexibido a planilha inicial com as informações que quiser colocar tipo "Planilha Vencida", etc, etc......

Lembre-se que tem que fazer com que a VBA oculte no VISIBLE: 2 - xlSheetVeryHidden e além disto você coloque senha no seu VBA (Dentro do VBA) Ferramentas + Propriedades VBA + Proteção

É interessante esta maneira.... além da sua, só mais um opção...

 
Postado : 09/04/2018 1:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico