用 VBA 阻止用户在 Excel 表中粘贴数据(续2)

'保存工作薄后执行Private Sub Workbook_AfterSave(ByVal Success As Boolean)

'关闭工作簿前执行Private Sub Workbook_BeforeClose(Cancel As Boolean)    Call 全加锁End Sub

'变更选择时执行Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)    On Error Resume Next  '忽略错误    Dim firstCol As Long, lastCol As Long    Dim colCount As Long    ' 计算列范围    firstCol = Target.Column    colCount = 剪贴板列数()    lastCol = firstCol + colCount - 1    ' 简化逻辑：直接判断选区是否与保护列范围（8-23列）有重叠    If (firstCol <= 23 And lastCol >= 8) Then        Application.CutCopyMode = False  ' 自动清除剪贴板'            MsgBox "禁止复制数据"    End If

Function 剪贴板列数() As Long    Dim clipboardData As String    Dim lines() As String    Dim firstLine As String    Dim columns() As String    ' 获取剪贴板文本内容    clipboardData = CreateObject("htmlfile").ParentWindow.clipboardData.GetData("text")    If Len(clipboardData) = 0 Then        剪贴板列数 = 0        Exit Function    End If    ' 按换行符分割成行    lines = Split(clipboardData, vbNewLine)    If UBound(lines) >= 0 Then        firstLine = lines(0)        ' 按制表符分割第一行（Excel默认使用制表符分隔）        columns = Split(firstLine, vbTab)        剪贴板列数 = UBound(columns) + 1    Else        剪贴板列数 = 0    End IfEnd Function