2,462
社区成员
发帖
与我相关
我的任务
分享
Private Sub CommandButton1_Click()
Sheet2.Protect Password:=1915, DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet2.Application.EnableEvents = True
Sheet2.Application.EnableEvents = False
Sheet2.Unprotect Password:=1915
End Sub
Private Sub CommandButton2_Click()
Sheet1.Protect Password:=1915, DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet1.Application.EnableEvents = True
Sheet1.Application.EnableEvents = False
Sheet1.Unprotect Password:=1915
End Sub
Application.ScreenUpdating = False
Application.Interactive = False