【VBA】特定のフォルダ内の全ファイルを非表示にする方法

日々の業務では、大量のファイルやデータの整理が必要となります。特に特定のフォルダ内の全ファイルを一括で非表示に設定したい場合、手作業では時間がかかります。この記事では、Excel VBAを使って効率的に解決する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub MakeFilesHidden()
    Dim fso As Object, folder As Object, file As Object
    Dim folderPath As String
    
    ' フォルダパスの指定
    folderPath = "C:\YourFolderPath" ' 自分でフォルダパスを設定してください。
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' エラー処理
    On Error GoTo ErrorHandler
    
    If Not fso.FolderExists(folderPath) Then
        MsgBox "指定されたフォルダが存在しません。", vbExclamation
        Exit Sub
    End If
    Set folder = fso.GetFolder(folderPath)
    For Each file In folder.Files
        ' ファイルを非表示にする属性設定
        file.Attributes = file.Attributes Or 2 ' Hidden属性を追加
    Next file
    MsgBox "ファイルの非表示化が完了しました。", vbInformation
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

フォルダパスやファイル名が正しいか確認してください。また、アクセス権限があるかも確認してみてください。