プロジェクト放出VBAパスワード
を参照して詳細に第一工程：
次のコードは、第二の方法VBAであります
「ニーズが近い（それはXLSMファイルがある場合、あなたはバージョン97から03 XLSファイルとして保存する必要があります）Excelファイルが含まれているマクロコードを使用する前に、パスワード保護のロックを解除する必要があります 」VBAエディタを開くには、新しいExcelワークブック、Altキー+ F11を作成します、新しいモジュールは、次のコードをコピーし 「取り外し可能な保護コーディングVBA サブMoveProtect（） 薄暗いファイル名としての 文字列 ファイル名 = Application.GetOpenFilename（" Excelファイル（* * * .XLS＆.XLA）、XLS *; .. * XLAを"、 、「VBA割れ」） であればファイル名= CStr関数（偽）次に 、終了サブ エルス VBAPasswordファイル名、Falseの 終了 の場合 End Subの 'が保護VBAのコーディングを提供しました サブSetProtect（） 薄暗いファイル名として 文字列 のFileName = Application.GetOpenFilename（" エクセル文件（* .XLS＆* .XLA）、* XLS; *。XLA "、" VBA破解" ） であればファイル名= CStr関数（偽）次に、 出口サブ エルス VBAPasswordファイル名、トゥルー エンド の場合 End Subの プライベート ファンクション VBAPassword（ファイル名として 文字列、オプションの保護として ブール = 偽） もし ディレクトリ（ファイル名）= 「」 そして、 終了関数 エルス FILECOPYファイル名、ファイル名＆「.BAK 」 終了 の場合 薄暗いのGetData として 文字列 * 5 オープンファイル名についてはバイナリとして＃1 点心のCMG として ロング 点心 DPBo として ロング のために I = 1 に LOFは、（1 ） を取得＃1を、私は、GetDataの IFのGetData = 「CMGは=」「」 その後のCMG = I IFのGetData = 「[ホスト」 すると DPBO = I - 2：出口 のために 次の IFのCMG = 0 その後 のMsgBox 「パスワード保護VBAのエンコーディングを設定してください... 」、32、「プロンプト」 終了関数は、 終了 した場合 Ifは保護= Falseを 次に 薄暗い聖としての 文字列 * 2 薄暗い S20をAS 文字列 * 1 ' 16進数の文字列を取得するためには、0D0A 取得＃を。1 - 、のCMG 2 、Stは ' 20進数の文字列を取得するため のGet＃を1。、DPBO + 16 、S20 " コードの暗号化機械部品を交換する ために I CMGは= ために DPBO ステップ 2 プット位のを1 、I、セント 次に 「追加の不対シンボル 場合（DPBO -のCMG）モッド 2 <> 0 そして プットの＃1、DPBO + 。1 、S20 終了 する場合 のMsgBox 「ファイルの復号化が成功した...... 」、32、「ヒント」 エルス 点心のMM としての 文字列 * 5つ のMM = 「DPB =」「」 プット＃の1 、のCMG、のMM のMsgBox " 特殊なファイルの暗号化の成功。 ..... 「32、」プロンプト" 終了 する場合を 閉じる＃使用1 エンド機能を