Sub sec()
Application.SendKeys ("%tms")
Application.SendKeys ("%l")
Application.SendKeys "{ENTER}"
DoEvents
End Sub

will set the security level to low. It works by playing against the
standard menu bar:

Tools Macros Security
--
Gary''s Student - gsnu200722