This is what I get with version 12.3:
In[52]:= Get@
CloudObject[
"https://www.wolframcloud.com/obj/r.b.nachbar/Published/Genealogy.wl"]
In[54]:= Names["Genealogy`*"]
Out[54]= {"Family", "FamilyDelete", "FamilySummary", "FamilyTree", \
"FamilyTreeDelete", "FamilyTreeExistsQ", "FamilyTreeGraph", \
"FamilyTreeRename", "FamilyTreeSplit", "FamilyTreeSummary", \
"FamilyTreeTake", "FamilyTreeValidQ", "FindFamily", "FindIndividual", \
"GenealogicalProperty", "Individual", "IndividualDelete", \
"IndividualEquivalentQ", "IndividualSummary", "KindredGraph", \
"KindredRelationship", "KindredTreePlot", "ListFamilyTrees", \
"OrderBy", "ReadGEDCOM", "SetCurrentFamilyTree", "WriteGEDCOM", \
"$GenealogyReleaseNumber", "$GenealogyVersion", \
"$GenealogyVersionNumber"}
The file has Public permissions, so you should be able to load it.