Tengo una pregunta sobre el guardado de excel
Impedir el guardado de un libro xlsm a menos que se introduzca una contraseña
Respuesta de snaki Fco
1
para esto debes hacerlo en "ThisWorkbook" 
Da doble click este
Y pones esto:
Private Sub workbook_BeforeSave(ByVal NoSaveAs As Boolean, Cancel As Boolean)
Dim NoSaveReply As Long
If NoSaveAs = True Then
NoSaveReply = MsgBox("No esta permito Guardar", vbCritical)
Cancel = (NoSaveReply = vbCancel)
Cancel = True
End If
End Sub
Da doble click este
Y pones esto:
Private Sub workbook_BeforeSave(ByVal NoSaveAs As Boolean, Cancel As Boolean)
Dim NoSaveReply As Long
If NoSaveAs = True Then
NoSaveReply = MsgBox("No esta permito Guardar", vbCritical)
Cancel = (NoSaveReply = vbCancel)
Cancel = True
End If
End Sub
