メインコンテンツへスキップ

ユーザーがワークシートを印刷できないようにするにはどうすればよいですか?

私たちの日常業務では、ワークシートにいくつかの重要な情報が含まれている可能性があります。内部データの拡散を保護するために、部門はそれらの印刷を許可しません。 そしてここでは、ユーザーがワークシートを印刷できないようにする方法について説明します。

ユーザーがVBAで指定されたXNUMXつのワークシートを印刷できないようにする

ユーザーがブック全体をVBAで印刷できないようにする


矢印青い右バブル ユーザーがVBAで指定されたXNUMXつのワークシートを印刷できないようにする

次のVBAコードを適用して、印刷する特定のワークシートを保護できます。

1。 印刷機能を無効にするワークシートをアクティブにします。

2。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

3。 そして左側に プロジェクトエクスプローラー、 ダブルクリック このワークブック モジュールを開き、次のコードをモジュールに貼り付けます。

VBAコード:ユーザーが指定されたXNUMXつのワークシートを印刷できないようにする

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140625
Dim WsName As String
WsName = "Sheet1"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
    If xWs.Name = WsName Then
    MsgBox ("You can not print this worksheet")
        Cancel = True
    End If
Next
End Sub

doc-防止-印刷-1

注: 上記のコードでは、 Sheet1 印刷が許可されていないアクティブなワークシートです。

4。 次に、このコードを保存して閉じます。この特定のワークシートを印刷しようとすると、次の警告が表示されます。

doc-防止-印刷-1

Note:このコードでは、特定のワークシートのみを印刷することはできませんが、他のシートは通常どおり印刷できます。


矢印青い右バブル ユーザーがブック全体をVBAで印刷できないようにする

ユーザーがワークブック全体を印刷できないようにする必要がある場合は、ここにコードがあります。

1。 他の人に印刷を許可しないワークブックを開きます。

2。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ。

3。 そして左側に プロジェクトエクスプローラー、 ダブルクリック このワークブック モジュールを開き、次のコードをモジュールに貼り付けます。

VBAコード:ユーザーが指定されたXNUMXつのワークシートを印刷できないようにする

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub

doc-防止-印刷-1

4。 次に、このコードを保存して閉じ、ブックに戻ります。XNUMXつのワークシートまたはブック全体を印刷すると、印刷が許可されず、次の警告が表示されます。

doc-防止-印刷-1


関連記事:

Excelで複数のワークブックを印刷するにはどうすればよいですか?

Excelで範囲を印刷する方法は?

現在のページをExcelですばやく印刷するにはどうすればよいですか?

ExcelでXNUMXページに長い列を印刷するにはどうすればよいですか?

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to prevent printing more than one sheet but not the hole workbook?
This comment was minimized by the moderator on the site
This works in theory, but by default Excel disables all macros when you open a workbook, which prevents this code from executing and allows printing as usual.
This comment was minimized by the moderator on the site
That's why you force users to enable macros in order to use a workbook.
This comment was minimized by the moderator on the site
This works but when you email the file, the user on that end can print it... which defeats the purpose...
This comment was minimized by the moderator on the site
Maybe it is possible to have an overlay (text box with white background) which hides the entries. Say on it: "Enable Macros to see content" with a button to press which moves the text box.

Now they can see the entries, but the macro is active again :-)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations