Excel：VBA保护/取消保护工作表清除剪贴板，UI操作却保留？

我完全懂这个困扰——之前帮同事排查过一模一样的问题，用VBA执行保护/取消保护后，刚复制的内容直接没了，手动点审阅面板的按钮却啥事没有，Windows和Mac版Excel都有这毛病，确实挺闹心的。

本质原因是：Excel的UI操作做了特殊优化，会特意保留剪贴板和选中单元格的绿色虚线状态；但原生VBA的Unprotect/Protect方法底层会重置一些系统资源，其中就包括清空剪贴板。

下面给你几个实用的解决方案，按推荐程度排序：

方案1：用UserInterfaceOnly参数彻底避免反复切换保护 #

如果你只是要保护工作表不让用户随便改，但VBA本身需要操作工作表内容，那这个方法最省心。只需要在工作簿打开时执行一次保护，设置UserInterfaceOnly:=True：

' 把这段代码放在ThisWorkbook模块里
Private Sub Workbook_Open()
    ' 给Sheet1设置仅保护用户界面，VBA可自由操作
    Sheet1.Protect Password:="abc", UserInterfaceOnly:=True
End Sub

设置后，后续VBA不需要再执行Unprotect/Protect就能直接修改Sheet1，自然不会触发剪贴板被清的问题。唯一要注意的是：这个参数不会随工作簿保存，所以必须每次打开都执行一遍，放在Workbook_Open里刚好合适。

方案2：保存+恢复剪贴板内容（适合必须切换保护的场景） #

如果你的业务逻辑必须反复取消和重新保护工作表，那可以在操作前后把剪贴板内容存起来，操作完再恢复。下面是Windows版的示例代码（Mac版可以用AppleScript辅助实现类似逻辑）：

' 先声明剪贴板相关的Windows API函数
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function GetClipboardData Lib "user32" (ByVal uFormat As Long) As Long
Declare Function SetClipboardData Lib "user32" (ByVal uFormat As Long, ByVal hMem As Long) As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long

Const CF_TEXT = 1
Const GMEM_MOVEABLE = &H2

Sub ProtectSheetKeepClipboard()
    Dim savedClipboard As String
    Dim hMem As Long, lpMem As Long
    
    ' 第一步：保存当前剪贴板的文本内容
    If OpenClipboard(0&) Then
        hMem = GetClipboardData(CF_TEXT)
        If hMem <> 0 Then
            lpMem = GlobalLock(hMem)
            savedClipboard = String$(GlobalSize(hMem), vbNullChar)
            lstrcpy savedClipboard, lpMem
            GlobalUnlock hMem
        End If
        CloseClipboard
    End If
    
    ' 第二步：执行你的取消保护+保护操作（中间可以加业务逻辑）
    Sheet1.Unprotect "abc"
    ' 这里放你需要在取消保护状态下执行的代码
    Sheet1.Protect "abc"
    
    ' 第三步：恢复剪贴板内容
    If savedClipboard <> "" Then
        hMem = GlobalAlloc(GMEM_MOVEABLE, Len(savedClipboard) + 1)
        lpMem = GlobalLock(hMem)
        lstrcpy lpMem, savedClipboard
        GlobalUnlock hMem
        If OpenClipboard(0&) Then
            Call SetClipboardData(CF_TEXT, hMem)
            CloseClipboard
        End If
    End If
End Sub

⚠️ 注意：这个示例只处理纯文本剪贴板内容，如果复制的是带格式的单元格区域，需要适配Excel专属的剪贴板格式，代码会更复杂，但核心思路都是先存后恢复。

方案3：模拟UI操作（应急用，不推荐长期依赖） #

如果以上方法都不适用，可以用SendKeys模拟手动点击审阅面板的操作，这样和UI操作效果一致，不会清剪贴板：

Sub SimulateUIUnprotect()
    ' 模拟按下Alt+R打开审阅选项卡
    SendKeys "%R", True
    ' 点击"取消保护工作表"按钮（不同版本快捷键可能有变化）
    SendKeys "P", True
    ' 输入密码并回车确认
    SendKeys "abc~", True
End Sub

Sub SimulateUIProtect()
    SendKeys "%R", True
    SendKeys "P", True
    SendKeys "abc~", True
End Sub

但这个方法稳定性很差——必须保证Excel窗口处于激活状态，而且不同语言、不同版本的Excel快捷键可能不一样，所以只适合临时应急，不推荐作为正式解决方案。

总结一下：优先用方案1，省心又稳定；必须切换保护状态就用方案2；实在没办法再考虑方案3。

内容的提问来源于stack exchange，提问作者Gaurav Sharma