□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| フォルダ内のエクセルシートパスワードを一括解除するマクロを編集してエクセルの表示メニュー目盛線と見出にチェックをいれるマクロを追加してください。 | |
|---|---|
[194949] フォルダ内のエクセルシートパスワードを一括解除するマクロを編集してエクセルの表示メニュー目盛線と見出にチェックをいれるマクロを追加してください。- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ふくたろう -(2022/06/01(11:58)) □U R L/ 下記マクロを編集してエクセル表示メニューの目盛線と見出しにチェックをいれるマクロを追加してください。
Sub 選択フォルダ内保護全て解除()
Dim myFol As Object, myFile As Object, sh As Worksheet
Dim openFilePath As String
Const myPass As String = "p"
Set myFol = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダを選択してください", 0)
If myFol Is Nothing Then Exit Sub
Application.ScreenUpdating = False
openFilePath = myFol.self.Path & "\"
With CreateObject("Scripting.FileSystemObject")
For Each myFile In .GetFolder(openFilePath).Files
If .GetExtensionName(myFile.Path) = "xlsx" Then
With Application.Workbooks.Open(myFile.Path)
For Each sh In .Worksheets
sh.Unprotect Password:=myPass
Next sh
.Unprotect Password:=myPass
.Save
.Close False
End With
End If
Next myFile
End With
MsgBox "終了しました"
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[194950] Re[1]: フォルダ内のエクセルシートパスワードを一括解除するマクロを編集してエクセルの表示メニュー目盛線と見出にチェックをいれるマクロを追加してください。- ■記事引用/メール受信=OFF■ □投稿者/ マルチネス -(2022/06/01(13:27)) □U R L/ ご参考。 ht tps://excelfactory.net/excelboard/excelvba/excel.cgi?mode=man >マルチポストはご遠慮ください。 >(同じ内容の質問を、同時に複数の掲示板に投稿 する行為をマルチポストと言います。) 詳しくはこちらをご覧になってください。 | |