Change the path to the input file for Windows
CopyFile["/Library/Wolfram/Documentation/13.0/en-us/Documentation/\
English/System/Guides/GraphModifications.nb",
FileNameJoin@{NotebookDirectory[], "MyGraphModifications.nb"}]
NotebookOpen[FileNameJoin@{NotebookDirectory[], "MyGraphModifications.nb"}]
Select all cells Command-a on a Mac. From the menubar Cell / Cell Properties select Editable. You can now make changes to the notebook. However, File / Save is disabled, not sure how to enable it. Have to use Save As and overwrite the file.