please toggle this 2 SETS

SET 1

Sub LockAll()
ActiveDocument.MasterPage.GuidesLayer.Editable = False
ActiveDocument.MasterPage.DesktopLayer.Editable = False
ActivePage.GuidesLayer.Editable = False
End Sub

ActivePage.GuidesLayer.Editable = False    : PLEASE UPDATE THIS TO ALL PAGES GUIDES LAYERS

Sub UnlockAll()
ActiveDocument.MasterPage.DesktopLayer.Editable = True
ActiveDocument.MasterPage.GuidesLayer.Editable = True
ActivePage.GuidesLayer.Editable = True
End Sub

ActivePage.GuidesLayer.Editable = True    : PLEASE UPDATE THIS TO ALL PAGES GUIDES LAYERS

..........................

SET 2 

Sub Showall()
ActivePage.GuidesLayer.Visible = True
ActiveDocument.MasterPage.GuidesLayer.Visible = True
ActiveDocument.MasterPage.DesktopLayer.Visible = True
End Sub

ActivePage.GuidesLayer.Visible = True    : PLEASE UPDATE THIS TO ALL PAGES GUIDES LAYERS

Sub Unhideall()
ActiveDocument.MasterPage.DesktopLayer.Visible = False
ActiveDocument.MasterPage.GuidesLayer.Visible = False
ActivePage.GuidesLayer.Visible = False
End Sub

ActivePage.GuidesLayer.Visible = False    : PLEASE UPDATE THIS TO ALL PAGES GUIDES LAYERS