C语言十三位数怎么输入,请问Excel表格里无法键入13位数字怎么处理?

新建一个空白的文档 工具—宏—宏安全性—选择“中”

之后 alt+f11打开vb编辑器 插入新模块后 把下面这段代码粘帖进去 保存后退出

打开刚才保存的文件 如果弹出安全提示 选择“启用宏”

就会自动运行并清除所有startup代码

-------------------------------开始复制--------------------------------

Sub Auto_Open()

Dim FS As Object

Dim BK As Workbook

Dim SHT As Worksheet

Dim ifExist As Boolean

On Error Resume Next

'判断是否存在StartUp,以ifExist标记

ifExist = False

If Dir(Application.StartupPath & "\" & "StartUp.xls") <> "" Then ifExist = True

If ifExist = False Then

For Each BK In Workbooks

If ifExist Then Exit For

For Each SHT In BK.Sheets

If ifExist Then Exit For

If BK.Sheets("StartUp").Name <> "StartUp" Then

ifExist = False

Else

ifExist = True

End If

Next SHT

Next BK

End If

'判断是否清除StartUp

If ifExist Then

If MsgBox("发现StartUp！" & vbCrLf & "StartUp可能影响你的Excel！是否清除？", vbOKCancel) = vbCancel Then Exit Sub

Else

MsgBox "未发现StartUp,自动退出"

ThisWorkbook.Close

Exit Sub

End If

'关闭StartUp.xls

Workbooks("StartUp.xls").Close False

'删除文件

Set FS = CreateObject("Scripting.FileSystemObject")

FS.DeleteFile Application.StartupPath & "\" & "StartUp.xls"

'删除宏模块StartUp

Application.DisplayAlerts = False

For Each BK In Workbooks

BK.Sheets("StartUp").Delete

Next BK

Application.DisplayAlerts = True

'恢复变量

Application.OnSheetActivate = ""

Application.OnKey "%{F11}"

Application.OnKey "%{F8}"

MsgBox "清除StartUp完毕,自动退出！"

ThisWorkbook.Close

End Sub

-----------------------------------------------复制结束--------------------------------------

取消

评论