deproteger via un mot de passe vba

[sioli]

bonjour a tous

voila j'utilise une feuille proteger par un mot de passe.

j'excecute une macro or elle me demande le mot de passe .

et il possible de mettre dans la macro la deprotection via le mot de passe sans que l'utilisateur le vois .

ex:
ActiveSheet.Unprotect

mettre le mot de passe ici

Selection.Locked = False
Selection.FormulaHidden = False
Range('G4:I4').Select

activer la protection de la feuille de nouveau avec le mot de passe ici

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

merci a tous

 

[justine]

bonsoir le forum, sioli

sans confirmation, je te donne une solution

ActiveSheet.Unprotect pass:='mon_mot_de_passe'

a confirmer

 

[sioli]

bonjour

merci mais sa ne marche pas il y a une erreur

pour repondre a ta question:

quel est le plus dangereux, l'ami ou l'ennemi?

l'ami parque qu'il pourais devenir un enemi que tu ne s'est pas tandi que l'enemi tu s'est que sens est un donc tu est en garde.

je ne s'ais pas si sa te va comme reponse ?

 

[GG]

Bonjour Sioli et le forum

Voici pour désactiver le mot de passe

Workbooks.Open Fichier, , , , 'motdepasse lecture', 'motdepasse ecriture', True

et pour le valider

ActiveWorkbook.SaveAs Filename:=Fichier, _
FileFormat:=xlNormal, Password:='motdepasse lecture', WriteResPassword:='motdepasse ecriture', _ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Bonne journée

 

[ccpapy]

bonjour à tous,
une réponse de didier_mdf sur un autre post qui pourrait peut-être t'interesser:

-Par ailleurs, il est tout à fait possible de verrouiller des cellules pour empêcher toute modification de l'utilisateur tout en permettant aux macros VBA d'agir sur ces dernières, grâce au paramètre UserInterfaceOnly = True de la méthode Protect.

En résumé, si j'ai bien compris ton problème, je pense que le code ci-dessous placé dans l'évènement Workbook_Open() de l'objet ThisWorkbook, devrait répondre à ta question :

With Worksheets(1)
.EnableSelection = xlUnlockedCells
.Protect Password:='MotDePasse', UserInterfaceOnly:=True
End With

-voilà-

 

[AV]

Salut,

Pour les versions inférieures à XL2002, pour ne pas à avoir à déprotéger/protéger ta feuilles dans chaque macro, intégrer la protection ''sélective'' dans le module de Thisworkbook :

Private Sub Workbook_Open()
Feuil1.Protect Password:='zz', Contents:=True, UserInterfaceOnly:=True
End Sub

De cette façon, par macro uniquement, tu pourras ''intervenir'' sur cette feuille.
Bien évidemment, ça n'exonère pas de l'obligation de protéger ton projet : Alt + F11 .. Outils ... Propriétés de vbaProject... Protection...

AV [aaa]

 

[sioli]

bonjour et merci pour votre reponse,mais je ne vois pas ou je pourais mettre se que vous me dite dans ma macro?

Sub colligg3()
' colligg3 Macro
' Macro enregistrée le 13/12/2005 par ghostjc
'

Range('G4:I4,G5:H5,G6,G11:H11,G14:H14,G16:H16,G17:H17,G18:H18').Select
Range('G18').Activate
ActiveSheet.Unprotect
Selection.Locked = False
Selection.FormulaHidden = False
Range('G4:I4').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
Range('G3').Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:='=$G$3'
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
ActiveSheet.Unprotect
Selection.FormatConditions(1).Interior.ColorIndex = 4
Range('G21').Select
ActiveCell.FormulaR1C1 = '=NOW()'
Selection.Font.Bold = True
Range('G23').Select
ActiveCell.FormulaR1C1 = 'START'
Range('G24:H24').Select
Range('G4').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

 

[ccpapy]

bonjour, une image sera plus explicite:
doubleclic thisworkbook, selectionner workbook et open et mettre le code...
d'autre part tu peux supprimer toutes les lignes relatives à la protection et deprotection des feuilles sur ton code (elles deviennent inutiles)
à+ [file name=open_20060608134142.zip size=40170]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/open_20060608134142.zip[/file]

 

[sioli]

bonjour et merci pour l'aide.

mais j'ai surement louper quelque chose , si tu s'avais m'envoyer un excemple sa me ferais plaisir.

si je t'envois mon fichier il serait trop long,mème compacter.

merci

 

[ccpapy]

bonjour, bon avec l'image envoyée tu n'y arrivais pas 🙁
voici un fichier exemple les pages sont protegées mais la macro fonctionne quand même comme tu le desires
explications détaillées en prime
si problème :unsure: et bien on verra avec ton fichier
allez courage, tu vas y arriver 😉
à+ amicalement [file name=effacersivide_20060609201705.zip size=11946]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/effacersivide_20060609201705.zip[/file]

Message édité par: ccpapy, à: 09/06/2006 20:17

 

[sioli]

bonjour et merci pour ta reponse.

je vais l'adapter sur mon fichier et voir se que sa donne.

j'ai beaucous de protection donc celle que si on clique sur le x pour quiter le programme on ne s'est plus.

de toute facon je te mettree eu courant du resultat.

et merci encore je ne le direr j'amais asser il est super ce site.

 

[sioli]

bonjour

ok sa marche pour le mot de passe,mais j'ai un petit soussi.

comme je l'ai dit plus haut, j'ai mis une protection pour ne pas que l'on quite le programme en cliquant sur le fameut x en haut a droite.

quand je sauvegarde la feuille remplie de donnée,j'ai se message que j'ai mis pour avertir l'utilisateur du programme de ne pas cliquer sur le x.
alors comment pourraige faire pour désactiver cette protection eu moment de sauver la feuille plaine de donnée ,puis une nouvelle feuille vierge reaparait sur l'ecrean.

biensur avec une nouvelle feuille proteger de nouveux.

merci tous.

 

[ccpapy]

bonjour,
j'ai lu et relu ton message... 😱 je ne comprends pas ce que tu désires. aurais-tu un petit exemple à nous joindre?
à+

 

[sioli]

bonjour

je vais faire un petit excemple parce que s'est vrais s'est un peu chinois quand on est pas dans le programme.

un petit ex : veux mieux qu'un grand discours.

merci quand meme.