chinel
XLDnaute Impliqué
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 !
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 !