통합 문서를 닫기 전에 저장 확인

Question

사용자가 매크로를 사용하도록 설정하는 일부 vba 코드 온라인이 나타났습니다. 매크로가 꺼져있을 때 "Sheet1"만 표시되며 켜져 있으면 "Sheet1"이 숨겨지고 작업 시트 숨김이 해제됩니다. 이것은 매우 독창적 인 코드이지만 한 가지 단점이 있습니다. 파일을 닫을 때 파일을 저장할지 묻지 않습니다. 나머지 시트를 숨기도록 자동으로 저장됩니다. 나는이 문제를 해결할 방법이 있는지 알고 싶습니다. 즉, "저장하지 않고 저장/저장"프롬프트를 활성화하고 "Sheet1"을 제외하고 시트를 숨긴 채로 유지하는 것입니다.

아래 코드는 다음과 같습니다.

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

'Step 1: Declare your variables 
Dim ws As Worksheet 

'Step 2: Unhide the Starting Sheet 
Sheets("Sheet1").Visible = xlSheetVisible 

'Step 3: Start looping through all worksheets 
For Each ws In ThisWorkbook.Worksheets 

'Step 4: Check each worksheet name 
If ws.Name <> "Sheet1" Then 

'Step 5: Hide the sheet 
ws.Visible = xlVeryHidden 
End If 

'Step 6: Loop to next worksheet 
Next ws 


'Step 7: Save the workbook 
ActiveWorkbook.Save 

End Sub 


Private Sub Workbook_Open() 

'Step 1: Declare your variables 
Dim ws As Worksheet 

'Step 2: Start looping through all worksheets 
For Each ws In ThisWorkbook.Worksheets 

'Step 3: Unhide All Worksheets 
ws.Visible = xlSheetVisible 

'Step 4: Loop to next worksheet 
Next ws 


'Step 5: Hide the Start Sheet 
Sheets("Sheet1").Visible = xlVeryHidden 

End Sub 

Answer 1

당신과 같이 당신의 자신의 메시지와 함께 ActiveWorkbook.Save을 포장 할 수 있습니다

If MsgBox("Would you like to save?", vbYesNo + vbQuestion, "Save Workbook") = vbYes Then 
    ActiveWorkbook.Save 
End If