VBA Excle 取消保護 方法1 使用VBA 腳本 Alt +F11 貼上語法執行: Private Sub VBAPassword() 'The path to the Excel file you want to unprotect Filename = Application.GetOpenFilename("Excel file (* .xls & * .xla & * .xlt), *. Xls; *. Xla; *. Xlt", , "VBA crack") If Dir(Filename) = "" Then MsgBox "No related files found, please reset." Exit Sub Else FileCopy Filename, Filename & ".bak" 'Backup file. 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 "Please set a protection password for VBA encoding ...", 32, "Tip" Exit Sub End If Dim St As String * 2 Dim s20 As String * 1 'Get a 0D0A hexadecimal string Get #1, CMGs - 2, St 'Get a 20 sixteen string Get #1, DPBo + 16, s20 'Replace