设置VBA编码保护.docVIP

设置VBA编码保护 Sub SetProtect() Dim FileName As String FileName = Application.GetOpenFilename(Excel文件（*.xls *.xla）,*.xls;*.xla, , VBA破解) If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, True End If End Sub Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False) If Dir(FileName) = Then Exit Function 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