안녕하세요!

아별님!!

VBA를 공부 하고,업무에 활용하고자 합니다

하기 VBA에서  VBA_1 이 두번 연속으로 실행 안되게 합니다
여기서 두번 연속 실행시  하기의 경고 메세지를 출력되게 하고 싶습니다(같은자리에 입력으로 데이터 겹쳐짐 방지)
'MsgBox "두번연속 입력입니다,입력 데이터를 확인 하세요☞ !", vbExclamation, " Programing By jhkim"
어느 부위에 추가를 해야 하는지요??
 아래VBA는 2번연속  VBA_1 이 실행 되지는 않으나 경고 메세지 출력어 없어 알수가 없어 경고 메세지창을 출력 하고자 합니다

정상 실행 순서는 VBA_1  >>> VBA_2  >> 실행1,또는2 는 정상 실행
이렇게 실행시는 VBA_1  >>> VBA_1  >>  실행이 안되고 경고 메세지 출력되게 하려고 합니다

Dim bln As Boolean
 
Sub VBA_1()  '2번 연속으로 실행안되게 하는 메뉴
If bln Then Exit Sub
bln = True                                       '이곳 어디에 2번 연속 실행시 경고 메세지 출력을 추가 하고 싶어요
data입력국내1
End Sub
 
Sub VBA_2()
  If bln Then bln = False
  data입력해외3
End Sub
 
Sub VBA_ALL()
   If bln Then bln = False
  Main일일1
End Sub

Sub VBA_ALL2()
   If bln Then bln = False
  Main전체1
End Sub

Sub 실행1()
If MsgBox("정말로 명령을 실행할까요?,실행이후는 취소가 불가능 합니다", vbYesNo + vbDefaultButton2) = vbYes Then Call VBA_ALL          '실행여부를 묻는 명령 추가
End Sub

Sub 실행2()
If MsgBox("정말로 명령을 실행할까요?,실행이후는 취소가 불가능 합니다", vbYesNo + vbDefaultButton2) = vbYes Then Call VBA_ALL2             '실행여부를 묻는 명령 추가
End Sub