Menu options inactif

Version imprimable

J'ai repris une appli , mais qui a été modifiée depuis ( pas par moi)
et maintenant après l'accès aux USF suite à "login" ( via aussi USF)
on est en plein écran on ne voit que le rond et menu rapide en haut à gauche
Si je vais dans options rien ne se passe ????
j'ai pu relever le code d'entrée dans l'USF qui provoque cela :
Moi je ne connais pas cette méthode et j'aimerai revenir à l'affichage traditionnel pour travailler dessus
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub UserForm_Initialize() Dim hwnd As Long, style As Long, i% hwnd = FindWindow(vbNullString, Me.Caption) style = GetWindowLong(hwnd, -16) And Not &HC00000 SetWindowLong hwnd, -16, style DrawMenuBar hwnd If Feuil11.Visible = xlSheetVisible Then For i = 1 To 10 With Controls("CheckBox" & i) .Visible = True .Enabled = True End With Next i End If End Sub
Je ne peux joindre le fichier , lourd et plein d'infos perso ....

Bonjour,

Voir une éventuelle explication dans le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub UserForm_Initialize()
Dim hwnd As Long, style As Long, i%
 
'--- Cela sert à désactiver le bouton "Fermer" (croix rouge) du UserForm --
hwnd = FindWindow(vbNullString, Me.Caption)
style = GetWindowLong(hwnd, -16) And Not &HC00000
SetWindowLong hwnd, -16, style
'--------------------------------------------------------------------------
 
'############################################
'### Ici la procédure DrawMenuBar est appelée.
'### Comme son code n'est pas communiqué, je
'### ne sais pas quelle est son action.
'### Essayez de flaguer l'instruction par une
'### quote (') et voyez ce qui se passe.
 
'DrawMenuBar hwnd
 
'############################################
 
If Feuil11.Visible = xlSheetVisible Then
    For i = 1 To 10
        With Controls("CheckBox" & i)
            .Visible = True
            .Enabled = True
        End With
    Next i
End If
End Sub

12/10/2015, 19h41
patricktoulon

heu
bbonjour PMO
Code:

1 2 3 4 Declare Function DrawMenuBar Lib "user32" ( _ ByVal hwnd As Long) As Long 'DrawMenuBar hwnd
redessine la captions selon les paramétré passé avec setwindowlong
parfois sans elle quand on supprime ou modifie la captions(les 3 boutons(min/max/fermer))ca se redessine mal

en gros ca corrige l'affichage
rien de plus

j'ajouterais qu'il y a beaucoup plus simple je donnerais un exemple avec plusieurs option se soi quand je rentre

Merci bien
ça fait avancer mais ensuite cela rebloque car tout semble verrouillé !!
heureusement que j'ai pu ajouter un bouton EXIT dans un USF
C'est devenu une grosse appli (bien conçue) je vais continuer à chercher
Sinon sans VBA , on peut pas ?? ( ce qu'il me semble)
le 2eme USF verrouillé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub UserForm_Initialize() MultiPage1.Value = 0 Box3.RowSource = ("GRADES") 'remplit la combo Box3.ListIndex = -1 'une ligne vide s'affiche au lancement Box11.RowSource = ("groupes_sanguins") 'remplit la combo Box11.ListIndex = -1 'une ligne vide s'affiche au lancement Set Ws = Worksheets("SIGNALETIQUE") NbLignes = Ws.Range("A65536").End(xlUp).Row With Me.Box2 .ColumnCount = 2 .ColumnWidths = "-1;0" End With InitCombo1 'Lance le programme InitCombo1 développé ci-desous init_listing_recherche End Sub