Auxilio urgente con macro y readonly

[cacagon]

La idea es que via una macro en excel, al guardar un archivo, este quede con una protección de lectura.

gracias.

 

[Greg Truby]

¡Bienvenido a MrExcel!

Para mi, sería más fácil usar las opciones que se presenten al momento de user Save As en vez de programación. Pero aquí tiene el código necesario:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not Me.WriteReserved Then
        Me.WritePassword = "frijoles"
    End If
End Sub