Fichier protégé par une macro comment modifier le format cellule
Résolu/Fermé
Natty
-
20 oct. 2014 à 15:11
NattyMA Messages postés 3 Date d'inscription lundi 20 octobre 2014 Statut Membre Dernière intervention 21 octobre 2014 - 21 oct. 2014 à 10:53
NattyMA Messages postés 3 Date d'inscription lundi 20 octobre 2014 Statut Membre Dernière intervention 21 octobre 2014 - 21 oct. 2014 à 10:53
A voir également:
- Fichier protégé par une macro comment modifier le format cellule
- Fichier rar - Guide
- Format epub - Guide
- Modifier dns - Guide
- Comment réduire la taille d'un fichier - Guide
- Modifier liste déroulante excel - Guide
3 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
20 oct. 2014 à 15:26
20 oct. 2014 à 15:26
Bonjour
comme cela,
.Protect Contents:=True, Password:="motdepasse", UserInterfaceOnly:=True, Scenarios:=True
comme cela,
.Protect Contents:=True, Password:="motdepasse", UserInterfaceOnly:=True, Scenarios:=True
NattyMA
Messages postés
3
Date d'inscription
lundi 20 octobre 2014
Statut
Membre
Dernière intervention
21 octobre 2014
20 oct. 2014 à 15:54
20 oct. 2014 à 15:54
... J'ai essayé mais ça ne change rien ... j'sais j'suis pô douée ... :-(
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
Modifié par Mike-31 le 20/10/2014 à 16:15
Modifié par Mike-31 le 20/10/2014 à 16:15
Re,
alors essaye comme cela
.Protect Password:="motdepasse", DrawingObjects:=False, UserInterfaceOnly:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True
et avant end sub colle cette ligne
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
alors essaye comme cela
.Protect Password:="motdepasse", DrawingObjects:=False, UserInterfaceOnly:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True
et avant end sub colle cette ligne
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
NattyMA
Messages postés
3
Date d'inscription
lundi 20 octobre 2014
Statut
Membre
Dernière intervention
21 octobre 2014
20 oct. 2014 à 22:08
20 oct. 2014 à 22:08
Je viens de voir ta réponse ... J'essaye demain et je te dis si ça fonctionne ... Suspense ;-)
Merci et bonne soirée
Merci et bonne soirée
NattyMA
Messages postés
3
Date d'inscription
lundi 20 octobre 2014
Statut
Membre
Dernière intervention
21 octobre 2014
21 oct. 2014 à 10:53
21 oct. 2014 à 10:53
Test fait ce matin !!! ça marche !!! Merci Merci et encore Merci !!!