Excel で暗号化関数を構築するためのステップバイステップ ガイド

Excel で作業していると、セキュリティ上の理由からデータを暗号化したい場合があります。 Excelでデータを暗号化する暗号化関数を簡単に作成できます。ここでは、Excel で暗号化関数を作成する手順をステップごとに説明します。

Excel で暗号化関数を作成する:段階的な手順

このセクションでは、Excel で暗号化関数を作成するための段階的な手順について説明します。単純な VBA コードで十分です。以下の手順に従ってください。

ステップ 1:暗号化機能用のデータセットを準備する

• まず、ワークシートにデータセットを作成します。デモンストレーションのために、セールスマンを含むデータセットを含めました。 、給与 、州 会社のために。 給与のデータは暗号化されます。 列。

ステップ 2:Excel で VBA ウィンドウを開く

• 次に、開発者 に移動します。 タブをクリックし、Visual Basic を選択します。 VBA を開きます ウィンドウ。
• または、Alt キーを押すこともできます。 + F11 ウィンドウを開きます。

ステップ 3:暗号化機能のコードを VBA モジュールに入力します

• その後、[挿入 ] を選択します。> モジュール VBA から ウィンドウ。

• 続けて、モジュール ウィンドウが表示されます。
• そこに次のコードを記述します。

Private Function iStrTPsd(ByVal Txt As String) As Long
Dim xVl As Long
Dim xCha As Long
Dim xSf1 As Long
Dim xSf2 As Long
Dim J As Integer
Dim xLn As Integer
xLn = Len(Txt)
For J = 1 To xLn
xCha = Asc(Mid$(Txt, J, 1))
xVl = xVl Xor (xCha * 2 ^ xSf1)
xVl = xVl Xor (xCha * 2 ^ xSf2)
xSf1 = (xSf1 + 7) Mod 19
xSf2 = (xSf2 + 13) Mod 23
Next J
iStrTPsd = xVl
End Function
Private Function iEncryption(ByVal Pd As String, ByVal InTx As String, Optional ByVal Encc As Boolean = True) As String
Dim xOfset As Long
Dim xLn As Integer
Dim J As Integer
Dim xCha As Integer
Dim xOutTx As String
xOfset = iStrTPsd(Pd)
Rnd -1
Randomize xOffset
xLn = Len(InTx)
For J = 1 To xLn
xCha = Asc(Mid$(InTx, J, 1))
If xCha >= 32 And xCha <= 126 Then
xCha = xCha - 32
xOfset = Int((96) * Rnd)
If Encc Then
xCha = ((xCha + xOfset) Mod 95)
Else
xCha = ((xCha - xOfset) Mod 95)
If xCha < 0 Then xCha = xCha + 95
End If
xCha = xCha + 32
xOutTx = xOutTx & Chr$(xCha)
End If
Next J
iEncryption = xOutTx
End Function
Sub xEncryption_Range()
Dim xxRg As Range
Dim xxPsd As String
Dim xxTxt As String
Dim xxEnc As Boolean
Dim xxRet As Variant
Dim xxCell As Range
On Error Resume Next
xxTxt = ActiveWindow.RangeSelection.Address
Set xxRg = Application.InputBox("You need to select range:", "Excel Encryption", xxTxt, , , , , 8)
Set xxRg = Application.Intersect(xxRg, xxRg.Worksheet.UsedRange)
If xxRg Is Nothing Then Exit Sub
xxPsd = InputBox("Type your password:", "Excel Encryption")
If xxPsd = "" Then
MsgBox "Your password can't be empty", , "Excel Encryption"
Exit Sub
End If
xxRet = Application.InputBox("Insert 1 to encrypt cells or Insert 2 to decrypt cells", "Excel Encryption", , , , , , 1)
If TypeName(xxRet) = "xBoolean" Then Exit Sub
If xxRet > 0 Then
xxEnc = (xxRet Mod 2 = 1)
For Each xxCell In xxRg
If xxCell.Value <> "" Then
xxCell.Value = iEncryption(xxPsd, xxCell.Value, xxEnc)
End If
Next
End If
End Sub

ステップ 4:データ暗号化のためのコードを実行する

• さらに、[実行] ボタンを押します。 VBA のボタン ウィンドウ。

• すぐにマクロ ダイアログボックスが表示されます。 [実行] をクリックします。 ボタン。

• その後、Excel の暗号化 ダイアログボックスが表示されます。
• データを暗号化するセルの範囲を選択します。 [OK] を押します。 .

• 再びダイアログ ボックスが表示されます。
• そこにパスワードを書き込みます。 [OK] を押します。 .

• 続けて、別のダイアログ ボックスが表示されます。
• 1 と書き込みます データを暗号化するためにあります。また、[OK] をクリックします。 .

最終出力

• 最後に、ワークシートに戻って、選択した範囲のデータが暗号化されていることを確認します。

• さらに、データを復号化するにはコードを再度実行し、前述の手順に従います。
• 2 とだけ書きます 最後のダイアログ ボックスでは 1 の代わりに .
• また、暗号化に指定したのと同じパスワードを復号化にも忘れずに入力してください。

• 暗号化されたデータが再度復号化されたことがわかります。

続きを読む: Excel でセルの内容を暗号化する方法

Excel ファイルをパスワードで暗号化する方法

このセクションでは、ファイルを開くためのパスワードで Excel シートを保護するための段階的な手順について説明します。

• まず、ファイル に移動します。 Excel のタブ リボン。

• 次に、[コピーを保存 ] を選択します。 ペインからオプションを選択します。

• その後、[その他のオプション ] を選択します。 表示されたウィンドウから。

• さらに、[ツール ] を選択します。> 一般オプション 次のウィンドウから。

• 次に、[開くパスワード ] にパスワードを入力します。 一般オプション のセクション ダイアログボックス。また、[OK] をクリックします。 .

• その後、[パスワードの確認 ] でパスワードを書き換えます。 ダイアログボックス。 [OK] を押します。 .

• 最後に、ファイルを保存します。
• 次回からは、Excel を開くためにパスワードを入力する必要があります ファイル。

続きを読む: パスワードなしで Excel ファイルを復号化する方法

練習ワークブックをダウンロード

演習ワークブックはここからダウンロードできます。

結論

この記事では、Excel でデータを暗号化するための簡単な手順を段階的に説明しました。ご質問やご提案がございましたら、コメントを残してください。

関連記事

• Excel から暗号化を削除する方法
• [解決済み!]:暗号化された Excel ファイルを開けません

<< Excel の暗号化に戻る |  エクセルプロテクト | Excel を学ぶ

ソリューション付きの高度な Excel 演習を無料で入手しましょう!