excel - 无法从编辑器中删除 VBA 项目
问题描述
下面是每次我启动一个 excel 文件时出现的代码(根据附加的图像启动了 2 本书),我无法删除,甚至检查了 XLSTART 文件夹并且它不存在,请帮助我如何删除它?
Option Explicit
Const sResourcePrefix As String = "RES_"
'Get Culture
Private Function GetATPUICultureTag() As String
Dim shTemp As Worksheet
Dim sCulture As String
Dim sSheetName As String
sCulture = Application.International(xlUICultureTag)
sSheetName = sResourcePrefix + sCulture
On Error Resume Next
Set shTemp = ThisWorkbook.Worksheets(sSheetName)
On Error GoTo 0
If shTemp Is Nothing Then sCulture = GetFallbackTag(sCulture)
GetATPUICultureTag = sCulture
End Function
'Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
Application.Run ("fDialog")
End Sub
'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("RibbonCommand").Value
End Sub
'Callback for screentip
Public Sub GetATPScreenTip(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("ScreenTip").Value
End Sub
'Callback for Super Tip
Public Sub GetATPSuperTip(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("SuperTip").Value
End Sub
Public Sub GetGroupName(control As IRibbonControl, ByRef label)
label = ThisWorkbook.Sheets(sResourcePrefix + GetATPUICultureTag()).Range("GroupName").Value
End Sub
'Check for Fallback Languages
Private Function GetFallbackTag(szCulture As String) As String
'Sorted alphabetically by returned culture tag, then input culture tag
Select Case (szCulture)
Case "rm-CH"
GetFallbackTag = "de-DE"
Case "ca-ES", "ca-ES-valencia", "eu-ES", "gl-ES"
GetFallbackTag = "es-ES"
Case "lb-LU"
GetFallbackTag = "fr-FR"
Case "nn-NO"
GetFallbackTag = "nb-NO"
Case "be-BY", "ky-KG", "tg-Cyrl-TJ", "tt-RU", "uz-Latn-UZ"
GetFallbackTag = "ru-RU"
Case Else
GetFallbackTag = "en-US"
End Select
End Function
解决方案
推荐阅读
- arrays - 从(非)正态分布的数字数组中删除不相关的值(尾端)
- javascript - 如何使用表中的 ID 并将其发送到 php 文件进行查询
- ef-core-3.1 - 在多个上下文中使用 InMemoryDatabase
- ios - 在 iOS Flutter 插件的框架模块中包含非模块化标头
- scala - JsValue 是否有 BSONDocumentWriter 和 BSONDocumentReader?
- python - 如何在 div 类中打开所有 href?
- wordpress - 如何使未登录的用户可以使用页面(Wordpress)
- javascript - 我的点赞系统有问题,比如当我点击点赞按钮时,特定帖子没有增加
- android - 调试应用程序工作但发布应用程序不工作?
- javascript - 设置 vue.config.js 根据环境构建不同的页面