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

XNUMXつの方法は、Excelでアスタリスクまたはその他の文字列を使用してセルの内容をすばやく非表示/マスクします

以下のスクリーンショットに示すように、ワークブックを他のユーザーと共有しているときに、セルの内容を非表示にしたい場合があります。 ここでは、Excelでコンテンツを非表示にするためにアスタリスクでセルをマスクするXNUMXつの方法を紹介します。
ドキュメントマスクセル1


Format Cellsを使用して、セルの内容をアスタリスクで非表示およびマスクします

Excelでは、セルの内容をアスタリスクでマスクするには、[セルの書式設定]機能を使用できます。

1.アスタリスクで非表示にするセルを選択し、右クリックして選択します セルの書式設定 コンテキストメニューから選択します。
ドキュメントマスクセル2

2。 の中に セルの書式設定 ダイアログ タブ、選択 カスタム から カテゴリー リストしてから、 ;;; ** 下のテキストボックスに タイプ.
ドキュメントマスクセル4

3。 クリック OK、これで、選択したセルの内容がアスタリスクでマスクされました。
ドキュメントマスクセル3

ただし、セルの内容は数式バーでも表示できます。
ドキュメントマスクセル5

4.コンテンツを非表示にしたくないセルにカーソルを置き、クリックします レビュー > 保護シート、チェックを外します ロック解除セルを選択 & セルの書式設定 オプション(必要に応じて確認できる他のオプション)を選択し、ポップダイアログでシートを保護するためのパスワードを入力して確認します。
ドキュメントマスクセル6

次に、セルの内容が非表示になり、アスタリスクでマスクされます。

Note:セルの内容が数値文字列の場合、この方法では、セルの内容を空白として表示するだけです。
ドキュメントマスクセル7


VBAコードで#N / Aまたはその他の特定のエラー値を持つ行を非表示にする

数字とテキストの両方をマスクする場合は、VBAコードを適用できます。

1.暗号化するセルを選択し、を押します Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、次に以下のコードをコピーして新しいモジュールに貼り付けます。

VBA:#N / Aエラー行を非表示

Sub E_Cells()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xERg As Range
Dim xWs As Worksheet
Dim xStrRg As String
Dim xStrPw As String
xStrPw = ""
xStrPw = Application.InputBox("Enter Password", "", "", Type:=2)
If xStrPw = "" Then Exit Sub
On Error Resume Next
Set xERg = Selection
Set xWs = Application.ActiveSheet
Set xRg = xWs.Cells
xRg.Locked = False
xERg.Locked = True
xERg.NumberFormatLocal = "**;**;**;**"
xWs.Protect Password:=xStrPw, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub 

3。 押す F5 コードを実行するためのキー。 次に、ポップアウトダイアログにパスワードを入力し、[ OK ボタン。 スクリーンショットを参照してください:
ドキュメントマスクセル8

ヒント:

1.セルを復号化するには、以下のマクロコードを使用できます。

Sub D_Cells()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xERg As Range
Dim xWs As Worksheet
Dim xStrRg As String
Dim xStrPw As String
xStrPw = ""
xStrPw = Application.InputBox("Type Password", "", "", Type:=2)
If xStrPw = "" Then Exit Sub
On Error Resume Next
Set xWs = Application.ActiveSheet
Set xRg = xWs.UsedRange
xERg.NumberFormatLocal = "**;**;**;**"
xWs.Unprotect Password:=xStrPw
For Each xERg In xRg
    If xERg.Locked Then xERg.NumberFormatLocal = "@"
Next
End Sub

2. VBAコードを使用すると、セルの内容を数式バーで表示することもできます。


セルの内容をアスタリスクまたはその他の文字列で暗号化およびマスクします

必要に応じてセルの内容を特別な文字列で暗号化およびマスクする場合は、 セルを暗号化するの機能 Kutools for Excel いい恩恵を与えることができます。

Kutools forExcelのセル暗号化ツールは次のことができます。

1.空白でセルを暗号化する
2.セルを文字で暗号化する
3.指定された文字列でセルを暗号化します。

Kutools for Excelには、300%のExcelパズルを解決するための90の高度なツールが含まれており、30日間の無料トライアルを提供します。

Kutools for Excelの無料インストール(60日間の無料トライアル)、以下の手順で行ってください。

1.マスクするセルを選択し、をクリックします クツールズプラス > セルを暗号化する.
ドキュメントマスクセル9

2.次に、ポップダイアログで、パスワードを入力して確認し、 マスク セクションで、必要に応じてオプションを確認します。
ドキュメントマスクセル10

3。 次に、をクリックします Ok。 現在、選択されたすべてのセルがマスクされています。

チェック なし、セルには意味不明な文字列が表示されます。
ドキュメントマスクセル11
ドキュメントマスクセル12

チェック チャー オプションで、テキストボックスに任意の文字を入力できます。そうすると、セルには文字のみが表示されます。
ドキュメントマスクセル13
ドキュメントマスクセル14

チェック 文字列 オプションを選択し、セルに表示する文字列を入力します。
ドキュメントマスクセル15
ドキュメントマスクセル16

先端:セルを復号化するか、セルの内容を表示する場合は、をクリックします クツールズプラス > セルを復号化する、次にパスワードを入力して正常に復号化します。
ドキュメントマスクセル17


隠蔽に関連するその他の操作(記事)

値に基づいて行を非表示にする
このチュートリアルでは、Excelの別の列の値(等しい/より大きい/より小さい)に基づいて行を非表示にする方法をいくつか紹介します。

テキスト文字列の一部を非表示にする
電話番号123-xxx-xxxxなどの個人情報を保護するために、文字列の一部を非表示にしたい場合がありますが、どうすればよいですか? この記事では、簡単な解決策を見つけることができます。

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

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

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

説明


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
Hola, yo lo solucione asi:
1. Formula: =SI(J7=1;lo que quieren mostrar;"******") y luego,
2. Macro: una macro que descargue el 1 en la celda J7.
3. Boton: un botón que ejecute la macro, puede llamarse mostrar cifrado o algo asi.

De esta manera, se logra solucionar las mascaras u ocultamiento de celdas.
This comment was minimized by the moderator on the site
Is it possible to create a mask email without the email account's password?
This comment was minimized by the moderator on the site
I suggest this:
A1 content               - Expected - foo***********com

Formula:=LEFT(A1,3)&REPT("*",LEN(A1)-6)&RIGHT(A1,3)
Remove left or/and right and change the length to control what to replace with * and what to keep at the beginning or at the end.
This comment was minimized by the moderator on the site
If you want to hide only some parts of the string, here is another way:

=LEFT(A1,3)&REPT("*",LEN(A1)-6)&RIGHT(A1,3)
Explanation:
1. LEFT - Will add some letters from the left of the phrase.2. REPT - Will repeat *, n times. where n can be LEN(A1) or LEN(A1)-X where X is the number fo letters that you want to keep showing3. RIGHT - Will add some letters from the end of the phrase.
If A1 content is formula will result in:
foo***********com
This comment was minimized by the moderator on the site
How do Mask baseon cell value :Sub tra5()Dim selrange As Range
Dim dgstring1, dgstring2, dgstring3, dgstring4 As String
dgstring1 = Sheet1.Range("F26")
dgstring2 = Sheet1.Range("F26")
dgstring3 = Sheet1.Range("F26")
dgstring4 = Sheet1.Range("F26")
dgstring = "dgstring1;dgstring2;dgstring3;dgstring4"
selrange.NumberFormatLocal = dgstring
End Sub

Please help.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations