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