VBA - 运行时错误 1004“应用程序定义或对象定义错误”

在使用VBA编写宏时，经常会遇到各种错误，其中之一就是运行时错误1004，即“应用程序定义或对象定义错误”。这个错误通常发生在尝试访问或操作不存在的对象时，或者在尝试对对象应用不适当的方法或属性时。本文将介绍这个错误的常见原因，并提供一些解决方案和示例代码来帮助您解决这个问题。

vba
Sub CheckWorksheetExistence()
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    If ws Is Nothing Then
        MsgBox "工作表不存在！"
    Else
        MsgBox "工作表存在。"
    End If
End Sub

vba
Sub UnprotectWorksheetAndUnlockCells()
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ws.Unprotect "password" '取消保护工作表
    
    ws.Range("A1").Locked = False '解锁单元格
    
    ws.Protect "password" '重新保护工作表
End Sub

vba
Sub CheckNamedRangeExistence()
    Dim rng As Range
    
    On Error Resume Next
    Set rng = ThisWorkbook.Names("MyRange").RefersToRange
    On Error GoTo 0
    
    If rng Is Nothing Then
        MsgBox "命名范围不存在！"
    Else
        MsgBox "命名范围存在。"
    End If
End Sub

vba
Sub AvoidRuntimeError1004()
    Dim ws As Worksheet
    Dim rng As Range
    
    '检查工作表的存在性
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    If ws Is Nothing Then
        MsgBox "工作表不存在！"
        Exit Sub
    End If
    
    '取消保护工作表并解锁单元格
    ws.Unprotect "password"
    ws.Range("A1").Locked = False
    ws.Protect "password"
    
    '检查命名范围的存在性
    On Error Resume Next
    Set rng = ThisWorkbook.Names("MyRange").RefersToRange
    On Error GoTo 0
    
    If rng Is Nothing Then
        MsgBox "命名范围不存在！"
    Else
        MsgBox "命名范围存在。"
    End If
End Sub