Code avant de maximiser le classeur

[relboua]

Bonjour,

Je souhaiterai savoir s'il est possible d'affecter un mot de passe quand l'on maximise un classeur.
J'ai beau cherché sur différent forum mais en vain.

Merci d'avance pour l'aide que vous m'apporterez!

 

[relboua]

Re : Code avant de maximiser le classeur

Salut Nairolf !!

Tout d'abord désolé de répondre que maintenant !!
J'ai essayé ton code super ça fonctionne à merveille, voilà ce que j'obtient au final :

*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/

Private Sub Workbook_WindowResize(ByVal Wn As Window)

Dim feuille As Worksheet

If ActiveWindow.WindowState = xlMaximized Then
For Each feuille In Worksheets

feuille.Select
feuille.Protect Password:="fikou", DrawingObjects:=True, Contents:=True, Scenarios:=True
feuille.EnableSelection = xlNoSelection

Next feuille

ElseIf ActiveWindow.WindowState = xlMinimized Then

For Each feuille In Worksheets
feuille.Select
feuille.Unprotect Password:="fikou"
Next feuille
End If
Sheets("Feuil1").Select

End Sub

*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/

Dit moi Nairolf est il possible de ne pas appliquer cette commande à la colonne "D" (nommé Qté) sur toutes les feuilles également ?

 

[Nairolf]

Re : Code avant de maximiser le classeur

Salut relboua, salut le forum,

Incorpore ces deux lignes après le feuille.Select:
Columns("D😀").Select
Selection.Locked = False