Bouton Options inactif

[herve62]

Bonjour
J'ai repris une appli , mais qui a été modifiée
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 au traditionnel pour travailler dessus

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 ....

 

[herve62]

Re : Bouton Options inactif

Bsr
Pensez vous qu'il n'y a pas de solution ??

 

[Staple1600]

Re : Bouton Options inactif

Bonsoir à tous

herve62
Tu prends un fichier Excel vierge
Tu y copies (ou importes) tout le code VBA (+userforms) du classeur incriminé dans ce fichier (donc vide de données)
Tu prends soin de mettre en commentaires les procédures WorkBook_Open ou AutoOpen si elles existent
Tu zippes ce fichier et tu joins le zip ici

On sera alors en mesure de te dire où le bat blesse 😉

 

[herve62]

Re : Bouton Options inactif

Bsr
Je prépare tout ça demain sinon j'ai trouvé ça pour le 1er USF

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

qui remple mon code du #1
mais derrière j'en ai encore un qui est verrouillé
Bonne soirée

 

[Staple1600]

Re : Bouton Options inactif

Re

Question
herve62

J'ai repris une appli , mais qui a été modifiée

Tu parles dune appli :
• issue du forum? (si oui tu as un lien ?)
• trouvée sur le net ?

 

[herve62]

Re : Bouton Options inactif

non , en fait c'est une ancienne appli que j'ai mis au point jusqu'à un certain niveau il y a 6 mois
celui qui l'utilise m'a montré début d' été ce qu'elle était devenue
durant l'été je suis à mon chalet sans internet donc là rentré je l'ai repris et j'essaye de comprendre
car justement c'est chiadé !!!

 

[Staple1600]

Re : Bouton Options inactif

Re

herve62
???

celui qui l'utilise m'a montré début d' été ce qu'elle était devenue

Dans ce cas, il te suffit de papoter VBA avec icelui, non ?
Il saura expliquer mieux que quiconque le code qu'il a pondu dans ton appli 😉

 

[herve62]

Re : Bouton Options inactif

j'ai plus de contact et je pense que c'est pas lui qui a fait (organisme) !