empecher liberation

[bernard]

bonsoir le forum
existe il un code a mettre dans le worksbook pour empecher la suppression et la liberation des volets d'une feuile

merci d'avance pour votre collaboration et bonne fin de weekend

 

[Hervé]

Bonsoir

une idée, enlevé la commande "figer les volets" du menu fenêtre.

a placer dans thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.CommandBars("Window").FindControl(ID:=443).Visible = False Then
Application.CommandBars("Window").FindControl(ID:=443).Visible = True
End If
End Sub

Private Sub Workbook_Open()
If Application.CommandBars("Window").FindControl(ID:=443).Visible = True Then
Application.CommandBars("Window").FindControl(ID:=443).Visible = False
End If
End Sub

Mais si tes utilisateurs sont pas mauvais en excel (ou si ils connaissent XLD), il peuvent contourner le problème par macro ou en utilisant un bouton personnalisé.

Salut
Hervé

 

[bernard]

Bonjour a tous
.merci beaucoup pour la reponse,c'est ce que je cherchais,mais
juste une petite question ou trouve t'on les codes ID ,ca fait quelques temps que j'essaies de les trouver .Je ne les trouve pas dans l'aide excel ni dans les divers sites si quelqu'un aurait la solution je suis preneur
merci

 

[Hervé]

bonjour

J'utilise un fichier xls reprenant l'ensemble des faceid, étant trop gros pour le forum je peux te l'envoyer par mail.

Si ca t'intéresse merci de me donner ton email.

Salut
Hervé

 

[bernard]

bonsoir herve et le forum
ton idée, enlevé la commande "figer les volets" du menu fenêtre.marche tres bien,mais il faudrait que j'enleve aussi "fractionner"
merci pour ta solution et merci si tu peux m'envoyer le fichier ID via l'adresse que je t'es communiqué en debut de soiree

 

[Hervé]

Bonjour

Le faceid pour le fractionnement est le 302

Salut
Hervé

 

[bernard]

merci beaucoup

 

[bernard]

bonsoir hervé
je serais comblé de recevoir ton fichier xls reprenant l'ensemble des faceid
merci encore pout tes reponses

bernard