bwin官网网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+bwin平台初中高全套+VBA80集,想学的这儿全都有
12
返回列表 发新帖
楼主: simonshaw
打印 上一主题 下一主题

[求助] 如何用VBA隐藏锁定指定单元格区域的公式?

[复制链接]
11#
发表于 2013-3-31 11:50 | 只看该作者
bwin官网的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
simonshaw 发表于 2013-3-31 11:23
能不能在VBA里设修改蜜码呢,这段是隐藏和锁定。如果自己想根据密码解除,最好能跳出个输入密码解除隐藏和 ...

- -!!要求不少啊!呵呵
  1. Sub ni()
  2. Dim a%, b%, c$
  3. For a = 2 To 9
  4. For b = 13 To 37
  5. If (b <= 22) Or (b >= 31) Then
  6.     If Cells(b, a).HasFormula = True Then
  7.     Cells(b, a).Select
  8.     Selection.Locked = True
  9.     Selection.FormulaHidden = True
  10.     Else: Cells(b, a).Select
  11.     Selection.Locked = False
  12.     Selection.FormulaHidden = False
  13.     End If
  14. End If
  15. Next
  16. Next
  17. c = InputBox("请输入密码")
  18. Sheets("Sheet1").Select
  19. ActiveSheet.Protect (c)
  20. End Sub
复制代码
这些应该满足使用了
12#
发表于 2013-3-31 11:53 | 只看该作者
忘记了,把sheets("sheet1").select那行删掉,如果想在其他工作表中使用的话
13#
 楼主| 发表于 2013-3-31 12:04 | 只看该作者
1114550349 发表于 2013-3-31 11:53
忘记了,把sheets("sheet1").select那行删掉,如果想在其他工作表中使用的话

我试试,看哪一个好些,
14#
 楼主| 发表于 2013-3-31 14:11 | 只看该作者
能不能编个独立于工具栏工作表保护之外的代码呢,也就是单元格区域被保护或锁定但在那个工具栏里看不到撤消工作表保护。

这样的代码能不能编得出来呢

经过试用,上面的代码和工具栏的操作没多大区别啊
15#
匿名  发表于 2019-6-22 21:10
1114550349 发表于 2013-3-31 11:50
- -!!要求不少啊!呵呵这些应该满足使用了

只能锁定,不能解除锁定

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|bwin官网 ( 豫ICP备11015029号 )

GMT+8, 2019-6-30 03:32 , Processed in 0.050000 second(s), 2 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表