Masquer une feuille et la rendre inaccessible

Staple1600

XLDnaute Barbatruc

• 3 Avril 2007

• #16

Re : Masquer une feuille et la rendre inaccessible

message édité

pour cause d'informations obsolètes.

 

Dernière édition: 11 Mars 2010

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 3 Avril 2007

• #17

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Avril 2007

• #18

Re : Masquer une feuille et la rendre inaccessible

message édité suite

 

Dernière édition: 11 Mars 2010

Vote positif 0 Vote négatif

M

matiousky

XLDnaute Junior

• 3 Avril 2007

• #19

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

 

Vote positif 0 Vote négatif

M

matiousky

XLDnaute Junior

• 3 Avril 2007

• #20

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Avril 2007

• #21

Re : Masquer une feuille et la rendre inaccessible

Re


Tu cliques droit sur l'objet

et tu coches Vérouillé

 

Vote positif 0 Vote négatif

M

matiousky

XLDnaute Junior

• 3 Avril 2007

• #22

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Avril 2007

• #23

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Avril 2007

• #24

Re : Masquer une feuille et la rendre inaccessible

Donc

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 3 Avril 2007

• #25

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Avril 2007

• #26

Re : Masquer une feuille et la rendre inaccessible

message édité

info périmée.

 

Dernière édition: 11 Mars 2010

Vote positif 0 Vote négatif

M

matiousky

XLDnaute Junior

• 3 Avril 2007

• #27

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Avril 2007

• #28

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)

 

Vote positif 0 Vote négatif

M

matiousky

XLDnaute Junior

• 11 Avril 2007

• #29

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 11 Avril 2007

• #30

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

 

Vote positif 0 Vote négatif