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: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!
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