I wrote a simple VBA to change the word page setup. it is working well, suddenly it beginto popup a window shows as below

Question

Sub Pagesetup()

    With ActiveDocument.Pagesetup
        .PaperSize = wdPaperA4
        .RightMargin = InchesToPoints(0.75)
        .LeftMargin = InchesToPoints(0.75)
        .TopMargin = InchesToPoints(1.5)
        .BottomMargin = InchesToPoints(1)
    End With
    
End Sub

Error message pop up

Add the one drive path in the trust list