Workbook_BeforePrint (データファイルと印刷したハードの内容をチェックする機能)

Question

度々恐れ入ります、
先日掲題の件について、以下のとおり質問させて頂きました。

前回の質問内容

ご意見を活かしつつ

1. 印刷直前のハッシュ値を取得する（Workbook_BeforePrint）
2. ブックを閉じる直前のハッシュ値を取得する（Workbook_BeforeClose）

3)2)のCloseイベント時にハッシュ値に相違があればMsgBoxで確認という流れを想定しているのですが、

1. について以下のコードを作成したのですが

正しく処理されません（ws.Cells(1, 1).Value = SHA1/MsgBox SHA1が印刷時にいずれも出力されない）

どこに問題点があるか分からなかったため、ご質問させて頂きました。
アドバイスを頂ければ幸いです。

宜しくお願い申し上げます。

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim wb As Workbook
Dim ws As Worksheet

Set wb = Workbooks("申請書")
Set ws = wb.Worksheets("入力")

Dim Enc As Object, Prov As Object
Dim Hash() As Byte, i As Long
Dim s As String
Dim c As Range
Dim dc As Range
Dim SHA1 As String

c = ws.Range("C:CE")
s = ""

For Each dc In c
s = s & dc.Text
Next

 Set Enc = CreateObject("System.Text.UTF8Encoding")
 Set Prov = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")
 
 Hash = Prov.ComputeHash_2(Enc.GetBytes_4(s))
 
 SHA1 = ""
    For i = LBound(Hash) To UBound(Hash)
        SHA1 = SHA1 + Hex(Hash(i) \ 16) + Hex(Hash(i) Mod 16)
 Next
 
 ws.Cells(1, 1).Value = SHA1
 MsgBox SHA1
 
 
End Sub

Answer 1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim prom As Long

    With ThisWorkbook
        If .Saved = False Then
            prom = MsgBox("変更があります。上書き保存しますか？", vbOKCancel)
            If prom = vbOK Then
                .Save
            End If
            Cancel = True
        End If
    End With
End Sub

ハッシュ値という用語が解りませんが、こういうことですか？
参考まで。

Comments

[maguzo]

コメント有難うございます。
ご指摘の方法でも動作しました、大変たすかりました、有難うございます！
一方で、自身のコードがどこに誤りがあるか分からずにこの点も解決したく、考えておりました。
c = ws.Range("C:CE")の箇所が
「オブジェクト偏すまたはwith ブック変数がせっていされていません。」
とエラーが出力されるのですが、cやwb wsを適切に設定していると思うのですが、どこか問題がありますでしょうか、もし、お気づきになる箇所があればアドバイスを頂戴できるとうれしいです。
何時間考えてもわからず、どつぼにはまってきました。。。

[mattuwan]

> c = ws.Range("C:CE")の箇所が
オブジェクトを変数に代入するときは、
Setステートメントを使います。

ちなみに、値の時はLet（省略可）です。

[maguzo]

有難うございます！無事解決いたしました！