パスワード付きのバックアップを作成する方法

1 password付のファイルを作成するには

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

password付のファイルを作成するには

password付のファイルを作成するにはWorkbook.SaveAs メソッドの【Password】を使用します。

Workbook.SaveAs メソッドPasswordを使う場合の書式

Workbook.SaveAs メソッドPasswordを使う場合はこのような形になります。

保存するファイル.SaveAs　ファイル名を含むフルパス, Password:=設定するパスワード

1	保存するファイル.SaveAs　ファイル名を含むフルパス, Password:=設定するパスワード

分かりずらく申し訳ありません(*_*;

習うより慣れろという事で下記にプログラムを作成しましたので是非参考にでもしてください( ^^) _旦~~

プログラムの流れ

さて今回のプログラムは大まかに3つの流れに沿っていきます。

passwordを設定する
保存する先を選択する
パスワード付きのBook保存

今回の表題としては3番が一番重要です＼(◎o◎)／！

Sub sample()
'このコードを使用する場合はMicrosoft Scripting Runtimeを参照設定してください。
Dim objFS As New FileSystemObject
Dim ofdFD As Office.FileDialog
Dim strPath, Pass As String
Dim res As Integer
'passwordを設定
Pass = InputBox("Backupファイルにかけるパスワードを入力してください。", "パスワード設定")
If Pass = "" Then Exit Sub
On Error GoTo Error1
strPath = ThisWorkbook.Path 'このVBAコードのあるファイルのパスを指定
'選択する方法の設定今回の【msoFileDialogFilePicker】はファイルを選択する設定
Set ofdFD = Application.FileDialog(msoFileDialogFolderPicker)
With ofdFD 'ダイヤログボックスの設定
'ダイヤログボックスのファイル表示の設定
.InitialView = msoFileDialogViewDetails
'初期表示フォルダの設定【 & "\"】がないとファイル名がフォルダ名になってしまうので注意
.InitialFileName = strPath & "\"
'複数選択をしないよう設定
.AllowMultiSelect = False
End With
If ofdFD.Show() = -1 Then  'OKや参照・開くなどを押すと返り値【-1】が返ってくる
Application.DisplayAlerts = False
'Backup後の保存先＆ブック名
ActiveWorkbook.SaveAs ofdFD.SelectedItems(1) & "\" & "psBackupFile.xlsm", Password:=Pass 'Backup保存するコード
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
Exit Sub
Else
MsgBox "キャンセルが押されました"
End If
Set ofdFD = Nothing
Error1: 'エラーが発生した場合はここへ飛ぶ
MsgBox "エラー番号:" & Err.Number & vbLf & _
"エラー内容：" & Err.Description & vbLf
End Sub

Sub sample()

'このコードを使用する場合はMicrosoft Scripting Runtimeを参照設定してください。

Dim objFS As New FileSystemObject

Dim ofdFD As Office.FileDialog

Dim strPath, Pass As String

Dim res As Integer

'passwordを設定

Pass = InputBox("Backupファイルにかけるパスワードを入力してください。", "パスワード設定")

If Pass = "" Then Exit Sub

On Error GoTo Error1

strPath = ThisWorkbook.Path 'このVBAコードのあるファイルのパスを指定

'選択する方法の設定今回の【msoFileDialogFilePicker】はファイルを選択する設定

Set ofdFD = Application.FileDialog(msoFileDialogFolderPicker)

With ofdFD 'ダイヤログボックスの設定

'ダイヤログボックスのファイル表示の設定

.InitialView = msoFileDialogViewDetails

'初期表示フォルダの設定【 & "\"】がないとファイル名がフォルダ名になってしまうので注意

.InitialFileName = strPath & "\"

'複数選択をしないよう設定

.AllowMultiSelect = False

End With

If ofdFD.Show() = -1 Then 'OKや参照・開くなどを押すと返り値【-1】が返ってくる

Application.DisplayAlerts = False

'Backup後の保存先＆ブック名

ActiveWorkbook.SaveAs ofdFD.SelectedItems(1) & "\" & "psBackupFile.xlsm", Password:=Pass 'Backup保存するコード

ThisWorkbook.Close savechanges:=False

Application.DisplayAlerts = True

Exit Sub

Else

MsgBox "キャンセルが押されました"

End If

Set ofdFD = Nothing

Error1: 'エラーが発生した場合はここへ飛ぶ

MsgBox "エラー番号:" & Err.Number & vbLf & _

"エラー内容：" & Err.Description & vbLf

End Sub

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

パスワード付きのバックアップを作成する方法

taka

最新記事 by taka (全て見る)

password付のファイルを作成するには

Workbook.SaveAs メソッドPasswordを使う場合の書式

プログラムの流れ

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

コメントを残すコメントをキャンセル

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

password付のファイルを作成するには

Workbook.SaveAs メソッドPasswordを使う場合の書式

プログラムの流れ

フォロー・チャンネル登録お願いします

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBAで画面の解像度を取得する方法(API)

sheet名の一覧をダブルクリックし対象のsheetに移動させる

VBA ユーザーフォームのデザインを考えてみる(アニメーション効果作成)

VBA ユーザーフォームにPDFを表示する方法

時間で閉じるメッセージボックスを作成する方法

数値だけが入力できるTextBoxを作成する方法

VBA【GetTickCount関数(API)】で処理の時間を取得する

VBA ﾘｽﾄﾎﾞｯｸｽの一番下を表示させる方法

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル

VBA　ﾘｽﾄﾎﾞｯｸｽの一番下を表示させる方法