求助：如何设置Workbook仅允许选择性粘贴值？

一、VBA方案（可靠拦截所有粘贴操作） #

这个方案会拦截所有常规粘贴操作（包括Ctrl+V、右键粘贴、功能区粘贴），自动执行粘贴值，同时保留选择性粘贴值的手动操作。

步骤1：配置VBA代码 #

按Alt+F11打开VBA编辑器，双击左侧的ThisWorkbook模块，粘贴以下代码：

Private WithEvents app As Application

Private Sub Workbook_Open()
    ' 绑定Application级事件，仅在当前工作簿激活时生效
    Set app = Application
End Sub

Private Sub app_WorkbookBeforePaste(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    ' 取消默认粘贴行为
    Cancel = True
    ' 执行粘贴值操作
    Target.PasteSpecial Paste:=xlPasteValues
    ' 清除剪贴板的复制/剪切状态
    Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    ' 隐藏右键菜单中除"粘贴值"外的所有粘贴选项
    Dim pasteMenu As CommandBar
    Dim ctrl As CommandBarControl
    
    On Error Resume Next ' 避免菜单不存在时报错
    Set pasteMenu = Application.CommandBars("Cell").Controls("粘贴").CommandBar
    For Each ctrl In pasteMenu.Controls
        ' 仅保留"粘贴值"选项（中文环境），英文环境改为"Values"
        If ctrl.Caption <> "粘贴值" Then
            ctrl.Visible = False
        End If
    Next ctrl
    On Error GoTo 0
End Sub

注意事项 #

• 保存工作簿为.xlsm格式（启用宏的工作簿）
• 代码中ctrl.Caption需根据Excel语言调整：英文环境改为"Values"，中文为"粘贴值"
• 若需要允许剪切后粘贴值，可移除Application.CutCopyMode = False或调整逻辑

二、Custom UI方案（隐藏多余粘贴选项） #

如果不想依赖宏，可通过Custom XML修改功能区和右键菜单，只保留"粘贴值"选项；若要拦截Ctrl+V，需配合VBA快捷键拦截逻辑。

步骤1：编辑Custom UI XML #

使用Custom UI Editor工具打开你的工作簿，插入以下XML代码：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon>
        <tabs>
            <tab idMso="TabHome">
                <group idMso="GroupClipboard">
                    <!-- 保留粘贴画廊，但仅显示粘贴值 -->
                    <splitButton idMso="PasteGalleryMini" visible="true">
                        <button idMso="Paste" visible="false"/>
                        <menu idMso="PasteMenu">
                            <button idMso="PasteValues" visible="true"/>
                            <!-- 隐藏其他所有粘贴选项 -->
                            <button idMso="PasteValuesAndNumberFormats" visible="false"/>
                            <button idMso="PasteFormulas" visible="false"/>
                            <button idMso="PasteFormatting" visible="false"/>
                            <button idMso="PasteKeepSourceFormatting" visible="false"/>
                            <menuSeparator idMso="PasteMenuSeparator1" visible="false"/>
                            <menu idMso="PasteSpecialMenu" visible="false"/>
                        </menu>
                    </splitButton>
                </group>
            </tab>
        </tabs>
        <!-- 右键菜单配置 -->
        <contextMenus>
            <contextMenu idMso="ContextMenuCell">
                <button idMso="Paste" visible="false"/>
                <menu idMso="PasteMenu" visible="true">
                    <button idMso="PasteValues" visible="true"/>
                    <button idMso="PasteValuesAndNumberFormats" visible="false"/>
                    <button idMso="PasteFormulas" visible="false"/>
                    <button idMso="PasteFormatting" visible="false"/>
                    <menuSeparator idMso="PasteMenuSeparator1" visible="false"/>
                    <menu idMso="PasteSpecialMenu" visible="false"/>
                </menu>
            </contextMenu>
        </contextMenus>
    </ribbon>
</customUI>

补充：拦截Ctrl+V快捷键（配合VBA） #

若需要拦截Ctrl+V，在ThisWorkbook模块中添加以下代码：

Private Sub Workbook_SelectionChange(ByVal Target As Range)
    ' 禁用Ctrl+V快捷键，绑定到自定义粘贴值子程序
    Application.OnKey "^v", "PasteValueOnly"
End Sub

' 模块级别的粘贴值子程序
Sub PasteValueOnly()
    If Application.CutCopyMode <> xlCopy Then Exit Sub
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

三、组合方案（推荐） #

结合VBA和Custom UI实现双重保障：

1. 用Custom UI隐藏所有多余的粘贴选项，只保留"粘贴值"，保证界面简洁
2. 用VBA拦截所有粘贴操作（包括快捷键），自动执行粘贴值，彻底防止格式被覆盖

内容的提问来源于stack exchange，提问作者Ryan Price