[已解决]怎样在特定工作簿允许执行宏

shhlg6666

怎样在特定工作簿允许执行宏。

最佳答案

月排行榜 / 总排行榜

高

2021-1-29 21:27

Sub 宏1()
'
' 宏1 宏
'

If ActiveSheet.Name = "明细" Then
Exit Sub
End If
    ActiveCell.FormulaR1C1 = "输入文字"
    Range("D7").Select
End Sub

跳转到最佳答案楼层

高

Sub 宏1()
'
' 宏1 宏
'

If ActiveSheet.Name = "明细" Then
Exit Sub
End If
    ActiveCell.FormulaR1C1 = "输入文字"
    Range("D7").Select
End Sub

shhlg6666

高 发表于 2021-1-29 21:27
Sub 宏1()
'
' 宏1 宏

不允许执行宏，如果再显示一个提示就更完美了

shhlg6666

shhlg6666 发表于 2021-1-30 15:29
不允许执行宏，如果再显示一个提示就更完美了

有点问题，我把标签汇总改成汇总1，把明细改成汇总，发现汇总1还是能执行宏。

高

shhlg6666 发表于 2021-1-30 16:15
有点问题，我把标签汇总改成汇总1，把明细改成汇总，发现汇总1还是能执行宏。

咱设的是明细工作表不能执行宏。第一个工作表改成什么都能执行啊。你有什么要求说一下。

shhlg6666

我要的是工作簿名称是 “汇总”，才能执行，反之其它名字都不能执行，并提示给一个提示说选的不是“汇总”工作表。谢谢啦！

shhlg6666

shhlg6666 发表于 2021-1-30 16:53
我要的是工作簿名称是 “汇总”，才能执行，反之其它名字都不能执行，并提示给一个提示说选的不是“汇总” ...

把=改成<>   就好了，如果不执行的话有个提示就好了。