다음을 통해 공유

이 통합 문서에서 사용할 수 없는 매크로이거나 모든 매크로를 사용하지 못할 수 있습니다.

Yongtae Kim 0 평판 포인트
2024-05-09T11:29:56.0566667+00:00

'테스트용

Private Sub test_Click()

If test.Caption = "test" Then

    Dim text As String

    text = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") - 1)

    test.Caption = text

    log_write (Time)

    

    Dim targetTime As Date

    targetTime = Now + TimeValue("00:00:03") ' 현재 시간에서 3초 뒤

    Application.OnTime targetTime, "TestProcedure"

    MsgBox "3초 뒤 메세지가 뜨게 설정했습니다."

Else

    test.Caption = "test"

End If

End Sub

Private Sub TestProcedure()

MsgBox "3초가 경과했습니다."

End Sub


이렇게 작성 후 test 버튼을 클릭하면 "3초 뒤 메세지가 뜨게 설정했습니다" 라는 메세지 박스는 뜹니다. 이후 3초뒤에 TestProcedure() 이 동작해야 하는데, "\c://~~생략, 이 통합 문서에서 사용할 수 없는 매크로이거나 모든 매크로를 사용하지 못할 수 있습니다." 라는 문구가 나옵니다.

검색해보니 콘텐츠사용이나 보안설정을 해보라고 해서 콘텐츠 사용 설정도 완료하고, 보안설정도 모든매크로사용, 개발자매크로사용 설정했는데도 안되네요. 현재 32bit 엑셀 사용하고 있습니다. 다른 해결방법이 있을까요?

Microsoft Q&A
Microsoft Q&A
이 태그를 사용하여 제안, 기능 요청 및 버그를 Microsoft Q&A 팀과 공유합니다. Microsoft Q&A 팀은 정기적으로 피드백을 평가하고 그 과정에서 업데이트를 제공합니다.
질문 330개
댓글 0개 설명 없음
투표 {count}개

답변

질문 작성자가 수락한 답변이라고 답변에 표시할 수 있으며, 이를 통해 작성자의 문제를 해결한 답변을 사용자가 알 수 있도록 도와줍니다.