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