Annuler croix rouge d'USF

Bonjour

aider moi d'Annuler la croix rouge (fermeture) USF

merci

http://www.cjoint.com/14dc/DLolTNnja1Z.htm

code est : ADMIN

ADMIN

bonjour

je fais un petit modif sur croix rouge

http://www.cjoint.com/14dc/DLomuBCQbIH.htm

est ce que possible de supprimer la croix rouge

merci

bonjour

supprimer croix rouge comme ca

merci

bonjour richi2casa

est ce que code a placer dans un module standard fait l'affaire

Sub PasdecroixUSF()
Dim hWnd As Long
  hWnd = FindWindowA(vbNullString, MAFORM.Caption)
  SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

et tu rajoute ceci dans l'initialisation de ton userform

PasdecroixUSF

ceci est extrait d'un classeur trouvé dans les contributions de déveIoppez.com sur le classeur devis facturier de Patricktoulon

Pascal

Bonjour

merci de votre aide

bonjour

a ce que je vois tu as un problème de macros clic sur activer si c'est pas bon je n'ai pas d'autres solution, as tu vu les post semblables édité en bas tout avant de répondre

Pascal

bonjour

il me donne se message au demarrage (ouverture) du fichier

merci

Bonjour

Pour compléter la réponse de grisan29

Une autre façon

Dans un module standard

Declare Function GetWindowLongA Lib "User32" (ByVal HWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "User32" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub SupprimerCroixFermeture(USF As UserForm)
Dim HWnd As Long
    HWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", USF.Caption)
    SetWindowLongA HWnd, -16, GetWindowLongA(HWnd, -16) And &HFFF7FFFF
End Sub

Dans le module de l'userform

Private Sub UserForm_Initialize()
  SupprimerCroixFermeture Me
End Sub

bonjour

merci bien de votre aide

http://www.cjoint.com/14dc/DLoq5uFrBaR.htm

la croix rouge Existe

richi2casa

fourni un fichier non protéger merci

Pascal

bonjour

deja fait mr

code: Utilisateur et: ADMIN

mot de passe : ADMIN

code vba : ADMIN

Merci

re richi2casa

je ne peux pas plus a mon niveau est ce ma configuration windows8,1 64bits et office2013 32bits mais je ne peux rien faire il y a une procédure en cours qui me gêne au niveau du bouton quitter vois l'aperçu

Pascal

Bonjour

A tester

Bonjour

merci bien de votre aide

ds tout les cas il y a une solution

Bonjour

banzai64 as tu une idée du problème que j'ai eu car avec le fichier que tu as mis le problème n'existe pas

Pascal

Bonjour

Merci bien sa fonctionne tres bien

mais a UserForm1 ( utilisateur et password ) existe croit rouge ,c'est le plus important

merci infiniment de votre aide

Bonjour

@ grisan29

Désolé je n'ai pas de solution à ton problème

Si le problème n'est que sur celui-ci on peut dire que la copie que tu as téléchargé était corrompue

@ richi2casa

richi2casa a écrit :

mais a UserForm1 ( utilisateur et password ) existe croit rouge ,c'est le plus important

Déplaces l'appel à la procédure

Private Sub UserForm_Initialize()

  TextBox1 = ""
  TextBox2 = ""
  Me.Caption = "Saisie du Mot de Passe"
  SupprimerCroixFermeture Me

  Label1.Caption = "Utilisateur"
  Label2.Caption = "Mot de Passe"
  CommandButton1.Caption = "VALIDER"
  CommandButton2.Caption = "Quitter"
  Me.TextBox2.PasswordChar = "*"
End Sub

Bonsoir Banzai64

merci de ta réponse

Déplaces l'appel à la procédure

la copie que tu as téléchargé était corrompue

Pascal

bonjour

merci bien ca marche tres bien