[[20250218105814]]　『複数あるエクセルファイルの全シートの保護の解除』（やなぎ）　ページの最後に飛ぶ

『複数あるエクセルファイルの全シートの保護の解除』（やなぎ）

エクセルではない気がします。検討違いでしたらすみません。
シートが10ほどあるエクセルがあり、すべてのシートに「シートの保護」が設定されています。
そのエクセルにシートの保護を解除するマクロを作成することはできましたが、エクセルがxlsmになります。
xlsxの拡張子のまま、すべてのシートの保護を解除するにはどうしたらいいでしょうか。
VBSとかになるのでしょうか。
ちなみに対象のエクセルファイルは20ほどあり、ファイル名はランダムです。シートの保護の解除のパスワードは「1234」です。

エクセルのファイル名
りんご.xlsx
バナナ.xlsx
ぶどう.xlsx
みかん.xlsx
くり.xlsx
…

＜使用 Excel：Microsoft365、使用 OS：Windows10 ＞

全く別のエクセルxlsm　マクロブックを作り[フォルダも任意の場所でもＯＫ]
で
そこからあらゆる操作をVBAで構築！
とかは　だめなのでせうか。。。。(*^ ^*;)
m(__)m
（隠居Z） 2025/02/18(火) 11:29:30

 Workbooks("りんご.xlsx").Worksheets("aaa").Unprotect Password:="1234"

（どじょう） 2025/02/18(火) 12:13:16

 個人用マクロブックっていうのがありましてですね
　
 詳しくは検索してください。
（´・ω・`） 2025/02/18(火) 12:31:31

ちなみに、
解除したいファイルは、1個づつ選択するのですか？
それともフォルダーにまとめられていて、
そのフォルダーを選択して一括で解除したいですか？

いずれにしても、別のマクロ有効ブックから、
それぞれを操作したらいいと思います。
（まっつわん） 2025/02/18(火) 13:45:24

 もともとのExcelファイルがxlsxなら別のブックから操作すればいいだけでは？

 Dim Folder As String:Folder = ""
 Dim File As String:File = Dir(Folder & "\" & "*.xlsx")
 Dim wb As Workbook
 Dim sh As Worksheet

 Do While File <>""
     Set wb = Workbooks.Open(Folder & "\" & File)
     For Each sh In wb.Sheets
         sh.Unprotect password:="1234"
     Next sh
     wb.Close True
     Set wb = Nothing
     File = Dir
 Loop
（TKG） 2025/02/18(火) 14:17:52

コメント返信：

[ 一覧(最新更新順) ]

[[20250218105814]] 『複数あるエクセルファイルの全シートの保護の解除』（やなぎ） ページの最後に飛ぶ

[[20250218105814]]　『複数あるエクセルファイルの全シートの保護の解除』（やなぎ）　ページの最後に飛ぶ