VBA 프로젝트 암호에 대한 VBA 코드 제거
CSDN 블로그(2012)에도 아래 코드와 완전히 일치하고 오리지널로 표시된 것을 보았습니다.또 다른 CSDN 블로그(2013)는 다른 버전으로 전재된다.
Private Sub VBAPassword()
' Excel
Filename = Application.GetOpenFilename("Excel (*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA ")
If Dir(Filename) = "" Then
MsgBox " , 。"
Exit Sub
Else
FileCopy Filename, Filename & ".bak" ' 。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox " VBA ...", 32, " "
Exit Sub
End If
Dim St As String * 2
Dim s20 As String * 1
' 0D0A
Get #1, CMGs - 2, St
' 20
Get #1, DPBo + 16, s20
'
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox " ......", 32, " "
Close #1
End Sub
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Excel VBA에서 SIR 모델을 구현합니다.신형 코로나 바이러스(COVID-19)의 환자수 추이를 나타내는 수리 모델 「SIR 모델」을 자주(잘) 보게 되었습니다. SIR 모델에서는 감염되지 않은 사람을 S(susceptible), 감염자를 I(infecti...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.