Discussion :

[albanalix]

Bonjour,

Je possède un document dans lequel j'aimerais bien empêcher la libération des volets car je veux que les deux premières lignes soient toujours visibles.
La protection du classeur n'est pas une solution envisageable :/

J'ai essayé différents moyens, notamment l'utilisation de ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If ActiveWindow.FreezePanes = False Then
  With ActiveWindow
  .SplitColumn = 0
  .SplitRow = 2
  End With
  ActiveWindow.FreezePanes = True
  End If
  End Sub

Ce code permet de refiger les deux premières lignes lorsqu'un utilisateur libère les volets.
Malheureusement, si l'utilisateur se trouvait déjà sur une des cellules des deux premières lignes et qu'il scrolle avant de cliquer sur une autre cellule alors les deux lignes figées ne sont plus les deux premières lignes de la feuille :S

J'ai essayé un autre code trouvé dans un forum permettant de bloquer l'utilisation de la fonction libérer les volets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
 CommandBars(1).Controls(9).Controls(7).Enabled = False
End Sub

Mais ce code n'a pas l'air de fonctionner dans mon cas/je l'ai probablement mal utilisé car la fonction libérer les volets est toujours active :(

Je sous ouvert à toute proposition permettant de résoudre mon problème.

Par avance, merci

[patricktoulon]

bonjour
je viens de tester et visiblement impossible disabler ce control

il va te faloir passer par custom ui pour ce classeur peut etre que par xml on peut le rendre inactif a partir de 2007 bien sur si ta version excel est inferieur c'est walouh!!! je crois

[Marc-L]

Bonjour, bonjour !

Problème de conception dans le code car confusion entre Figer les volets et Fractionner !

Pour juste figer les volets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not ActiveWindow.FreezePanes Then [A3].Select: ActiveWindow.FreezePanes = True
End Sub

En option, ajouter une sauvegarde de la position de la cellule active puis la restaurer une fois les volets figés …

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[albanalix]

Bonjour Marc-L,

Tout d'abords merci du temps accordé à mon problème.
J'ai essayé le code que tu as écrit malheureusement le problème est toujours le même, si l'utilisateur sélectionne une cellule située dans les deux premières lignes avant de libérer les volets puis de scroller et qu'enfin il sélectionne une autre cellule alors les lignes figées ne seront plus les deux premières lignes.
La différence lorsque j'utilise ton code c'est que la cellule A3 est sélectionnée mais cela n'empêche pas le changement des lignes figées.

Je pense que c'est pour pallier à ce problème que tu as ajouté:
"En option, ajouter une sauvegarde de la position de la cellule active puis la restaurer une fois les volets figés …"

Seulement je ne sais pas vraiment comment réaliser ça et surtout je doute de l'efficacité de cette solution étant donné qu'il est "trop tard" pour restaurer l'emplacement de la cellule une fois les volets figés.

Pour tester j'ai essayé en rajoutant cette ligne de code:

Après revérification, ta solution fonctionne lorsque l'utilisateur sélectionne une autre cellule présente dans les deux premières lignes.
Cependant si l'utilisateur sélectionne une des cellules des deux premières lignes, libère les volets, scroll puis sélectionne une cellule n'étant pas dans les deux premières lignes alors les lignes figées ne sont plus les deux premières lignes.

Peut-être qu'appliquer une restriction spécifique aux deux premières lignes pourrait être la/une solution?

Etant novice sur excel je fais plus confiance à votre expertise qu'a la mienne mais je vais néanmoins continuer à creuser cette idée.

[patricktoulon]

re
si tu a pas besoins du ruban pendant l'utilisation
on peut faire ceci:

on affiche plein ecran (plus de ruban)
on bloque le bouton fermer le plen ecran dans le nenu des cellules
on bloque la touche esc qui le fait revenir
on ajoute un bouton dans le menucell "ruban" et a son click
il apelera une sub qui te proposera de rentrer un mot de passe pour tout réaficher
sans ce mot de passe si la personne ne sais pas aller chercher dans le code et ben c'est walouh!!!
donc si pas "toto" tout plein ecran
voila tu l'aura compris le pot de passe c'est toto

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub bloque()
   Application.OnKey "{ESCAPE}", ""
   With Application.CommandBars("cell")
        .FindControl(ID:=178).Enabled = False
        Set bout = .Controls.Add(Type:=msoControlButton)
        With bout
            .Enabled = True
            .Caption = " RUBAN"
            .OnAction = "debloque"
        End With
    End With
    With ActiveWindow: .SplitRow = 2: .FreezePanes = True: End With
    Application.DisplayFullScreen = True
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub debloque()
     Password = InputBox("Veuillez taper votre mot de passe pour retrouver le Ruban", "bloquage du ruban", Default)
 
   If Password = "toto" Then
    Application.CommandBars("cell").Reset
 
    Application.DisplayFullScreen = False
End If
End Sub

[albanalix]

Bonjour Patricktoulon,

C'est une solution peu conventionnelle auquelle je n'avais pas pensé mais qui fera parfaitement l'affaire

Merci pour ton aide!