如何通过VBA代码为新建Excel文件设置‘Business Use’敏感度标签？

一、先获取“Business Use”标签的ID #

敏感度标签的设置需要用到标签ID，而非直接用名称。你可以用以下代码找到目标标签的ID：

Sub 获取BusinessUse标签ID()
    Dim labelInfo As Office.LabelInfo
    Dim allLabels As Office.Labels
    
    Set allLabels = ActiveWorkbook.SensitivityLabel.GetLabels()
    
    '遍历所有可用敏感度标签，匹配目标名称
    For Each labelInfo In allLabels
        If labelInfo.LabelName = "Business Use" Then
            MsgBox "Business Use的标签ID为：" & labelInfo.LabelId
            Exit Sub
        End If
    Next
    
    MsgBox "未找到名称为Business Use的敏感度标签"
End Sub

运行这个宏前，确保有一个已打开的Excel工作簿，且你的Office环境已配置敏感度标签体系。运行后会弹出对话框显示目标ID，记下来备用。

二、实现新建工作簿自动设置标签 #

要让代码在每次新建Excel文件时自动执行，需要把代码放在**个人宏工作簿（Personal.xlsb）**的应用程序事件中，操作步骤如下：

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 左侧项目栏找到Personal.xlsb（如果没有，先录制任意宏并保存到个人宏工作簿）
3. 右键点击Personal.xlsb下的ThisWorkbook，选择「查看代码」
4. 在代码窗口顶部的下拉菜单，依次选择Application和NewWorkbook，自动生成事件框架
5. 填入以下代码，替换其中的标签ID为你获取到的值：

Private Sub Application_NewWorkbook(ByVal Wb As Workbook)
    Dim targetLabelId As String
    '替换成你获取到的Business Use标签ID
    targetLabelId = "这里替换为实际的标签ID"
    
    '加入错误处理，避免标签不存在或权限问题导致报错
    On Error Resume Next
    Wb.SensitivityLabel.SetLabel targetLabelId, ""
    On Error GoTo 0
End Sub

补充说明 #

• 你之前提供的SaveAs代码并没有实际设置敏感度标签，只是注释说明，真正设置标签需要调用SensitivityLabel.SetLabel方法
• 该功能需要Office 365商业版/企业版支持，且你的账号有权限使用敏感度标签
• 确保个人宏工作簿启用宏，Excel启动时会自动加载，新建工作簿时事件会自动触发

内容的提问来源于stack exchange，提问作者Vasilis Kal