Open Rec For Output As #1: Close: SetAttr Rec, vbHidden: SetAttr Rec, vbReadOnly
SetAttr Rec, vbHidden OR vbReadOnly OR vbSystem