croix commandbar

noviceAG · 18 Novembre 2007

Bonsoir,
Comment supprimer ou rendre inactive la croix d'une commandbar perso
En vous remerciant tous

mariobross · 18 Novembre 2007

Re : croix commandbar

bonsoir , pour empecher la fermeture d'un userform par la croix:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'empeche la fermeture du userform par la croix mais l'autorise par le code
If CloseMode = 0 Then Cancel = True
End Sub

fred65200 · 18 Novembre 2007

Re : croix commandbar

bonjour

rendre inactive la croix d'une commandbar perso

à tester

Code:

 Application.CommandBars("maBarre").Protection = msoBarNoChangeVisible
'les différentes constantes sont
'    msoBarNoChangeDock     16
'    msoBarNoChangeVisible     8
'    msoBarNoCustomize     1
'    msoBarNoHorizontalDock     64
'    msoBarNoMove         4
'    msoBarNoProtection     0
'    msoBarNoResize         2
'    msoBarNoVerticalDock     32

tu peux additionner les constantes

Code:

' Personnalisation, déplacement et fermeture impossibles.

Application.CommandBars("maBarre").Protection = msoBarNoCustomize + msoBarNoMove + msoBarNoChangeVisible
'ou
' Application.CommandBars("maBarre").Protection = 13  '1+4+8

Pour rétablir

Code:

 Application.CommandBars("maBarre").Protection = msoBarNoProtection  '  0

cordialement

croix commandbar

noviceAG

XLDnaute Impliqué

mariobross

XLDnaute Occasionnel

fred65200

XLDnaute Impliqué

Discussions similaires

croix commandbar

noviceAG

XLDnaute Impliqué

mariobross

XLDnaute Occasionnel

fred65200

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency