MsgBox beim Öffnen Datei

Private Sub Workbook_BeforeOpen(Cancel As Boolean)
Dim i As Integer
i = MsgBox("Um die Makros zu aktivieren ist es zwingend erforderlich,dass das Tool vorher abgespeichert wird." _
& Chr(13) & " ", 1 + 16 + 256, " Achtung !!! Zwingende Notwendigkeit ! ")
End Sub

Oder gibt es eine Anweisung, welches die Makros alle automatisch aktiviert????

Grüße
Bernd