乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > <em>excel</em>工作表被<em>保护</em>了,但“撤消工

<em>excel</em>工作表被<em>保护</em>了,但“撤消工

作者:乔山办公网日期:

返回目录:excel表格制作


果当前工作表处于被保护状态,将无法进行复制、粘贴等编辑。
请到“审阅”选项下的“撤消保护工作表”中,输入正确的密码,解除保护。

看看工作簿有没有被共享(在最顶上的工作簿名称后面,有没有显示“共享”)。
如果有的话,取消共享即可。
取消的方法是:工具-突出显示修订,把勾选项去掉。excel的各个版本菜单文字略有不同。基本就在那地方。
Sub 对所有工作表保护或撒消保护()
M = MsgBox("以前已保护的工作表密码不变,若要统一密码请先撒消已保护的工作表。" & Chr(10) & "选[是]对所有工作表进行保护,选[否]对所有工作表撒消保护。", vbYesNoCancel)

If M = vbYes Then
a = InputBox("请输入工作表保护密码:")
For N = 1 To Worksheets.Count
Worksheets(N).Protect Password:=a, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End If

If M = vbNo Then
Line1: a = InputBox("请输入工作表撒消保护密码:")
For N = 1 To Worksheets.Count
On Error Resume Next
Worksheets(N).Unprotect Password:=a
If Err.Number <> 0 And E = 0 Then
E = N
End If
Next
If E <> 0 Then
Worksheets(E).Select
E = 0
M = MsgBox("对于此表密码不正确,是否重新输入?", vbYesNo)
If M = vbYes Then GoTo Line1
End If
End If
End Sub

上述代码可以选e799bee5baa6e997aee7ad94e78988e69d83337择性实现同时保护,和同时撤销保护,

具体操作如下:
1、 ALT+F11进入VB,菜单中选“插入”—>“模块”,然复制上述代码 粘入 窗口中,关闭VB回到EXCEL。
2、 ALT+F8 弹出宏对话框,点“执行”按钮,弹出对话框,点“是”对其保护,点“否”取消保护。

没有函数可以保护工作表、工作薄、锁定单元格、设置打印区域,所有的函数功能都是计算结果显示到写函数的那个单元格,不完成任何动作。
哈哈,不过呢,EXCEL的VBA可以做许多事情,包括你说的这些事情。当然,真正学会VBA不是我打几行字就能办到的,你可以选择宏、开始录制宏,把本表的所有事情做完,然后选择停止录制,这时候你可以编辑宏,看到许多代码,稍微利用一点技术可以让以上动作在所有工作表上重复一遍,你修改的方法一般如下:
sub 宏1()
for each s in sheets
s.activate
.....把原来的代码弄到这里就可以了.......
next s
end sub

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网