Tools & Informations

EXCELファイルへのパスワード セットとクリア(自動化)方法

エクセルで
帳票デザイン
PDFで出力
CSV入力で
帳票自動出力
CSVデータから
エクセル帳票
PDF帳票を
自動作成
暗号化と
パスワード設定
コマンドラインで
全自動処理
全データの
自動バックアップ
相手先毎に
添付メールで
自動送信
Excel Mailer
 
PDF Mailer
  1. 概要
    各種のデ−タをエクセルファイルとして貯蔵したり、EXCELファイルをメール添付インターネット経由で送受することが増えています。また、本格的な企業間データ交換(EDI)にもメール添付インターネット経由でExcelファイルを送受する方式なども増えています。
    このような際、安全度を少しでも高めるため、Excelファイルにパスワードを設定しておくのが望ましいと言えます、
    ここでは、手操作でEXCELファイルにパスワードを設定・解除する方法、並びにこの手順を自動化するためのVBSプログラムをご紹介します。


  2. 設定と解除方法
    手操作でEXCELファイルにPasswordを設定するには、通常下記のように行います。
    開かれたEXCEL画面上で、
    名前を付けて保存 → ツール → 全般オプション → 読み取りパスワード設定
    ここで、パスワードを入れて OK 押下すればよく、設定欄を消去(NULL)して進めれば解除されます。
    尚、セットする際に入れたパスワードは絶対忘れないようにして下さい。

    この操作を自動実行するためのVBSプログラムは下記の通りです。
    下記2種類のコーディングに任意の名前を付け拡張子はVBS、そして任意の場所に貯蔵します。
    下記コーディング中の、xls_edit_file = "C:\temp\Book1.xls" を目的EXCELファイル名および当該 貯蔵場所に変更し、それぞれのプログラムを実行させて下さい。

    1. パスワードの設定のためのVBSコーディング

      ' Password Set Program.
      Option Explicit
      On Error Resume Next
      Dim xls_edit_file
      xls_edit_file = "C:\temp\Book1.xls"
      Dim Password
      Password = "33505055" ' セットしたいパスワードをここにセットする。
      Dim NullStr
      NullStr = "" ' Null String をセット。
      Dim Excel_Obj
      Dim Book_1
      '--------------------------------------------------------------
      Set Excel_Obj = WScript.CreateObject("Excel.Application")
      Excel_Obj.Application.DisplayAlerts = False '警告が出ないように設定
      Excel_Obj.Visible = False
      Set Book_1 = Excel_Obj.WorkBooks.Open(xls_edit_file,,,,NullStr) ' 空の文字列でオープンする。
      Book_1.SaveAs xls_edit_file,,Password ' 書き込み時パスワードを指定する。
      Book_1.Close
      Excel_Obj.Quit
      '--------------------------------------------------------------
      ' MsgBox "終了"


    2. パスワードの解除のためのVBSコーディング

      ' Password Clear Program.
      Option Explicit
      On Error Resume Next
      Dim xls_edit_file
      xls_edit_file = "C:\temp\Book1.xls"
      Dim Password
      Password = "33505055" ' セットされているパスワードをここにセットする。
      Dim NullStr
      NullStr = "" ' Null String をセット。
      Dim Excel_Obj
      Dim Book_1
      '--------------------------------------------------------------
      Set Excel_Obj = WScript.CreateObject("Excel.Application")
      Excel_Obj.Application.DisplayAlerts = False '警告が出ないように設定
      Excel_Obj.Visible = False
      Set Book_1 = Excel_Obj.WorkBooks.Open(xls_edit_file,,,,Password) ' オープン時パスワードを指定する。
      Book_1.SaveAs xls_edit_file,,NullStr ' 書き込み時パスワード欄を空の文字列とする。
      Book_1.Close
      Excel_Obj.Quit
      '--------------------------------------------------------------
      ' MsgBox "終了"



E-mail : webmaster@global.co.jp Copyright (C) Global Network, Ltd. All Rights Reserved.
本ホームページに掲載の会社名および製品名は各社の登録商標または商標です。