Protection d'une feuille

[chinel]

Salut tout le monde !

j'ai une feuille protégée par mot de passe quand je veux la copier celle-ci ne se fait pas normal ! voici mon code :

Private Sub Enregistre_Click()
a = MsgBox("Veux-tu enregistrer une copie du planning ?", vbYesNo)
If a = vbYes Then
Sheets("Planning").Copy
'Suppression des boutons (ActiveX) dans la feuille
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
Sauvegarde.Show
Else
MsgBox "Tu pourras le faire plus tard !"
End If
End Sub

je voudrais mettre une sécurité qui pourrais se remettre quand la feuille est copiée et s'enlever quand je copie


merci d'avance de votre aide !

 

[wazzebu]

Re : Protection d'une feuille

Bonjour,

Tu as essayé le bout de code que je t'avais donné dans ton précédent fil ( même question?)

Bonjour,

J'ai trouvé sur le forum une ligne de code qui permet l'excecution de macro sur une feuille protégé:

Sheets("Feuil1").Protect userinterfaceonly:=True

En espérant que ca règle le pb !

A mettre au lancement du classeur, j'ai essayé et ca me permet de faire des copier/coller sur une feuille protégé

 

[chinel]

Re : Protection d'une feuille

ceci protège la feuille 1 ?

 

[wazzebu]

Re : Protection d'une feuille

En fait ca permet l'exécution de macro sur la feuil1.


Private Sub Workbook_Open()

Sheets("Feuil1").Protect userinterfaceonly:=True
Sheets("Feuil2").Protect userinterfaceonly:=True
Sheets("Feuil3").Protect userinterfaceonly:=True

End Sub

En faisant ca tu permet les macros sur les 3 feuilles memes si elles sont protégées.

Essaye et dis moi si c'est bon

 

[chinel]

Re : Protection d'une feuille

cela me donne une msgbox me demandant d'enlever un mot de passe ce n'est pas cela que je veux

je désirerais que la personne qui utilisera le programmme n'aie pas accès au mot de passe il faudrait par macro que la protection se mette dans le classeur et s'enlève quand je copie la feuille la feuille "Planning" après la copie de cette feuille la protection se remet


merci à toi !

 

[wazzebu]

Re : Protection d'une feuille

Bonjour,

désolé de répondre si tard petit problème de revalidation de compte (mais finalement résolu!!)

essaye avec:

Sheets("Feuil1").Protect Password:="ton mot de passe", userinterfaceonly:=True

ca devrait marcher!!

@+