パスワード パスワードを使用しブックを開く
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| Public Sub psbブックを開く(myPath As String) '******************************************************************************* 'パスワードを使用しブックを開く '******************************************************************************* '’画面更新無効 Application.ScreenUpdating = False '’変数の定義 Dim TargetBook, strFileName As String strFileName = Dir(myPath) 'ファイル名を取得 ''error発生の場合次へ・・ On Error Resume Next ''該当Ｂｏｏｋをセット Set TargetBook = Workbooks(strFileName) '’error発生の場合無効 On Error GoTo 0 '’既に開かれていた場合 If IsObject(TargetBook) Then '’保存なしにて閉じる Workbooks(strFileName).Close savechanges:=False End If '’セット終了 Set TargetBook = Nothing '’ターゲットブックを変更可にてオープン With Workbooks .Open Filename:=(myPath), ReadOnly:=False, Password:=fncPass End With End Sub |