Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Pb Protection Workbook

Pb Protection Workbook

4 réponses
Avatar
Christophe Joly
Bonjour:

J'ai un fichier XL(xp) qui contient des macros qui se terminent par
l'instruction ActivateWorkbook.Protect

Lorsque j'ouvre mon fichier XL après l'avoir fermé la fenetre est réduite
(je n'est meme pas les 3 icones reduire, agrandir, fermer)et pour l'agrandir
ou la maximiser, je suis obligé d'oter la protection de mon classeur.

Auriez vous une idée pour éviter cet inconvénient.

Merci.

Christophe
Signaler un problème avec ce contenu

4 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
Denis Michon
Bonjour Christophe,

Place ce qui suit dans le ThisWorkbook de ton projet.

Attention à la commande "Protect" et "Unprotect" , tu dois les adapter.. peut être utilises-tu un mot de passe et des
paramètres particulier pour ton classeur... à toi de les définir selon tes besoins.


'--------------------------
Private Sub Workbook_WindowResize(ByVal Wn As Window)

If Wn.WindowState = xlMinimized Then
ThisWorkbook.Unprotect
Else
ThisWorkbook.Protect
End If

End Sub
'--------------------------


Salutations!




"Christophe Joly" a écrit dans le message de news:
Bonjour:

J'ai un fichier XL(xp) qui contient des macros qui se terminent par
l'instruction ActivateWorkbook.Protect

Lorsque j'ouvre mon fichier XL après l'avoir fermé la fenetre est réduite
(je n'est meme pas les 3 icones reduire, agrandir, fermer)et pour l'agrandir
ou la maximiser, je suis obligé d'oter la protection de mon classeur.

Auriez vous une idée pour éviter cet inconvénient.

Merci.

Christophe
Avatar
Christophe Joly
Denis:

Merci.

Christophe

"Denis Michon" <denis a écrit dans le message de
news:8_pAb.24444$
Bonjour Christophe,

Place ce qui suit dans le ThisWorkbook de ton projet.

Attention à la commande "Protect" et "Unprotect" , tu dois les adapter..
peut être utilises-tu un mot de passe et des

paramètres particulier pour ton classeur... à toi de les définir selon tes
besoins.



'--------------------------
Private Sub Workbook_WindowResize(ByVal Wn As Window)

If Wn.WindowState = xlMinimized Then
ThisWorkbook.Unprotect
Else
ThisWorkbook.Protect
End If

End Sub
'--------------------------


Salutations!




"Christophe Joly" a écrit dans le message de
news:

Bonjour:

J'ai un fichier XL(xp) qui contient des macros qui se terminent par
l'instruction ActivateWorkbook.Protect

Lorsque j'ouvre mon fichier XL après l'avoir fermé la fenetre est réduite
(je n'est meme pas les 3 icones reduire, agrandir, fermer)et pour
l'agrandir

ou la maximiser, je suis obligé d'oter la protection de mon classeur.

Auriez vous une idée pour éviter cet inconvénient.

Merci.

Christophe





Avatar
Denis Michon
Bonjour Christophe,

comme ceci , ce serait plus complet ....

'--------------
Private Sub Workbook_WindowResize(ByVal Wn As Window)

If Wn.WindowState = xlMinimized Or _
Wn.WindowState = xlNormal Then
ThisWorkbook.Unprotect
Else
ThisWorkbook.Protect
End If

End Sub
'--------------


Salutations!



"Christophe Joly" a écrit dans le message de news:
Denis:

Merci.

Christophe

"Denis Michon" <denis a écrit dans le message de
news:8_pAb.24444$
Bonjour Christophe,

Place ce qui suit dans le ThisWorkbook de ton projet.

Attention à la commande "Protect" et "Unprotect" , tu dois les adapter..
peut être utilises-tu un mot de passe et des

paramètres particulier pour ton classeur... à toi de les définir selon tes
besoins.



'--------------------------
Private Sub Workbook_WindowResize(ByVal Wn As Window)

If Wn.WindowState = xlMinimized Then
ThisWorkbook.Unprotect
Else
ThisWorkbook.Protect
End If

End Sub
'--------------------------


Salutations!




"Christophe Joly" a écrit dans le message de
news:

Bonjour:

J'ai un fichier XL(xp) qui contient des macros qui se terminent par
l'instruction ActivateWorkbook.Protect

Lorsque j'ouvre mon fichier XL après l'avoir fermé la fenetre est réduite
(je n'est meme pas les 3 icones reduire, agrandir, fermer)et pour
l'agrandir

ou la maximiser, je suis obligé d'oter la protection de mon classeur.

Auriez vous une idée pour éviter cet inconvénient.

Merci.

Christophe





Avatar
Christophe Joly
Denis:

Une nouvelle fois merci.

Christophe
"Denis Michon" <denis a écrit dans le message de
news:dGzAb.24495$
Bonjour Christophe,

comme ceci , ce serait plus complet ....

'--------------
Private Sub Workbook_WindowResize(ByVal Wn As Window)

If Wn.WindowState = xlMinimized Or _
Wn.WindowState = xlNormal Then
ThisWorkbook.Unprotect
Else
ThisWorkbook.Protect
End If

End Sub
'--------------


Salutations!



"Christophe Joly" a écrit dans le message de
news:

Denis:

Merci.

Christophe

"Denis Michon" <denis a écrit dans le message de
news:8_pAb.24444$
Bonjour Christophe,

Place ce qui suit dans le ThisWorkbook de ton projet.

Attention à la commande "Protect" et "Unprotect" , tu dois les adapter..
peut être utilises-tu un mot de passe et des

paramètres particulier pour ton classeur... à toi de les définir selon
tes


besoins.


'--------------------------
Private Sub Workbook_WindowResize(ByVal Wn As Window)

If Wn.WindowState = xlMinimized Then
ThisWorkbook.Unprotect
Else
ThisWorkbook.Protect
End If

End Sub
'--------------------------


Salutations!




"Christophe Joly" a écrit dans le message de
news:

Bonjour:

J'ai un fichier XL(xp) qui contient des macros qui se terminent par
l'instruction ActivateWorkbook.Protect

Lorsque j'ouvre mon fichier XL après l'avoir fermé la fenetre est
réduite


(je n'est meme pas les 3 icones reduire, agrandir, fermer)et pour
l'agrandir

ou la maximiser, je suis obligé d'oter la protection de mon classeur.

Auriez vous une idée pour éviter cet inconvénient.

Merci.

Christophe