|
▼Jaka さん:
親切にありがとうございます。
実行しましたら、マクロはありませんでした。
との答えがでました。
なぜでしょうね。
▼Jaka さん:
>今の所、原因が何なのか解りませんが、下記コードを新規ブックに貼り付けて、
>問題のブックをアクティブにして実行してみてください。
>その結果を教えてください。
>
>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
|
|