AllowEditRanges.Add麻烦

我在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失败（对于翻译感到抱歉）

任何帮助将不胜感激。

Answer 1

尝试在这样的逗号：

 Range("$A:$G,$I:$O")