AllowEditRanges.Add Probleme

Question

Ich habe Probleme mit AllowEditRanges. Der folgende Code korrekt ist für einen Bereich von a1 bis 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 

Die zweiten I die Reichweite in Range:=Range("$A:$G;$I:$O") ändere ich die folgenden Fehler:

Fehler 1004: Methode Range-Objekt _global fehlgeschlagen (Sorry für die Übersetzung)

Jede Hilfe wird geschätzt.

Answer 1

Versuchen Sie ein Komma in wie folgt setzen:

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