VBA有人会吗

春风十里

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim arr
    Dim i, j
    arr = Range("A1").CurrentRegion
    i = UBound(arr)
    For j = 1 To 20
      If Abs(arr(j, 3)) > 1 Then
       Cancel = True
       MsgBox "保存file"
       Exit Sub
       End If
       Next
End Sub

谁能帮忙解释下啥意思？

bluesky

微软应该有专门的工具书 或者 指南吧