Sub AllowCommandBarCustomization(blnAllowEnabled As Boolean)
' 这个过程根据
' blnAllowEnabled 参数的值来决定允许或禁止通过“自定义”对话框
' 来访问命令条。
CommandBars("Tools").Controls("Customize...").Enabled = blnAllowEnabled
CommandBars("Toolbar List").Enabled = blnAllowEnabled
End Sub