VBA隐藏/取消隐藏按钮

Question

你好，我想使用几个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

但现在我有了一个按钮，它需要进行动力测试.

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 

(也是锁问题)

但它不起作用，也没有调试/o\

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

谢谢您抽时间见我。

Answer 1

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