Excelでアスタリスクやその他の文字列を使用してセルの内容を迅速に非表示/マスクする3つの方法

ワークブックを他のユーザーと共有する際に、特定のセルの内容を非表示にしたい場合があります（下のスクリーンショット参照）。この記事では、Excelでアスタリスクを使用してセルをマスクするための3つの方法を紹介します。

• 「セルの書式設定」でセルの内容を非表示およびマスク
• VBAコードを使用してセルの内容を非表示およびマスク
• アスタリスクやその他の文字列でセルの内容を暗号化およびマスク
• ワークシートに関するその他の関連記事（操作）

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

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

2. セルの書式設定 ダイアログで、 数値 タブの下にある カスタム を カテゴリ リストから選択し、次に ;;;** タイプの下のテキストボックスに以下を入力します： 種類.

3. 「 OK」をクリックすると、選択したセルの内容がアスタリスクでマスクされます。

ただし、セルの内容は数式バーで確認できます。

4. 内容を非表示にしたくないセルにカーソルを置き、「 レビュー > シートの保護」をクリックし、「 ロックされていないセルを選択 」と「 セルの書式設定 」オプションのチェックを外します（必要に応じて他のオプションもチェック可能）。その後、ポップアップするダイアログでシートを保護するためのパスワードを入力し、確認します。

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

注釈：セルの内容が数値文字列の場合、この方法では内容が空白として表示されます。

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

1. 暗号化したいセルを選択し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを有効にします。

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 」ボタンをクリックします。スクリーンショットをご覧ください：

ヒント：

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 for Excelを無料インストール後（30日間の無料試用）、以下の手順を実行してください。

1. マスクしたいセルを選択し、「 Kutools Plus > セルの暗号化.

」をクリックします。2. ポップアップするダイアログでパスワードを入力し、確認します。次に「 マスク 」セクションで、必要なオプションをチェックします。

3. 「OK」をクリックします。これで、すべての選択されたセルがマスクされました。

チェック なし：セルには意味不明な文字列が表示されます。

チェック 文字 オプション：任意の文字をテキストボックスに入力すると、セルにはその文字のみが表示されます。

チェック 文字列 オプション：セルに表示させたい文字列を入力します。

ヒント：セルを復号化したり、セルの内容を表示したい場合は、「 Kutools Plus > セルの復号化」をクリックし、パスワードを入力して正常に復号化します。