UC知道excel退出自动保存VBA!
来源：百度知道 编辑：UC知道 时间：2024/05/09 20:26:53
大家好,我想实现关闭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
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
你的代码没有问题, 只是打错了一个 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
有正解了