请教老师：怎样用VBA代码隐藏表格的公式栏和Sheet页？

hgzmal

请教老师：怎样用VBA代码隐藏表格的公式栏和Sheet页？如图，谢谢老师。祝您一切都好，无论是现实还是网络！

liucqa

工作表标签右键的屏蔽与恢复汇总 [复制链接]
经常看到关于工作表标签右键中的项变成灰色或去除后找不了，现将收集的屏蔽方法与解除方法整理汇总了一下：

屏蔽方法大概有以下三种方法：
Sub 工作表标签右键灰色1()
Application.CommandBars("ply").Controls("删除(&D)").Enabled = False          '右键工作表标签“删除”为灰色
Application.CommandBars("ply").Controls("重命名(&R)").Enabled = False          '右键工作表标签“重命名”为灰色
Application.CommandBars("ply").Controls("选定全部工作表(&S)").Enabled = False          '右键工作表标签“选定全部工作表”为灰色
Application.CommandBars("ply").Controls("查看代码(&V)").Enabled = False          '右键工作表标签“查看代码”为灰色
End Sub

Sub 工作表标签右键禁用2()
Application.CommandBars("Ply").Enabled = False
End Sub

Sub 去除工作表标签右键3()
Application.CommandBars("ply").Controls("删除(&D)").Visible = False         '去除右键工作表标签“删除”
Application.CommandBars("ply").Controls("重命名(&R)").Visible = False         '去除右键工作表标签“重命名”
Application.CommandBars("ply").Controls("选定全部工作表(&S)").Visible = False         '去除右键工作表标签“选定全部工作表”
Application.CommandBars("ply").Controls("查看代码(&V)").Visible = False         '去除右键工作表标签“查看代码”
End Sub



解除方法大概有以下五种方法：
Sub 解除工作表右键屏蔽1()
Application.CommandBars("ply").Controls("删除(&D)").Enabled = True          '解除右键工作表标签“删除”为灰色
Application.CommandBars("ply").Controls("重命名(&R)").Enabled = True          '解除右键工作表标签“重命名”为灰色
Application.CommandBars("ply").Controls("选定全部工作表(&S)").Enabled = True          '解除右键工作表标签“选定全部工作表”为灰色
Application.CommandBars("ply").Controls("查看代码(&V)").Enabled = True          '解除右键工作表标签“查看代码”为灰色
End Sub

Sub 解除工作表标签右键禁用2()
Application.CommandBars("Ply").Enabled = True
End Sub

Sub 解除工作表右键屏蔽3()
Dim Ctl As CommandBarControl
    For Each Ctl In Application.CommandBars("ply").Controls
        Ctl.Enabled = True
    Next
End Sub

Sub 解除工作表右键屏蔽4()
Application.CommandBars("ply").Reset
End Sub

Sub 解除去除工作表标签右键5()
Application.CommandBars("ply").Controls("删除(&D)").Visible = True         '解除去除右键工作表标签“删除”
Application.CommandBars("ply").Controls("重命名(&R)").Visible = True         '解除去除右键工作表标签“重命名”
Application.CommandBars("ply").Controls("选定全部工作表(&S)").Visible = True         '解除去除右键工作表标签“选定全部工作表”
Application.CommandBars("ply").Controls("查看代码(&V)").Visible = True         '解除去除右键工作表标签“查看代码”
End Sub

需要说明的是，并不是所有的屏蔽方法都可以用以上任意一种方法来进行解除，要选择合适的解除方法才行，不过也不外乎这五种方法，实在不知道，可以逐一地试，为方便大家，特传一个附件作为参考（截图中左边从上至下依次为屏蔽的三种方法，其解除方法对应在右边的五种方法，以上均在EXCEL2003中测试通过，2007没试过）。

liucqa

Application.DisplayFormulaBar = False

hgzmal

liucqa 发表于 2012-2-11 17:42
Application.DisplayFormulaBar = False

谢谢老师，这个只是隐藏公式栏了，下面的SHEET还是没有隐藏。

ly

hgzmal 发表于 2012-2-11 18:07
谢谢老师，这个只是隐藏公式栏了，下面的SHEET还是没有隐藏。

1. ActiveWindow.DisplayWorkbookTabs = False

复制代码

hgzmal

ly 发表于 2012-2-11 18:31

谢谢谢谢老师，可以啦，谢谢！

qinhuan66

好好学习天天向上

yutiger0

学习了，有用！

HTHX

双击单元格还是看的见的

HTHX

双击单元格，公式还是看得见的。