해결
경로 지정 실행 & 매크로 암호화 확인 후 실행 질문드립니다.
야 몇 군데 지정한 폴더에서만 실행 가능하고, 그 외의 경로에서 실행시 해당 파일 삭제 및 해당 경로 폴더를 완적 삭제하는 기능을 구현하고 싶은데 가능한가요?
엑셀 파일 자체 암호화와 별개로 매크로 실행을 하려면 암호 등을 입력해야 실행가능하게 하고 싶은데 이런 것도 가능할까요?
엑셀 파일 자체 암호화와 별개로 매크로 실행을 하려면 암호 등을 입력해야 실행가능하게 하고 싶은데 이런 것도 가능할까요?
a
김
숫
아
혀
신
선
댓글 5
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