能否通过VBA类模块扩展Worksheet对象的属性与方法？

首先得明确：VBA里的原生Worksheet对象是“密封”的，我们没法直接给它添加自定义的子过程、函数或属性——这也是你直接尝试扩展时出问题的根本原因。但我们可以用**包装类（Wrapper Class）**的思路，把原生Worksheet对象“包裹”在自定义类里，然后在类里添加我们需要的自定义成员，同时还能保留原生Worksheet的所有功能。

你遇到的错误438（对象不支持该属性或方法），大概率是这两个原因：

• 没有正确初始化自定义类，导致类里的原生Worksheet引用是空的
• 试图把自定义类实例直接当成原生Worksheet来用，或者调用了未正确定义的成员

下面给你一步一步的解决方案：

步骤1：创建包装类MyWorkingSheet #

打开VBA编辑器，插入一个类模块（右键工程→插入→类模块），把类名改成MyWorkingSheet，然后粘贴以下代码：

Option Explicit

' 私有变量：存储被包裹的原生Worksheet对象
Private m_Worksheet As Worksheet
' 私有变量：存储ActiveOwner属性的值（也可以存在工作表的隐藏单元格里持久化）
Private m_ActiveOwner As String

' 初始化方法：必须先调用这个方法传入要处理的Worksheet
Public Sub Initialize(ws As Worksheet)
    Set m_Worksheet = ws
    ' 可选：从工作表隐藏单元格读取初始的Owner值（比如A1）
    If Not IsEmpty(m_Worksheet.Range("A1").Value) Then
        m_ActiveOwner = m_Worksheet.Range("A1").Value
    End If
End Sub

' 自定义子过程：删除所有红色字体的单元格内容
Public Sub DeleteAllRedWords()
    Dim cell As Range
    For Each cell In m_Worksheet.UsedRange
        If cell.Font.Color = vbRed Then
            cell.ClearContents
        End If
    Next cell
End Sub

' 自定义函数：计算本周的修改次数（前提是工作表开启了跟踪更改）
Public Function NumberOfChangesThisWeek() As Integer
    Dim change As Change
    Dim changeCount As Integer
    changeCount = 0
    
    If m_Worksheet.TrackChangesEnabled Then
        ' 计算本周的起始日期（周一为一周开始）
        Dim weekStart As Date
        weekStart = Date - Weekday(Date, vbMonday) + 1
        
        For Each change In m_Worksheet.Changes
            If change.Date >= weekStart And change.Date < weekStart + 7 Then
                changeCount = changeCount + 1
            End If
        Next change
    End If
    
    NumberOfChangesThisWeek = changeCount
End Function

' ActiveOwner属性：读取
Public Property Get ActiveOwner() As String
    ActiveOwner = m_ActiveOwner
End Property

' ActiveOwner属性：赋值
Public Property Let ActiveOwner(newOwner As String)
    m_ActiveOwner = newOwner
    ' 可选：把值保存到隐藏单元格，关闭文件后再打开还能保留
    With m_Worksheet.Range("A1")
        .Value = newOwner
        .EntireRow.Hidden = True
    End With
End Property

' 可选：添加这个属性，方便直接访问原生Worksheet的所有功能
Public Property Get Worksheet() As Worksheet
    Set Worksheet = m_Worksheet
End Property

步骤2：在标准模块中使用这个类 #

插入一个标准模块，写你的测试代码：

Sub MySub()
    Dim MySheet As MyWorkingSheet
    ' 创建类实例
    Set MySheet = New MyWorkingSheet
    ' 初始化，传入要处理的工作表（这里用ActiveSheet）
    MySheet.Initialize ActiveSheet
    
    ' 调用自定义子过程
    MySheet.DeleteAllRedWords
    
    ' 调用自定义函数并弹窗显示结果
    MsgBox "本周修改次数：" & MySheet.NumberOfChangesThisWeek
    
    ' 设置自定义属性
    MySheet.ActiveOwner = "Sam"
    
    ' 验证属性是否生效，同时可以通过.Worksheet访问原生工作表的属性
    MsgBox "当前工作表所有者：" & MySheet.ActiveOwner & vbCrLf & "工作表名称：" & MySheet.Worksheet.Name
End Sub

错误438的具体解决点 #

再回头看你之前的错误，大概率是没做这几件事：

1. 没有调用Initialize方法：类里的m_Worksheet是空的，调用DeleteAllRedWords时自然找不到对应的对象
2. 试图把MyWorkingSheet赋值给Worksheet类型变量：比如你原来的Dim MySheet As Worksheet，然后Set MySheet = New MyWorkingSheet——这肯定不行，因为MyWorkingSheet不是原生Worksheet类型，必须用Dim MySheet As MyWorkingSheet
3. 自定义成员的定义有问题：比如函数或子过程的名称拼写错误，或者属性没有正确定义Property Get/Let

如果需要让所有工作表都能方便使用这些功能，除了包装类，你也可以在标准模块里写全局的过程/函数，把Worksheet作为参数传入（比如Sub DeleteAllRedWords(ws As Worksheet)），但包装类的方式更符合面向对象的思路，也能更好地管理属性（比如ActiveOwner）的状态。

内容的提问来源于stack exchange，提问作者sergio trajano