在VBA中合并三个过程

Question

下午好，

我试图结合以下三个VBA段没有任何运气。搜索并没有给我带来多少好处。感谢您的帮助。

Sub UnProtectSheetWithPassword()
Sheets("Sheet2").Unprotect Password:="myPassword
End Sub"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("O3").Address Then
Range("B8:Q507").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("O2:O3")
End If
End Sub

Sub ProtectSheetWithPassword()
Sheets("Sheet2").Protect Password:="myPassword"
End Sub

Answer 1

也许这就是你想要的?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("O3").Address Then
Sheets("Sheet2").Unprotect Password:="myPassword"
Range("B8:Q507").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("O2:O3")
Sheets("Sheet2").Protect Password:="myPassword"
End If
End Sub