Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro para ocultar ou Desocultar um arquivo do Windows pelo Excel VBA

Dúvidas gerais sobre Excel
Avatar do usuário
Alex Abreu
Colaborador
Colaborador
Mensagens: 31
Registrado em: Sáb Jun 30, 2018 4:40 pm
Localização: Rio do Campo/SC
Contato:

Macro para ocultar ou Desocultar um arquivo do Windows pelo Excel VBA

Mensagem por Alex Abreu »

Acaso já exista um tópico tratando sobre o tema por favor moderador unifique com este, ou mova-o para a seção correta
Atenciosamente!
Bom Dia, eu estava fuçando pela internet para achar uma macro ou alguma forma de ocultar um determinado arquivo de texto de uma pasta do windows para que usuários leigos não enxerguem esse arquivo que contém alguns dados, entanto tropecei nesse site de onde peguei a referência para o código abaixo:

Código: Selecionar todos

Sub HideUnhideFile(pstrFilespec As String, pblnShowFile As Boolean)
'*** Habilite a Referência Windows Scripting no menu Ferramentas ***
Dim fs, f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(pstrFilespec)
If pblnShowFile Then
f.Attributes = f.Attributes And (Not vbHidden)
Else
f.Attributes = f.Attributes Or vbHidden
End If
End Sub

Sub teste_ocuto()
'Para Ocultar um Arquivo segue o exemplo abaixo:
HideUnhideFile (ActiveWorkbook.Path & "\temp\Backup Usuário Desenvolvedor 16-05-2019.txt"), False

'Para Desocultar um arquivo siga o exemplo abaixo:
HideUnhideFile (ActiveWorkbook.Path & "\temp\Backup Usuário Desenvolvedor 16-05-2019.txt"), True
End Sub
Como já obtive alguma ajuda neste fórum sempre é bom contribuir um pouco hehe


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder