Question

excel退出自动保存VBA!

大家好,我想实现关闭EXCEL时自动保存所有工作表,并加密保护,用以下代码实现不了是为什么呢?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim j%
For j = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect Password:="1234"
Next ThisWorkbook.Save
End Sub

Answer 1

你的代码没有问题, 只是打错了一个 i
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim j%
For j = 1 To Sheets.Count
Sheets(j).Select ←不是 Sheets(i)
ActiveSheet.Protect Password:="1234"
Next
ThisWorkbook.Save
End Sub

再给你一个意见, 代码应尽量不要用 Select 较佳
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim j%
For j = 1 To Sheets.Count
Sheets(j).Protect Password:="1234"
Next
ThisWorkbook.Save
End Sub

或

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sht In ThisWorkbook.Worksheets
sht.Protect Password:="1234"
Next
ThisWorkbook.Save
End Sub

Answer 2

有正解了