debogage lecture seule

[damien]

bonsoir à tous,

J'ai un fichier avec un enregistrement auto à la fermeture. Et je voudrai que lorsqu'il est ouvert en lecture seule, à la fermeture qu'il ce ferme sans enregistrement pour éviter les msg de debobage.


merci
damien

 

[AeroPlanneur]

bonsoir Damien,

peut-être simplement en ajoutant un 'on error resume next'

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ThisWorkbook.Save
End Sub

cordialement

 

[damien]

merci aeroplanneur

il me renvoi une erreur 1004

je voudrai que si il est en lecture seule et me le ferme tout simplement.

damien

 

[AeroPlanneur]

Damien,

est-ce que tu peux publier ton code
'Sub Workbook_BeforeClose' ?

cordialement

 

[damien]

aeroplanneur
voila mon code

Private Sub workbook_beforeclose(Cancel As Boolean)


Application.CommandBars('row').Controls('insertion LIGNE').Delete 'Ma_Macro étant le nom donné
Application.CommandBars('CELL').Controls('MODIFIER LIGNE').Delete
For Each Bar In Application.CommandBars
If Bar.BuiltIn And Not Bar.Visible Then Bar.Enabled = True
Next

ActiveWorkbook.Protect Structure:=True, Windows:=False

'Application.CommandBars('TOOLS').Controls('personnaliser...').Enabled = True
Application.CommandBars('Worksheet Menu Bar').Enabled = True
Application.CommandBars('Standard').Enabled = True
Application.CommandBars('Formatting').Enabled = True
Application.CommandBars('Control Toolbox').Enabled = True
Application.CommandBars('visual basic').Enabled = True
'Application.CommandBars('File').Controls('enregistrer sous...').Enabled = True
'Application.CommandBars('File').Controls('fermer').Enabled = True
'Application.CommandBars('TOOLS').Controls('protection').Enabled = True
'Application.CommandBars('TOOLS').Controls('macro').Enabled = True

End Sub


et mon code auto_close

Sub auto_close()


Application.CommandBars('mouvement').Delete
ActiveWorkbook.Save
End Sub

 

[damien]

merci aeroplanneur

 

[AeroPlanneur]

Damien,

ton erreur 1004, tu l'as dans la macro auto_close() ?
Si c'est le cas, c'est dans cette macro que tu peux ajouter 'On error resume next'

cordialement

 

[damien]

re bonsoir
je l'ai deja fait mais ça ne change rien. Peut etre que je le place mal je ne c'est plus.

damien