As a test I just created a macro to create a point on every layer. Now All thawed/on layers come across. Come on AutoDesk, Fix This!
Here is the code. I am using Xdata so I can Blow Away the points easily.
Private Sub cmdCLPts_Click()
Dim vPt As Variant, aPt As AcadPoint, aBlk As AcadBlock, aLay As AcadLayer
Dim xType(0 To 1) As Integer, xData(0 To 1) As Variant
xType(0) = 1001: xData(0) = "LAYER VISIBILITY PT"
xType(1) = 1000: xData(1) = "Come on AutoDesk!"
Hide
Set aBlk = ThisDrawing.ActiveLayout.Block
vPt = GetPointex(, "Pick Layer Visbility Point")
If (bAcadError) Then
Show
Exit Sub
End If
For Each aLay In ThisDrawing.Layers
Set aPt = aBlk.AddPoint(vPt)
aPt.Layer = aLay.Name
aPt.SetXData xType, xData
aPt.Update
Next
Show
End Sub