Bonjour SparKous, le forum,
Essai ceci dans la code VBA de ThisWorkbook :
'Comment peut on desactiver les 3 icones (réduire, restaurer,fermer) ainsi
'que l'icone en haut à gauche d'une application excel afin d'empêcher
'l'utilisateur de fermer Excel autrement que par un bouton prévu à cet effet ?
'Dans le module ThisWorkbook de l'application :
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 Workbook_Activate()
ActiveWindow.WindowState = xlMaximized
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H80000
End Sub
Private Sub Workbook_Open()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
Application.DisplayFullScreen = True
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.DisplayFormulaBar = False
Application.CommandBars("Toolbar List").Enabled = False
Application.OnKey "%-", ""
Application.CommandBars("Formatting").Protection = msoBarNoResize
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
ActiveWindow.WindowState = xlMaximized
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
ActiveWindow.WindowState = xlMaximized
End Sub
Tourlou,
Joley P.S. (ce serait cool de me dire si ça te satisfait
)