Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 8120|回复: 24

[已解决]隐藏公式的VBA

[复制链接]
发表于 2013-12-13 22:32 | 显示全部楼层 |阅读模式
本帖最后由 武林长风 于 2013-12-16 18:48 编辑

想请教帮忙写个通用的(适合于任何有公式的excel)隐藏公式的VBA。我想达到这样的效果:凡是有公式的单元格都隐藏且无法删除;当要删除有公式的单元格时不再出现 新建文件夹.rar (1.97 KB, 下载次数: 7)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2013-12-13 22:55 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2013-12-13 22:57 | 显示全部楼层
回复

使用道具 举报

发表于 2013-12-13 22:59 | 显示全部楼层
你录制一个隐藏公式的宏就差不多了。
隐藏单元格的公式2步:
1.设置单元格式,保护:锁定,隐藏勾选
2.保护工作表
回复

使用道具 举报

发表于 2013-12-13 22:59 | 显示全部楼层
另外在工作表保护的前提下,就只需要设置单元格的隐藏和锁定就可以了。
回复

使用道具 举报

 楼主| 发表于 2013-12-13 23:04 | 显示全部楼层
hwc2ycy 发表于 2013-12-13 22:59
你录制一个隐藏公式的宏就差不多了。
隐藏单元格的公式2步:
1.设置单元格式,保护:锁定,隐藏勾选

先谢谢版主这么晚了还再回帖,怪我没说明白,其实我想达到这样的效果:凡是有公式的单元格都隐藏且无法删除;当要删除有公式的单元格时不再出现 1.jpg
回复

使用道具 举报

 楼主| 发表于 2013-12-13 23:22 | 显示全部楼层
武林长风 发表于 2013-12-13 23:04
先谢谢版主这么晚了还再回帖,怪我没说明白,其实我想达到这样的效果:凡是有公式的单元格都隐藏且无法删 ...

因为在工作中遇到了这样的问题:做了一个有公式的模板,想以后继续用,把填的内容删掉,但不删公式。
回复

使用道具 举报

 楼主| 发表于 2013-12-13 23:42 | 显示全部楼层
在网上找到了下面的代码,但试后不行,请VBA大师帮忙修改一下,或重新写一个。
SubCommandButton11_Click()    '增加公式隐藏和保护
    Dim f$, st As Worksheet, wb
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    On Error Resume Next
    f = Dir(ThisWorkbook.Path &"\*.xls")
    Do While f > " "
        If f<> ThisWorkbook.Name Then
           Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
           For Each st In wb.Sheets
               With st
               st.Unprotect
                   .Cells.Locked = False
                   .Cells.SpecialCells(xlCellTypeFormulas,23).Select
                   Selection.Locked = True
                   Selection.FormulaHidden = True
                   .Protect
.range("A1").Select '激活A1,选区自动消失
               End With
           Next st
           wb.Close 1
        End If
        f = Dir
    Loop
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

回复

使用道具 举报

 楼主| 发表于 2013-12-14 08:01 | 显示全部楼层
请VBA高手帮忙啊。
回复

使用道具 举报

 楼主| 发表于 2013-12-14 08:03 | 显示全部楼层

回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 05:22 , Processed in 0.382162 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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