Etc./Excel VBA8 MS Office VBA 프로젝트 암호 제거 방법 .xlsm 또는 .dotm 파일 잠금 해제 방법 파일 확장자 변경.xlsm 파일의 확장자를 .zip으로 변경한다.압축 파일 열기WinZip 또는 WinRar 등으로 .zip 파일을 열고 xl 폴더로 이동한다.vbaProject.bin 파일 추출해당 폴더에서 vbaProject.bin 파일을 추출하고, 이를 Hex 에디터로 연다.(HxD를 추천한다. 무료이며 가볍다.)DPB 찾기 및 변경vbaProject.bin 파일에서 DPB를 검색한 후, 이를 DPx로 변경하고 파일을 저장한다.파일 교체수정한 vbaProject.bin 파일을 .zip 파일 내 기존 파일과 교체한다.파일 확장자 복원.zip 파일의 확장자를 다시 .xlsm으로 변경한다.파일을 열고 경고 메시지를 무시하며 진행한다. 참고https://st.. 2025. 1. 3. Efficient resolution of the Colebrook-White equation 개요 비압축성 유체가 파이프를 흐를 때 마찰에 의한 수두손실 계산을 위한 Darcy friction factor를 구하는 VBA Code이다. Reynolds Number 2300 미만은 층류유동으로 friction factor f=64/Re로 계산이 되고, 천이 및 난류유동에서는 Colebrook의 공식 의해 Darcy friction factor를 계산할 수 있다. 아래 VBA Code는 D. Clamond의 논문에 언급된 Matlab Code를 참고하여 수정한 것이다. VBA CODE 'Colebrook Equation ' 'This VBA code was coded by referring to matlab code by D. Clamond 'Clamond D. Efficient resolution.. 2023. 1. 20. 엑셀 탭 이름 리스트로 만들기 Sub shtName_List() For i = 1 To ActiveWorkbook.Sheets.Count Cells(i, 1).Value = Sheets(i).Name Next i End Sub 2023. 1. 17. Excel파일 PDF 변환 '#################################################################################################################################################################################################################### 'Excel2PDF: 2015.10.03, icarus. 'Version 1.0 '##########################################################################################################################################.. 2023. 1. 17. 하이퍼링크로 지정된 경로의 파일 다운로드 Sub File_Download() Dim i, l As Integer l = InputBox("자료를 다운받을 마지막 행을 입력하세요.", "행 입력") For i = 1 To l Range("C" & i).Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Application.Wait DateAdd("s", 2, Now) '다음파일 다운로드까지 시간지연 2초, 시간을 변경하려면 숫자를 수정할 것 Next i = i + 1 End Sub 2023. 1. 17. Delete HyperLinks Sub dhDeleteAllHyperLinks() Dim s As Object For Each s In Sheets s.Hyperlinks.Delete Next s End Sub 2013. 11. 26. 이전 1 2 다음 728x90 반응형
