Maybe this will help some. Hopefully, it will list the Accountname (owner) of the subfolder and the folder name at least. I am not sure if owner or a folder attribute will help with the permission issue.
Sub ListFoldersAndInfo() ' Tools > References > Microsoft Scripting Runtime > OK
Dim fso As FileSystemObject, fldr As Folder
Dim fPath As String, r As Range
fPath = "c:\Windows"
On Error GoTo Nf
' http://vbaexpress.com/kb/getarticle.php?kb_id=1035
SpeedOn
Set fso = New FileSystemObject
Set r = Range("A2")
For Each fldr In fso.GetFolder(fPath).SubFolders
r.Offset(0, 3).Value2 = FileOwner(fldr.Path)
r.Value2 = fldr.Name
' 1 Byte = 8 Bit
' 1 Kilobyte = 1,024 Bytes
' 1 Megabyte = 1,048,576 Bytes
' 1 Gigabyte = 1,073,741,824 Bytes
' 1 Terabyte = 1,099,511,627,776 Bytes
r.Offset(0, 1).Value2 = Round(fldr.Size / 1048576, 0)
r.Offset(0, 2).Value2 = (fldr.Attributes And System) <> 0 'True, Attribute is set
Nf:
Set r = r.Offset(1)
Next fldr
TheEnd:
SpeedOff
End Sub
'http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1007.mspx
Function FileOwner(strFile) As String
Dim strComputer As String
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Variant
'Application.Volatile True
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" _
& " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem In colItems
'FileOwner = objItem.ReferencedDomainName
FileOwner = objItem.AccountName
Next
End Function