[[20060114074813]]　『ブックの保護のパスワードを自動で処理したい』（俊介）　ページの最後に飛ぶ

『ブックの保護のパスワードを自動で処理したい』（俊介）

  以前　超達人の方　に作っていただいたマクロなのですが
　フォルダーの中のファイルを開いて、シート名を取り出すという
 マクロなのですが、最近、ファイルが保護され、パスワード入力が必要となったため
 ファイルが多いため、いちいち、パスワードを入れなければいけない状態に
 なってしまい、非常に苦しんでおります。
 そして、● ActiveWorkbook.Protect Password:="ひらけーーーゴマ"
 を何処に入れても、意味がないのですが、どのように変更すれば
 パスワードまで、自動で入力し、サクサク動くのでしょうか
 超達人の方々、教えてくださいませんでしょうか
 よろしくお願いいたします。

 Sub 指定フォルダー内ファイル内シート名取得()
 Dim myObj As Object
 Dim myFileName As String
 Dim myDir As String
 Dim mySheet As Worksheet
 Dim wb As Workbook

 Application.ScreenUpdating = False
 Application.EnableEvents = False

 With ThisWorkbook.ActiveSheet

    Set myObj = CreateObject("Shell.Application"). _
                BrowseForFolder(0, "フォルダを選択してください", 0)

    If myObj Is Nothing Then Exit Sub
    myDir = myObj.Items.Item.Path & "\"
    myFileName = Dir(myDir & "*.xls")

        Do
　　　　　　● ActiveWorkbook.UNProtect Password:="ひらけーーーゴマ"

            ★Set wb = Workbooks.Open(myDir & myFileName)

            For Each mySheet In wb.Worksheets
                .Cells(65536, 1).End(xlUp).Offset(1).Value = myFileName
                .Cells(65536, 2).End(xlUp).Offset(1).Value = mySheet.Name
            Next mySheet

            wb.Close False
            myFileName = Dir()

        Loop Until myFileName = vbNullString

 Application.EnableEvents = True
 Application.ScreenUpdating = True
 End With

 End Sub

 保護解除のマクロの記録はして見ましたか？
また、Helpはご覧になっていますか？
Protect　　保護
UnProtect　保護解除
(みやほりん)(-_∂)b

 マクロの記録では、パスワードを入れたところは、全く何も
 書かれてなく、ただ、ファイルを開くという、記述だけだったのです。
 Unprotectなんですね。すみません。根本的に間違ってました。
 しかし、★のところで、黄色くなります。（俊介）

 もしかして、ファイルオープン時のパスワードですね？
「ブック保護」パスワードだと思いました。
    ActiveWorkbook.UNProtect Password:="ひらけーーーゴマ"
こちらは削除していただき、
Openメソッドの引数にパスワードを指定します。
    Set wb = Workbooks.Open(myDir & myFileName , , , , "ひらけーーーゴマ")
でしょうか。詳しくはOpenメソッドのヘルプをご覧ください。
(みやほりん)(-_∂)b　誤記修正（汗

  ありがとうございました。 
 すすごい、出来ました。ヘルプに聞きます。しかし、ヘルプにヘルプしたい時が
  多々あります。(^^ゞ（俊介）

 VBAのヘルプはかなり使いやすいものだと思いますよ。端から端まで読ん
だり検索しようと思ってはいけません。
たとえば、マクロ記録したものでわからないキーワードがあったらVBEの
コードウィンドウで編集カーソルをその単語に合わせてF1キー。その単語
のヘルプへ（たいていの場合）すぐたどり着けます。
私は本も何冊か読みましたが、上記の理由で結局一番役に立つのはヘルプ
だと思っています。(みやほりん)(-_∂)b

 会社のパソコンには、ヘルプが登載されていないのでつい、見る機会がありません。
家のパソコンはあるのですが、つい、この学校に頼りすぎてしまっていまして
反省　反省です。　ヘルプにヘルプしていきます。ほんとうに有難う
ございました。（俊介）

コメント返信：

[ 一覧(最新更新順) ]

[[20060114074813]] 『ブックの保護のパスワードを自動で処理したい』（俊介） ページの最後に飛ぶ

[[20060114074813]]　『ブックの保護のパスワードを自動で処理したい』（俊介）　ページの最後に飛ぶ