AllowEditRanges.Add麻烦

Question

我遇到了AllowEditRanges问题。以下代码适用于从a1到g1的范围：

Dim ws As Worksheet
Set ws = Application.ActiveSheet
ws.Unprotect
ws.Protection.AllowEditRanges.Add Title:="Classified", Range:=Range("A1:G1"), Password:="pw"
ws.Protect

第二个我将范围更改为Range:=Range("$A:$G;$I:$O")我收到以下错误：

错误1004：方法范围对象_global失败（对不起翻译）

任何帮助将不胜感激。