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 

但现在我有一个按钮，它需要进行动态tryed这一点。 ..

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