Masquer une feuille et la rendre inaccessible

[matiousky]

Bonjour,

J'ai masqué plusieurs feuilles. Comment les rendre inaccessibles?

Merci de votre aide,
Mat

 

[Staple1600]

Re : Masquer une feuille et la rendre inaccessible

message édité

pour cause d'informations obsolètes.

 

[wilfried_42]

Re : Masquer une feuille et la rendre inaccessible

re:

c'est bon pascal, j'ai trouver le verouillage d'acces au code VBA, maintenant la protection est totale lol

 

[Staple1600]

Re : Masquer une feuille et la rendre inaccessible

message édité suite

 

[matiousky]

Re : Masquer une feuille et la rendre inaccessible

Bonjour à tous,

Je vois que mon email à entrainé un débat...
En tout cas je vous remercie car le code répond à ma demande.

Sheets("Feuil1").Visible = xlVeryHidden

Encore merci,
Mat

 

[matiousky]

Re : Masquer une feuille et la rendre inaccessible

Question pour Staple1600 qui semble bien calé en protection (et à tous ceux qui peuvent m'aider):

Toujours sur la protection: j'ai une feuille protégée par:

ActiveSheet.Protect Password:="toto", Contents:=True, userInterfaceOnly:=True

Sur cette feuille j'ai créé des boutons et lorsque je fais un clic droit sur ces boutons je peux les modifier (renommer, déplacer...).
Comment faire pour les protéger?

Je vous remercie,
Mat

 

[Staple1600]

Re : Masquer une feuille et la rendre inaccessible

Re


Tu cliques droit sur l'objet

et tu coches Vérouillé

 

[matiousky]

Re : Masquer une feuille et la rendre inaccessible

re:

J'ai déjà fait (clic droit / Format de Contrôle / Protection: verrouillé et texte vérouillé sont déjà cochés).

Tu as une autre solution?

Merci,
Mat

 

[Staple1600]

Re : Masquer une feuille et la rendre inaccessible

Houps

En provenance de l'aide VBA

ProtectDrawingObjects, propriété - Exemple

Cet exemple montre comment afficher un message lorsque les formes de la feuille Sheet1 sont protégées.

If Worksheets("Sheet1").ProtectDrawingObjects = True Then
MsgBox "The shapes on Sheet1 are protected."
End If

 

[Staple1600]

Re : Masquer une feuille et la rendre inaccessible

Donc

A essayer
ActiveSheet.Protect Password:="toto", Contents:=True, ProtectDrawingObjects = True ,userInterfaceOnly:=True

 

[PascalXLD]

Re : Masquer une feuille et la rendre inaccessible

Re

attention je n'ai jamais dit que la protection etait totale.

Mais quitte à choisir je préfère mettre mes feuilles en veryhidden avec un mot de passe sur le VBA pour pas qu'on aille trop tripatouiller dans mon code. Et franchement c'est souvent largement suffisant pour le niveau des gens au boulot.

Ensuite si on veut vraiment faire quelque chose d'innaccessible et bien en effet ce n'est pas de l'excel. Ou alors on fait un code à la Ti et là ça devient vitre imbuvable

Pour le xla perso il faut pas longtemps non plus pour le lire

 

[Staple1600]

Re : Masquer une feuille et la rendre inaccessible

message édité

info périmée.

 

[matiousky]

Re : Masquer une feuille et la rendre inaccessible

Autre question puisque j'y suis:

Parfois lorsque j'éxécute mes macors elles sont plus lentes que d'autres fois.
Savez-vous pourquoi?

Merci,
Mat

 

[Staple1600]

Re : Masquer une feuille et la rendre inaccessible

Oui

C'est normal

Une macro qui fonctionne plus de 35h

elle prend une RTT ou ralentit


(c'est bien connu)

 

[matiousky]

Re : Masquer une feuille et la rendre inaccessible

Bonjour,

La protection des boutons marche bien. Le clic droit n'est plus possible.
Cependant un autre code bug depuis, voici le message d'erreur:

"Erreur 1004: Impossible de définir la propriété FontStyle de la classe Font"

Voici le code en question:

Private Sub ComboBox1_Change()
For i = 2 To 5
With Sheets("Simulation").DrawingObjects("Bouton " & i)
If .Text = ComboBox1.Value Then
.Characters.Font.FontStyle = "Gras"
.Characters.Font.ColorIndex = 9
Else
.Characters.Font.FontStyle = "Normal"
.Characters.Font.ColorIndex = 0
End If
End With
Next
End Sub

Pouvez-vous m'aider?
Je vous remercie,

Mat

 

[wilfried_42]

Re : Masquer une feuille et la rendre inaccessible

re:

Fontstyle, je n'ai pas encore trouvé à quoi il servait
j'arrive à avoir une ecriture gras et un fontstyle "Italique"

font.bold ------------> true ou false
font.italic ------------> true ou false
font.underline --------> 0 ou 2 ou 4 ou 5 ou X mais j'ai pas essayé

tu peux laisser tomber fontstyle