| エクセルで |
| 帳票デザイン |
| ＰＤＦで出力 |
| ＣＳＶ入力で |
| 帳票自動出力 |
| ＣＳＶデータから |
| エクセル帳票 |
| ＰＤＦ帳票を |
| 自動作成 |
| 暗号化と |
| パスワード設定 |
| コマンドラインで |
| 全自動処理 |
| 全データの |
| 自動バックアップ |
| 相手先毎に |
| 添付メールで |
| 自動送信 |
 |
| Excel Mailer |
| |
| PDF Mailer |
|
- 概要
各種のデ−タをエクセルファイルとして貯蔵したり、EXCELファイルをメール添付インターネット経由で送受することが増えています。また、本格的な企業間データ交換（ＥＤＩ）にもメール添付インターネット経由でExcelファイルを送受する方式なども増えています。
このような際、安全度を少しでも高めるため、Excelファイルにパスワードを設定しておくのが望ましいと言えます、
ここでは、手操作でEXCELファイルにパスワードを設定・解除する方法、並びにこの手順を自動化するためのVBSプログラムをご紹介します。
- 設定と解除方法
手操作でEXCELファイルにPasswordを設定するには、通常下記のように行います。
開かれたEXCEL画面上で、
名前を付けて保存 → ツール → 全般オプション → 読み取りパスワード設定
ここで、パスワードを入れて OK 押下すればよく、設定欄を消去(NULL)して進めれば解除されます。
尚、セットする際に入れたパスワードは絶対忘れないようにして下さい。
この操作を自動実行するためのVBSプログラムは下記の通りです。
下記２種類のコーディングに任意の名前を付け拡張子はVBS、そして任意の場所に貯蔵します。
下記コーディング中の、xls_edit_file = "C:\temp\Book1.xls" を目的EXCELファイル名および当該
貯蔵場所に変更し、それぞれのプログラムを実行させて下さい。
- パスワードの設定のための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 "終了"
- パスワードの解除のための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 "終了"
|