Macro commande
bonjour
qui peut me dire ou je bloque
"SubOuvPro" ne fiait rien
macro Ci jointe
Sub OuvPro()
Sheets("MCVS").Select
If "MCVS" = Protect Then Call Module3.Protection
If "MCVS" = Unprotect Then Call Module3.Ouverture
Sheets("MCVS").Select
Range("B15").Select
End Sub
Sub Protection()
'
' Protection Macro
'
Application.ScreenUpdating = False
Sheets("Justificatif").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets("RecapFrais").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets("Semaine1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets("RecapMois").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets("RapportActivité").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets("PlanningS+1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets("MCVS").Select
Columns("H:CB").Select
selection.EntireColumn.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Application.ScreenUpdating = True
End Sub
Sub Ouverture()
'
' Ouverture Macro
'
'
Application.ScreenUpdating = False
Sheets("Justificatif").Select
ActiveSheet.Unprotect
Range("A4").Select
Sheets("RecapFrais").Select
ActiveSheet.Unprotect
Range("C7").Select
Sheets("Semaine1").Select
ActiveSheet.Unprotect
Range("A7").Select
Sheets("RecapMois").Select
ActiveSheet.Unprotect
Range("K2").Select
Sheets("RapportActivité").Select
ActiveSheet.Unprotect
Range("B10").Select
Sheets("PlanningS+1").Select
ActiveSheet.Unprotect
Range("C13").Select
Sheets("MCVS").Select
ActiveSheet.Unprotect
Columns("G:CC").Select
selection.EntireColumn.Hidden = False
Range("A1:C1").Select
Application.ScreenUpdating = True
End Sub
de plus j'aimerai avoir un mot de passe pour déprotéger
Bonjour,
Auriez vous le fichier à joindre, merci.
Ce sera plus facile...
@ bientôt
Loureed
bonsoir LouReed
dans l'onglet MCVS il y a 3 boutons
"P" "O" et "O/P" j'aimerai n'avoir que "O/P" qui fait un fois protection ou une fois déprotection suivant l'état du classeur
si en plus on peut mettre un mot de passe pour empêcher toute ouverture d'onglet cela serait bien
merci
Bonsoir Maurice
Toujours pas de fichier ?!
@ bientôt
LouReeD
je viens de le rajouter
je ne comprends pas je l'ajoute mais je n'ai pas l'impression qu'il part
je viens de comprendre mon fichier est trop volumineux
j'ai donc enlevé des onglet sur la version envoyée
mais les macro sont bonne
regarde dans l'onglet MCVS tu va voir trois bouton ce que j'aimerai c'est qu'il excite plus que le bouton "O/P"
de plus si je peux installer un mot de passe sur ce bouton et empêcher toute déprotections des onglets sans passer par ce bouton super
merci encore de ta patience et de ton regard
cordialement
Bonjour
Il me semble que tu as déjà posé ce problème sur un autre fil.
Et je t'avais répondu ... pas toi ...
Je te renvoie tout de même ma proposition, adaptée à ton fichier que ce coup-ci tu as joint.
Bye !
bonsoir gmb
oui j'ai déjà demandé désolé
mais quand je veux avec cela faire apparaître les colonne "G:CC" de l'onglet "MCVS" cela plante
regarde la fin des macro module 3 ouverture ou Protection
Sheets("MCVS").Select
Columns("H:CB").Select
selection.EntireColumn.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
ou
Sheets("MCVS").Select
ActiveSheet.Unprotect
Columns("G:CC").Select
selection.EntireColumn.Hidden = False
Range("A1:C1").Select
très très cordilement
Re bonsoir
Voilà en pièce jointe le fichier modifié
Mot de passe pour l'action du bouton : Loureed
Mot de passe pour la protection des feuilles : LRD
Masquage des colonnes avant mise en place de la protection
Affichage des colonnes après déprotection des feuilles
@ bientôt
LouReeD
Nota : chez moi une erreur à la fermeture...
bonsoir Loureed,
merci cela fonctionne super
je te remercie
très très cordialement
Bonjour,
mais de rien.
@ bientôt
LouReeD