當我試圖執行此代碼時,它只執行Exit Sub
之後的部分,只有在執行foreach循環時纔會執行此操作。我認爲這是由Exit Sub
造成的。我的問題是,如果工作表未受保護,我想在工作表受到保護時執行不同的代碼(for each cell in Range("B6:B112..
))和另一個(從Dim rng as Range
..開始)。我試過If..Then..Else
但這不起作用。在不受保護和受保護的工作表中實現代碼VBA Excel
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("test").ProtectContents Then Exit Sub
For Each cell In Range("B6:B112")
If cell.Value <> "" Then
cell.EntireRow.Hidden = False
Else
cell.EntireRow.Hidden = True
End If
Next cell
Dim rng As Range
Dim eingabeNr As Double, letzteZeile As Long, eingabeDatum As String, eingabeNrString As String
Set rng = Range("D:BC")
THX。
爲什麼'If..Then..Else'不工作? – YowE3K
我不太確定在哪裏把'If..then..else'試了很多,但它不起作用@YowE3K – flowers1234