XL 2010 Code verrouillage des formes à toutes les feuilles

Staple1600

XLDnaute Barbatruc

• 29 Décembre 2020

• #2

Bonsoir

Essayez en bouclant sur toutes les feuilles
Dim ws As Worksheet
For Each ws in Worksheets
ws.Protect...
ws.Enable...
Next

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Décembre 2020

• #3

Re

Ci-dessous la version raccourcie
(ca ne change rien, mais c'est moins fatiguant à écrire )

VB:

Sub Protection()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect DrawingObjects:=-1, Contents:=-1, Scenarios:=-1
ws.EnableSelection = -4142
Next
End Sub

 

Vote positif 0 Vote négatif

O

Océane-33

XLDnaute Nouveau

• 29 Décembre 2020

• #4

Bonsoir Staple1600,

Merci d' avoir bien voulu prendre le temps de se pencher sur mon problème.
Je pense que cela fonctionne , mais du coup , le code de mon bouton ne marche plus , à cause de la
protection , en général je démasque des feuilles que j 'ouvre et les dissimule au retour sur la feuille 1

Sub Acces_AAA()

Sheets("AAA").Visible = True
Sheets("AAA").Activate
'essai masquage
Application.ActiveWindow.DisplayHeadings = False
Range("A1").Select
'Select Case "A1"
'End Select
End Sub

 

Vote positif 0 Vote négatif

O

Océane-33

XLDnaute Nouveau

• 29 Décembre 2020

• #5

j 'ai essayé le support de Microsoft mais je n'ai pas de case "EXECUTER EN MODE DEVELOPPEUR"

Interdiction ou autorisation des modifications des formes

Empêchez la modification des attributs de forme Visio, tels que la largeur ou la hauteur, et le verrouillage des formes contre la sélection.

support.microsoft.com

je possède Excel 2010.
Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Décembre 2020

• #6

Re

Et comme ceci?

VB:

Sub Protection_II()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "AAA" Then
ws.Protect DrawingObjects:=-1, Contents:=-1, Scenarios:=-1
ws.EnableSelection = -4142
End if
Next
End Sub

 

Vote positif 0 Vote négatif

O

Océane-33

XLDnaute Nouveau

• 29 Décembre 2020

• #7

ça fonctionne à merveille !!
je le colle sur toutes feuilles (22 ) et je recontrôle.
Merci beaucoup.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Décembre 2020

• #8

Re

Euh, ce code boucle déjo sur toutes les feuilles du classeur actif
Que veux-tu dire par?

je le colle sur toutes feuilles (22 ) et je recontrôle.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Décembre 2020

• #9

Re

Si jamais je devais me moquer, ce serait avec humour, ironie et tutti quanti
Mais sur un ton badin, amical (comme toujours)
C'est ma manière d'être ici bas

Mais pour le moment, je n'ai point de raison de passer en mode humour puisque tu coches toutes les cases du padawan idéal
(tu cherches, tu t'informes, tu essaies, tu échoues, puis tu recommences )

Je vais aller voir ta PJ avant d'aller enfiler mon pyjama en pilou.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Décembre 2020

• #10

Re

Tu avais déjà la même macro (mais à la sauce English) dans ta PJ, que celle que je t'ai proposé à ma sauce

VB:

Sub ProtectMethodAllSheets()

   Dim shtCurrent As Worksheet

   For Each shtCurrent In ActiveWorkbook.Worksheets
      shtCurrent.Protect Password:="Pass", Contents:=False, _
                     DrawingObjects:=False, Scenarios:=True, _
                     AllowFormattingCells:=True, AllowSorting:=True
      Next shtCurrent
End Sub

Tu n'avais pas vu la similitude?

NB: On remarquera la compléxité de ton mot de passe

 

Vote positif 0 Vote négatif

O

Océane-33

XLDnaute Nouveau

• 30 Décembre 2020

• #11

Merci et très bonne nuit.
J ai essayé plein mais plein de truc abominable avant d'arriver à mon beau fichier
je n 'arrive toujours pas à avoir mes formes verrouillés sur les autres feuilles , même en Anglais.
Merci pour vos réponses.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Décembre 2020

• #12

Re

Justement, à propos de ton beau fichier!
On ne joint jamais une application originale mais un fichier exemple créé spécialement pour illustrer la problématique.
Le fichier que tu as joint comprends trop de lignes de code et surtout il n'est pas anonymisé.

Si j'étais moi, je remplacerai illico presto avant qu'il soit supprimé par le modérateur du forum.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Décembre 2020

• #13

Re

J'ai testé ceci sur mon petit fichier de test tout pas beau, tout simple et tout allégé
A savoir un classeur avec trois feuilles sur lesquelles figurent des formes ou des images dont certaines sont associées à une macro.
Donc avec le code ci-dessous, les formes sont protégées et toujours accessibles pour cliquer dessus pour lancer leur macro associée.

VB:

Sub test_protect_shapes()
Dim ws As Worksheet, shp As Shape
For Each ws In Worksheets
For Each shp In ws.Shapes
shp.Locked = True
Next shp
ws.Protect , -1, -1
Next ws
End Sub

 

Vote positif 0 Vote négatif

O

Océane-33

XLDnaute Nouveau

• 30 Décembre 2020

• #14

Bonjour Staple1600,

Merci pour conseil , en effet c'est le PC et excel de mon oncle qui m' héberge
en attendant que je puisse rebondir ayant perdu mon boulot au cause de
la pandémie , je voulais lui faire la surprise en lui faisant un des fichiers sur lequel il voulait aboutir, ca me permet d 'apprendre et de boucler utilement mes journées.
je teste ta réponse dans la soirée , merci beaucoup.

 

Vote positif 0 Vote négatif

O

Océane-33

XLDnaute Nouveau

• 30 Décembre 2020

• #15

Je viens de refaire ton test et pour moi cela ne marche pas, je pense que je ne mets pas le code au bon endroit.
j 'ai essayé de coller ton code dans ThisWorbook puis dans chaque feuilles et enfin dans un module ...je suis perdue
y a deux mois je ne connaissais pas Excel , merci pour votre compréhension, la route sera longue.

 

Vote positif 0 Vote négatif