Macro para guardar una copia del libro y protegerla al mismo tiempo

Tengo la siguiente macro que guarda una copia del libro con el nombre de una celda en una carpeta especifica

Dim MiArchivo As String
MiArchivo = Range("I19")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"\\SERVIDOR\Mis documentosS\ORDENES DE MANTENIMIENTO\" & MiArchivo, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'Aquí se modifica el tipo de extensión que deseas
Application.DisplayAlerts = True

Lo que necesito es que la copia que yo creo con la macro, quede protegida para que el que la vuelva a abrir no la pueda modificar. De ante mano agradezco cualquier ayuda.