VBA隐藏/取消隐藏button

你好，我想使用几个VBA代码，更短=更好，我有这样的：

Sub less0() Security.UnlockS Range("15:29").Rows.Hidden = True Security.LockS End Sub Sub more0() Security.UnlockS Range("15:29").Rows.Hidden = False Security.LockS End Sub 

但现在我有一个button，它需要dynamic地尝试这个…

 Sub less001() Security.UnlockS Dim what As String: what = Range("18:26").Rows.Hidden If what = True Then what = False: If what = True Then Exit Sub If what = False Then what = True: If what = False Then Exit Sub Security.LockS End Sub 

（也locking问题）

但它不工作，没有debugging/ o \

请问我在这里看到过一些类似的代码，但是它们非常复杂，我觉得这是一个简单的例子。

感谢您的时间。

Answer 1

 Sub less001() Security.UnlockS With Range("18:26").Rows .Hidden = Not .Hidden End with Security.LockS End Sub