No me funciona la macro - VB-MUNDO

angora · #1 (**permalink**) 12-12-2006, 01:12:21

Buenas tardes a todos espero que alguien me pueda ayudar con esta macro porque al correrla me sale error de sintaxis y me marca lo que esta en azul.

esta es la macro:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Esto inhabilita el 'Guardar como' y F12
If SaveAsUI = True Then
Cancel = True
MsgBox vbCrLf & UCase(Application.UserName) & vbCrLf & "Imposible guardar " & ActiveWorkbook.Name & " con un" & vbCrLf & "nombre distinto. El documento no se guardó.", Buttons:=vbCritical + vbOKOnly, Title:="¡ACCIÓN PROHIBIDA!"
Else
Cancel = False
End If
End Sub

Espero sus comentarios

Saludos

Alella · #2 (**permalink**) 12-12-2006, 09:43:57

Hola, que tal.

Un ejemplo de esta macro es el siguiente y funciona:

Código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim iReply As Integer
   If SaveAsUI = True Then
      iReply = MsgBox("Sorry, you are not allowed to save this Workbook as another name. " _
                     & "Do you wish to save this workbook.", vbQuestion + vbOKCancel)
     Cancel = (iReply = vbCancel)
   If Cancel = False Then Me.Save
     Cancel = True
  End If
End Sub

Revisa que la variable SaveAsUI no la tengas definidas más de una vez. Ten en cuenta que es Private.Ya nos contarás.

angora · #3 (**permalink**) 12-12-2006, 14:40:01

O.K. la boy a checar y te comento

Gracias

ST · #4 (**permalink**) 13-12-2006, 04:34:53

talvez te alcance quitando algunas lineas menos:

Código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox vbCrLf & UCase(Application.UserName) & vbCrLf & _
"Imposible guardar " & _
ActiveWorkbook.Name & " con un" & vbCrLf & _
"nombre distinto. El documento no se guardó.", _
Buttons:=vbCritical + vbOKOnly, Title:="¡ACCIÓN PROHIBIDA!"
End Sub

cual quier cosa comentas