问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

vba 帮忙简化一下。

发布网友 发布时间:2022-04-23 05:39

我来回答

3个回答

热心网友 时间:2023-07-04 14:04

Private Sub Workbook_Deactivate()
Dim i As Integer
Dim b As Shape
For i = 1 To Sheets.Count
'关闭时删除图片
Sheets(i).Select
ActiveSheet.Unprotect Password:="66477"
If Sheets(i).Name <> "目录" Then
For Each b In ActiveSheet.Shapes
If b.Type = msoPicture Then '新加的判断语句
b.Delete '删除图片
End If
Next
End If
ActiveSheet.Protect Password:="66477"
Next i

ActiveWorkbook.Save '保存当前工作簿文档
End Sub

热心网友 时间:2023-07-04 14:04

再看一下保护工作表与解除工作表保护的代码

热心网友 时间:2023-07-04 14:05

ActiveSheet.protect Password:=66477
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
提成点数怎么算公式 Huamei/华美每日粗粮粗纤维饼-适用对象 0pp01107格式化后成白屏且不能开机怎么办 五邑大学是市属还是省属 五邑大学校区有几个 窝瓜焖荷包蛋怎么做? 达科塔·芬妮简要生平 湖北自动冷库多少钱 虹口区海洛斯精密空调 ...回事联想电脑为什么一接通电源自己就自动开机了 苹果手机还在微信视频聊天就黑屏 请解析一下一段vba代码,代码是关于设置计时器的 求大神帮我注释下下面代码(VBA excel) EXCEL vba 如何更改文档属性,如标题、作者等 请问用excel的VBA如何操纵记事本,比如读,写等的操作? cf宽屏电脑怎么调全屏 VBA编程中MsgBox函数怎么用 Excel2003帮助文档中关于VBA的部分无法打开,请问如何查找相关帮助? 求一个office2007完整版(要带VBA帮助文件的).非常感谢! 谁有CorelDRAW VBA的帮助文件中文版 怎样获得OFFICE word 等VBA 编程的帮助说明文档 wps 下载了vba帮助文件该放到哪个文件夹?才能实现抹黑按F1效果? Excel vba 有没有这种帮助文件,可以自己没事看看的? Excel2007如何插入数据透视表? 请给我一份excel的vba帮助文件,谢谢 excel2007数据透视表怎么做 vba帮助文件,按F1 能显示的 EXCEL中有个VBA帮助文件 如何在excel2007制作数据透视表 Excel 哪里有VBA函数的帮助文档 手机不能看微信视频,打开看就是黑屏的,请问是什么原因? VBA 当sheet1数据为空时,代码出现错误,求解 微信视频,看不到对方,手机呈黑屏状态,是什么原因? 在word里用vba编写一个按钮程序,目的是全文查找指定文字然后将该文档内的指定文字更改为红色。 微信视频打开,只有声音,没有图像,显示黑屏怎么回事? 黄版vba金手指代码(全) word或者是excel里面怎样可以打出2毫米乘以2毫米的表格 WPS表格单元格的数值的单位是毫米,计算的结果要米为单位。怎么做 Excel表格中有没有公式是可以换算米跟毫米单位然后再加减的?望大神解答 在EXCEL中,乘除如何一起算,怎样把毫米变成米 oppok7上市时间及参数? EXCEL表格中如何把数值毫米换算成米? oppok7x处理器是什么? EXCEL中的行高和列宽单位是什么?怎么样换算成毫米? Excel里怎么以mm作计量单位来调整行高或者列宽? OPPO K7很容易发热,怎么解决? 如何设置EXCEL表格的行宽为70毫米? 有谁知道在EXCEL上制表格时,单元格像素大小和毫米是怎样的转化啊? 在EXCEL2003中,如何将行高和列宽以毫米或者厘米为单位? 请问excel里面用厘米换算毫米?