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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "User32" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub UserForm_Activate()
Dim hWnd As Long, exLong As Long
'permet de ne pas avoir la bar bleu avec le 'X' des fenetres windows
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
'Réalise une mise à jours de diférent paramètre dans mes userforms ainsi et surtout dans mes feuilles
MiAjo.Miseajour
'mise à true de la variable pour éviter le chargement de la userform "loadform" une seconde fois
LoadingMsg = True
'dévourouillage des feuilles
DeverouSheets
'initialisation de la page de garde au démarage
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
With Worksheets("page de garde")
.listbat.Visible = False
.Range("g20") = ""
.Range("k17") = ""
.listfour.Visible = False
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
'vérouillage des feuilles
VerouSheets
ProgressBar1.Value = ProgressBar1.Max
LoadForm.Hide
End Sub |
Partager