【ｈｅｌｐ】Excelデータが消えました。

質問

this work bookで下記のコードを入れ、間違えて閉じてしまった後からそのページにあったファイルが消えてしまいました。
復旧は可能でしょうか？
ちなみに現在の状況はbook2から始まる状態で、消えたはずのbook1の合計の関数を示しています。どなたかわかる方教えてください！！

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each ws In Sheets
If ws.Name = "Dummy" Then
ws.Visible = True
Else
ws.Visible = xlSheetVeryHidden
End If
Next
End Sub

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Name = "Dummy" Then
ws.Visible = xlSheetVeryHidden
Else
ws.Visible = True
End If
Next
End Sub
(seiya)

回答No.1

kmetu

ws.Visible = xlSheetVeryHidden
のところを
ws.Visible = xlSheetVisible
にして再度閉じたらいかがでしょう。