|
今の所、原因が何なのか解りませんが、下記コードを新規ブックに貼り付けて、
問題のブックをアクティブにして実行してみてください。
その結果を教えてください。
Sub シートのマクロ有無()
Dim MCode As String, SCode As String, Flg As Boolean
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
MCode = Empty
Select Case VBC.Type
Case 100
ss = VBC.Name
With VBC.CodeModule
On Error Resume Next
MCode = .Lines(1, .Countoflines)
If Err = 0 Then
SCode = SCode & vbCrLf & VBC.Name & vbCrLf & MCode
End If
Err.Clear
On Error GoTo 0
End With
Case Else
MsgBox VBC.Name & "が、残っています。"
Flg = True
End Select
Next
End With
If SCode <> Empty Then
MsgBox "マクロのコードあり" & vbCrLf & SCode
Flg = True
End If
If Flg = False Then
MsgBox "マクロはありませんでした。"
End If
End Sub
|
|