もくじ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
- 【雑記】親知らず(水平埋没知歯)を抜きました！ - 2018年10月10日
- VBA SimpleAPIを使ってWikipediaの情報を簡単に取得してみた - 2018年10月3日
どうもtakaです(^^♪
12月ももう後半になりましたね(;^ω^)
今年も もう残すところ2週間となりました(;^ω^)
そんな中、未だ今月2投稿目という残念な状態で申し訳ありません、もう少し頑張ります(T_T)
さて、今回は【PassWord付きのbookを作成する方法】についてご紹介します(;´Д｀)
password付のファイルを作成するには
password付のファイルを作成するにはWorkbook.SaveAs メソッドの【Password】を使用します。
Workbook.SaveAs メソッドPasswordを使う場合の書式
Workbook.SaveAs メソッドPasswordを使う場合はこのような形になります。
1 | 保存するファイル.SaveAs ファイル名を含むフルパス, Password:=設定するパスワード |
習うより慣れろという事で下記にプログラムを作成しましたので是非参考にでもしてください( ^^) _旦~~
プログラムの流れ
さて今回のプログラムは大まかに3つの流れに沿っていきます。
- passwordを設定する
- 保存する先を選択する
- パスワード付きのBook保存
今回の表題としては3番が一番重要です＼(◎o◎)／！
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | 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サイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す