몇 군데 지정한 폴더에서만 실행 가능하고, 그 외의 경로에서 실행시 해당 파일 삭제 및 해당 경로 폴더를 완적 삭제하는 기능을 구현하고 싶은데 가능한가요?
엑셀 파일 자체 암호화와 별개로 매크로 실행을 하려면 암호 등을 입력해야 실행가능하게 하고 싶은데 이런 것도 가능할까요?
커뮤니티 전체
경로 지정 실행 & 매크로 암호화 확인 후 실행 질문드립니다.
야나두 Lv.2
📅 2020년 01월 25일 23:26
👁 조회 1.3만
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 973 / 978게시글 제목
날짜
조회
추천
2020.03.01
조회 7,872
3
답글 1
2020.02.29
조회 5,249
1
답글 1
2020.02.29
조회 5,619
1
답글 1
2020.02.28
조회 7,020
1
답글 1
2020.02.28
조회 5,941
0
답글 1
2020.02.28
조회 5,966
0
답글 1
2020.02.28
조회 1.3만
4
답글 3
2020.02.28
조회 5,085
0
답글 1
2020.02.28
조회 6,327
0
답글 2
2020.02.27
조회 5,713
1
답글 1
해결
2020.02.27
조회 5,887
0
답글 3
2020.02.26
조회 5,815
0
답글 5
2020.02.25
조회 1.6만
0
답글 2
2020.02.25
조회 7,901
1
답글 2
2020.02.24
조회 6,013
0
답글 2
2020.02.22
조회 1.1만
1
답글 2
2020.02.21
조회 1.6만
1
답글 4
해결
2020.02.21
조회 6,234
1
답글 2
2020.02.20
조회 1.1만
0
답글 2
2020.02.19
조회 1.3만
2
답글 4
1. 특정 경로에서만 실행가능하고 그렇지 않을경우 파일 삭제
Kill 함수를 사용하면, 휴지통에 보관되지 않게 파일을 영구삭제할 수 있습니다.
아래 명령문을 응용해보시겠어요? ^^ WorkBook_Open 이벤트를 응용하시면 됩니다.
Dim sFilePath As String
sFilePath = WB.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill sFilePath
MsgBox "보안 문제로 해당파일은 영구 삭제되었습니다. 관리자에게 문의하세요. info@oppadu.com"
Application.ActiveWorkbook.Close SaveChanges:=False
End Sub
첨부파일을 확인해보세요. 첨부파일은 GetDesktopPath 함수를 응용하여, 바탕화면에서만 실행가능하고 그렇지 않을경우 파일이 영구삭제 됩니다.
path로 경로를 설정하는건 이해하지만, 워크북 오픈 이벤트랑 어떻게 연계랑 지어야할지 잘 모르겠습니다.
감사합니다.
가능합니다. 첨부파일을 확인해보시겠어요?^^
Dim UserPass As String
UserPass = InputBox(Prompt & " 을 실행하려면 비밀번호를 입력하세요.", "비밀번호 입력")
If UserPass <> PW Then
MsgBox "잘못된 비밀번호입니다. 다시 입력하세요.", vbCritical, "잘못된 비밀번호"
End
End If
End Sub