
1.新建一个EXCEL文档,并保存为启用宏的工作薄。
2.启用宏控制。
3.按ALT+F11,进入VBA编辑页面。
4.双击左边要添加打印按钮的sheet1,将准备好的代码复制进去。
5.点击开发工具--插入---按钮控件,出现对话框。
6.选择下面的那个代码名称,确定,而后在空间按钮上,先右键,出现周围6个圆圈时,左键点击一下文字区,修改文字为打印按钮。这样就解决了Excel如何添加一个可以实现打印的按钮的问题了。
你好!楼主想要的,其实很简单,VBA代码如下:(望笑纳)
Sub SuoDing()On Error Resume Next '忽略可能出现的错误
Set MySheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1
MySheet1.Protect Password:="123456", DrawingObjects:=True, _
Contents:=True, Scenarios:=True '保护工作表
End Sub
Sub JieSuo()
On Error Resume Next
Set MySheet1 = ThisWorkbook.Worksheets("Sheet1")
MySheet1.Unprotect Password:="123456" '解除保护
End Sub
在工作表界面的两个按钮分别指定这两个宏:
之后点击【锁定】则不能输入内容,点击【解锁】就可以正常输入。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)