[已解决]如何编个代码：让右键单元格格式可用？

simonshaw · 发表于 2013-4-27 15:58

如题，工作表一被代码保护，不知为什么右键----单元格格式也用不了（灰色了）。打开保护，自己重设置后再被保护又用不了，所以想求段代码，要设置单元格的时候运行一下代码看行不行。

最佳答案

zjdh

2013-4-27 16:47

用以下代码保护
ActiveSheet.Protect AllowFormattingCells:=True

su45 · 发表于 2013-4-27 16:05

要上传附件才能知道原因！

simonshaw · 发表于 2013-4-27 16:26

su45 发表于 2013-4-27 16:05
要上传附件才能知道原因！

只要运行这个代码ActiveSheet.Protect Password:=""，就不可以用了。

重新设置一下暂时可以用，如果再运行上面的代码，就又不可以用了。

老师直接编个代码运行一下，让右键能用就行了。

zjdh · 发表于 2013-4-27 16:30

ActiveSheet.UnProtect

simonshaw · 发表于 2013-4-27 16:32

zjdh 发表于 2013-4-27 16:30
ActiveSheet.UnProtect

在被保护的情况下能不能设置呢？我想要的是这个效果。

simonshaw · 发表于 2013-4-27 16:36

不运行这些代码，手工设置保护工作表后，右键单元格格式设置是可用的，为什么用这些代码保护后就不能用了呢？

zjdh · 发表于 2013-4-27 16:47

用以下代码保护
ActiveSheet.Protect AllowFormattingCells:=True

simonshaw · 发表于 2013-4-27 17:08

zjdh 发表于 2013-4-27 16:47
用以下代码保护
ActiveSheet.Protect AllowFormattingCells:=True

上面的代码和这个代码怎么写成一句呢？
ActiveSheet.Protect Password:=""

zjdh · 发表于 2013-4-27 18:01

simonshaw 发表于 2013-4-27 17:08
上面的代码和这个代码怎么写成一句呢？
ActiveSheet.Protect Password:=""

上一句代码替换这句代码
ActiveSheet.Protect Password:=""

su45 · 发表于 2013-4-27 19:45

那就这样：

先解除工作表保护，再进VBA，将“ActiveSheet.Protect Password:=""”删除，就行了！

		自动登录	找回密码
密码			注册