Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
If Workbooks.Count = 1 Then MsgBox "请打开你要操作的目标工作簿", , "提示": Exit Sub
For i = 1 To Workbooks.Count
If Workbooks(i).Name <> ThisWorkbook.Name Then
If MsgBox("你要操作的是“" & Workbooks(i).Name & "”工作表吗?", vbYesNo, "提示") = vbYes Then
WKBK = Workbooks(i).Name
Exit For
End If
End If
Next
If WKBK = "" Then MsgBox "你没有选择任何工作簿": Exit Sub
With Workbooks(WKBK)
For i = 1 To .Sheets.Count
If .Sheets(i).Name = "Macro" Then
.Sheets(i).Range("A1:B13").Clear
GoTo ExistMacro
End If
Next i
.Sheets.Add Type:=xlExcel4MacroSheet
.ActiveSheet.Name = "Macro"
ExistMacr
With .Sheets("Macro")
.Range("A1").FormulaR1C1 = "=ERROR(TRUE,R5C1)"
.Range("A2").FormulaR1C1 = "=RUN(""NoRunMacro"")"
.Range("A3").FormulaR1C1 = "=RETURN()"
.Range("A5").FormulaR1C1 = "=IF(ERROR.TYPE(R2C1)=4)"
.Range("A6").FormulaR1C1 = "=ALERT(""对不起!由于你未启用宏,本文件即将关闭!"",3)"
.Range("A7").FormulaR1C1 = "=FILE.CLOSE(FALSE)"
.Range("A8").FormulaR1C1 = "=RETURN()"
.Range("A9").FormulaR1C1 = "=ELSE()"
.Range("A10").FormulaR1C1 = "=ERROR(TRUE)"
.Range("A11").FormulaR1C1 = "=RETURN()"
.Range("A12").FormulaR1C1 = "=END.IF()"
.Cells.Font.ColorIndex = 2
.Columns("A:IV").EntireColumn.Hidden = True
.Rows("1:65536").EntireRow.Hidden = True
End With
.Sheets("Macro").Visible = xlVeryHidden
For i = 1 To .Sheets.Count
.Sheets(i).Names.Add Name:="Auto_Activate", RefersToR1C1:="=Macro!R1C1"
.Sheets(i).Names("Auto_Activate").Visible = False
Next i
End With
MsgBox "恭喜你:" & vbLf & vbLf & "已为“" & WKBK &
"”增加了“不启用宏就关闭工作簿”的功能!" & vbLf & vbLf & " 你可以保存“"
& WKBK & "”后再打开试试!" & vbLf & vbLf & "(你至少要为“" &
WKBK & "”写一点VBA代码,否则看不到效果。)", , "提示"
Unload Me
Application.ScreenUpdating = True
End Sub
分享到:
相关推荐
vbs操作excel全集 vbs控制EXCEL
vbs 操作 excel
使用VBS操作EXCEL方法,可在自动化测试框架中,引起这部分功能,实现脚本控制及数据表配置
VBS操作Excel常见方法, (一) 使用动态创建的方法 (二) 使用VBS 控制Excle二维图
java调用,vbs操作excel
wincc中通过vbs写excel
VBS脚本操作Excel常见方法汇总
关于VBS操作Excel和Word的技术文档
VBS连接和操作EXCEL (一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: oExcel = CreateObject( "Excel.Application" ) 1) 显示当前窗口: oExcel.Visible = True 2) 更改 Excel 标题栏: oExcel.Caption ...
vbs对excel和 word的操作vbs对excel和 word的操作vbs对excel和 word的操作vbs对excel和 word的操作
vbs跳过宏安全提示和级别设置直接打开EXCEL
从国外网站上找到的用vbs读取excel的脚本,比较强悍。 编辑代码,查找并在以下位置xls文件路径。 <pre> strExcelPath = "xls文件的路径" 当然,要想正确运行,你需得安装ms excel才行。
使用vbs汇集excel工作表(汇集的第一个表),使用GetObject(,"Excel.Application"),需要在汇总的excel中建立快捷方式(ctrl+k)到本vbs上,打开后第一次运行可能出现错误,再次运行就没有问题了,给需要的朋友借鉴...
NULL 博文链接:https://binyan17.iteye.com/blog/517092
如何在WINCC中基于VBS实现对EXCEL文件中数据的读写?
用vbs来操作Excel - VBS 转载
利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来 利用VBS将EXCEL内容读出来
通过命令行测试 , 参数为excel路径和pdf目标路径。 可以通过java调用,实现自动转换。
在wincc中,用vbs做excel报表时,经常会遇到报表打开时数据存不上的问题,这时需要先将报表关闭,数据才能够保存到报表中。本文介绍了用VBS脚本自动将某个excel文件关闭的方法。