Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Déprotéger et protéger code VBA

Déprotéger et protéger code VBA

6 réponses
Avatar
rg
Comment protéger et déprotéger mon code VBA ?

Je veux pouvoir déprotéger mon code VBA ,
le modifier et ensuite le reprotéger.

Si vous avez la solus ?

D'avance merci

René
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
rg
J'ai oublié de vous dire que ce que je veux faire est avec naturellement
VBA !.

rené


"rg" a écrit dans le message de news:
e#p$
Comment protéger et déprotéger mon code VBA ?

Je veux pouvoir déprotéger mon code VBA ,
le modifier et ensuite le reprotéger.

Si vous avez la solus ?

D'avance merci

René
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!




Avatar
gilbert
bonjour

Sub TestProtect()
ProtectVBProject Workbooks("tonfichier.xls"), "motdepasse"
End Sub

Sub TestUnprotect()
UnprotectVBProject Workbooks("tonfichier.xls"), "motdepasse"
End Sub

ici le MDP est : motdepasse

salutations

Gilbert

"rg" a écrit dans le message de
news:e%23p$
Comment protéger et déprotéger mon code VBA ?

Je veux pouvoir déprotéger mon code VBA ,
le modifier et ensuite le reprotéger.

Si vous avez la solus ?

D'avance merci

René
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!




Avatar
Jacky
Et bienvenue dans le monde des Ferraris
;o))
JJ

"rg" a écrit dans le message de
news:e%23p$
Comment protéger et déprotéger mon code VBA ?

Je veux pouvoir déprotéger mon code VBA ,
le modifier et ensuite le reprotéger.

Si vous avez la solus ?

D'avance merci

René
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!




Avatar
rg
J'ai un message d'erreur sur la ligne vba suivante
ProtectVBProject Workbooks("test.xls"), "motdepasse"

*Erreur de compilation:
Sub ou Function non définie*

Est ce à cause de ma version d"Excel 97 SR2 ?

René

"gilbert" a écrit dans le message de
news:
bonjour

Sub TestProtect()
ProtectVBProject Workbooks("tonfichier.xls"), "motdepasse"
End Sub

Sub TestUnprotect()
UnprotectVBProject Workbooks("tonfichier.xls"), "motdepasse"
End Sub

ici le MDP est : motdepasse

salutations

Gilbert

"rg" a écrit dans le message de
news:e%23p$
Comment protéger et déprotéger mon code VBA ?

Je veux pouvoir déprotéger mon code VBA ,
le modifier et ensuite le reprotéger.

Si vous avez la solus ?

D'avance merci

René
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!








Avatar
gilbert
oups excuse moi j'ai oublié la moitié du code

Sub TestProtect()
ProtectVBProject Workbooks("ton_fichier.xls"), "motdepasse"
End Sub

Sub TestUnprotect()
UnprotectVBProject Workbooks("ton_fichier.xls"), "motdepasse"
End Sub

Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object

Set vbProj = WB.VBProject

If vbProj.Protection <> 1 Then Exit Sub

Set Application.VBE.ActiveVBProject = vbProj

SendKeys Password & "~~"
Application.VBE.CommandBars(1).FindControl(ID:%78,
recursive:=True).Execute
End Sub

Sub ProtectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object

Set vbProj = WB.VBProject

If vbProj.Protection = 1 Then Exit Sub

Set Application.VBE.ActiveVBProject = vbProj



SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & _
Password & "~"

Application.VBE.CommandBars(1).FindControl(ID:%78,
recursive:=True).Execute

WB.Save
End Sub

PS : la protection du code n'est effective qu' après la fermeture du
classeur

salutations

Gilbert



"rg" a écrit dans le message de
news:
J'ai un message d'erreur sur la ligne vba suivante
ProtectVBProject Workbooks("test.xls"), "motdepasse"

*Erreur de compilation:
Sub ou Function non définie*

Est ce à cause de ma version d"Excel 97 SR2 ?

René

"gilbert" a écrit dans le message de
news:
bonjour

Sub TestProtect()
ProtectVBProject Workbooks("tonfichier.xls"), "motdepasse"
End Sub

Sub TestUnprotect()
UnprotectVBProject Workbooks("tonfichier.xls"), "motdepasse"
End Sub

ici le MDP est : motdepasse

salutations

Gilbert

"rg" a écrit dans le message de
news:e%23p$
Comment protéger et déprotéger mon code VBA ?

Je veux pouvoir déprotéger mon code VBA ,
le modifier et ensuite le reprotéger.

Si vous avez la solus ?

D'avance merci

René
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!












Avatar
sp00k
Tu va dans l'editeur de Macro Vba, tu click droit sur ton projet, une
fenetre propriete s'ouvre, tu click sur l'onglet "Protection'"

sp00k.



"rg" a écrit dans le message de news:
e#p$
Comment protéger et déprotéger mon code VBA ?

Je veux pouvoir déprotéger mon code VBA ,
le modifier et ensuite le reprotéger.

Si vous avez la solus ?

D'avance merci

René
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!