Bonjour,
J'ai beau fouiller dans le forum, je ne vois pas ce que j'ai fait de mal dans ma macro suivante (je veux déprotéger la feuille juste le temps d'enregistrer une copie au format web mais à la fin de l'exécution de la macro, j'ai le message équivalent à "Impossible d'enregistrer au format web un classeur à feuille protégée) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Unprotect "lemotdepasse"
ChDir "C:\Users\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Desktop\essai.xlsm.htm", FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Goto Reference:="web"
ActiveSheet.Protect "lemotdepasse", True, True, True
End Sub
Voyez-vous mon erreur ?
Merci pour votre aide.
Salutations cordiales
J'ai beau fouiller dans le forum, je ne vois pas ce que j'ai fait de mal dans ma macro suivante (je veux déprotéger la feuille juste le temps d'enregistrer une copie au format web mais à la fin de l'exécution de la macro, j'ai le message équivalent à "Impossible d'enregistrer au format web un classeur à feuille protégée) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Unprotect "lemotdepasse"
ChDir "C:\Users\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Desktop\essai.xlsm.htm", FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Goto Reference:="web"
ActiveSheet.Protect "lemotdepasse", True, True, True
End Sub
Voyez-vous mon erreur ?
Merci pour votre aide.
Salutations cordiales