Enregestrer une feuille protegée VIA un code VBA

[Ilino]

Bonjour Forum

J’ai un code VBA (grâce au forum) je l’ai adapté selon mon programme, le rôle de ce code est enregistrer la feuille sélectionnée seulement( feuille Ordre Mission) dans un répertoire bien définie (Répertoire C:\Documents and Settings\Ordre Mission FSC 2012) jusqu’a ici tous va bien.

Voila , mon souci est lorsque je protège cette feuille ce code se débogue ??

Ci-dessous le code

Sub Enregistrement_Ordre_Mission()
Dim F As Worksheet
Set F = ActiveSheet
F.Copy 'copie dans un nouveau document
ActiveSheet.Range(F.UsedRange.Address) = F.UsedRange.Value
On Error Resume Next 'si le nom du bouton n'est pas correct...
ActiveSheet.Shapes("button 1").Delete
Application.DisplayAlerts = False 'si le fichier est déjà créé
On Error Resume Next 'si en plus le fichier est ouvert
ActiveWorkbook.SaveAs "C:\Documents and Settings\Ordre Mission FSC 2012\" & Range("K6")
If Err Then MsgBox "Enregistrement impossible." & vbLf & _
"Vérifiez que le fichier '" & Range("K6") & "' n'est pas ouvert..."
ActiveWorkbook.Close 'facultatif
End Sub
Merci par avance

 

[job75]

Re : Enregestrer une feuille protegée VIA un code VBA

Bonsoir Ilino,

Si TOTO est le mot de passe :

'-----------
F.Copy 'copie dans un nouveau document
ActiveSheet.Unprotect "TOTO"
ActiveSheet.Range(F.UsedRange.Address) = F.UsedRange.Value
On Error Resume Next 'si le nom du bouton n'est pas correct...
ActiveSheet.Shapes("button 1").Delete
ActiveSheet.Protect "TOTO"
'-------------

A+

 

[Ilino]

Re : Enregestrer une feuille protegée VIA un code VBA

Bonsoir forum , Salut JOB
Désolé pour ce retard, merci pour la réponse je vais l’essayer