ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
会員登録
x

or

一度にExcelでフォルダ内のすべてのブックを保護する方法

Excelでは、他のユーザーが編集できないようにブックを保護できますが、複数のブックを一度に保護するために画像を作成したことがありますか? ここでは、フォルダ内のすべてのワークブックと、Excelのワークブック内の複数のシートを保護するためのいくつかのトリックを紹介します。

一度にフォルダ内のワークブックをVBAで保護する

Kutools for Excelで複数のシートを一度に保護 良いアイデア3

OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換...
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージ...
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列...
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; メーリングリストを作成し、 セルの価値でメールを送信する...
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 企業または組織に簡単に展開できます。

矢印青い右の泡 一度にフォルダ内のワークブックをVBAで保護する

特定のフォルダ内のブックを保護するために、マクロコードを適用して解決することができます。

1。 新しいワークブックを有効にして、 Altキー+ F11 キーを押して Microsoft Visual Basic for Applicationsnsウィンドウをクリックして インセット > モジュールeをクリックし、コードの下に貼り付けます モジュール スクリプト。

VBA:フォルダ内のブックを保護します。

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

すべてのワークブックをフォルダで保護する1

2。 押す F5 キー、および フォルダを選択 すべてのワークシートを保護するためのフォルダを選択するためのウィンドウが表示されます。
すべてのワークブックをフォルダで保護する2

3。 クリック OK ワークブックを保護するためのパスワードを入力するためのダイアログが表示されます。
すべてのワークブックをフォルダで保護する3

4。 クリック OK選択したフォルダ内のすべてのワークブックが1つのパスワードで正常に保護されていることを示すダイアログが表示されます。
すべてのワークブックをフォルダで保護する4

上記のコードで保護したワークブックを開くと、パスワードを入力するためのダイアログが表示されます。 スクリーンショットを見る:
すべてのワークブックをフォルダで保護する5

先端:このコードは、2007以上のExcelバージョンで動作します。下位バージョンを保護するために適用する場合は、変更することができます xFile = "* .xls" 〜へ xFile = "* .xlsx" コードで


矢印青い右の泡 Kutools for Excelで複数のシートを一度に保護

実際には、毎日の作業でワークブック内の複数のシートを保護する方が頻繁になります。 しかし、Excelでは、組み込み関数を使ってシートを1枚ずつ保護する必要があります。 しかし、強力なツールがあります。 Kutools for Excel、 その ワークシートの保護 ユーティリティを使用すると、すべてのシートまたは選択したブックのシートを一度に保護することができます。

Kutools for Excel, 以上で 120 便利なExcel機能、作業効率の向上、作業時間の節約に役立ちます。

後の 無料インストール Excel用のKutoolsは、以下のようにしてください:

1。 シートを保護するワークブックを有効にして、をクリックします。 大口プラン > ワークシートの保護。 スクリーンショットを見る:
すべてのワークブックをフォルダで保護する6

2。 の中に ワークシートの保護 ダイアログで、必要に応じてリストから保護したいシートをチェックすることができます。 スクリーンショットを見る:
すべてのワークブックをフォルダで保護する7

3。 クリック Okパスワードを入力して再入力するためのダイアログが表示されます。スクリーンショットを参照してください:
すべてのワークブックをフォルダで保護する8

4。 クリック Okワークシートの保護に成功したことを示すダイアログが表示されます。
すべてのワークブックをフォルダで保護する9

これらのシートの保護を解除するには、 大口プラン > ワークシートの保護を解除する 保護を解除するためのパスワードを入力します。
すべてのワークブックをフォルダで保護する10

docダウンロード1


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin · 1 months ago
    Brilliant. Saves me nearly an hour every month. Thank you.
  • To post as a guest, your comment is unpublished.
    Mary · 1 years ago
    can you do the same code but for unprotecting? with option to browse for the folder
  • To post as a guest, your comment is unpublished.
    P · 2 years ago
    I'm getting a syntax error for the following: <span style="background-color...
  • To post as a guest, your comment is unpublished.
    ckshah · 2 years ago
    workbook protect ...great program....
    very helpful