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

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

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

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

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

Twitterフォロー

Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー

Follow @takabou63

カテゴリーで絞る

月で探す

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

taka

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

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

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

プログラムの流れ

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

Twitterフォロー

Sponsored Link

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

現在のオンライン数

翻訳【translation】

プロフィール

当サイトの環境について

最近の投稿

Twitter

メニュー

月別の投稿

カテゴリー

Twitter

カテゴリーで絞る

月で探す

taka

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

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

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

プログラムの流れ

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

Twitterフォロー

Sponsored Link

関連記事

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

関連記事

現在のオンライン数

翻訳【translation】

プロフィール

当サイトの環境について

最近の投稿

人気記事

Twitter

メニュー

月別の投稿

カテゴリー

Twitter

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