Mode plein ecran
Bonsoir
j'aurai voulu savoir s'il existait une facon de proteger le mode plein ecran sur excel de sorte que si j'utilise mon application en mode plein ecran qu'un utilisateur ne puisse pas le modifier ?
Merci pour vos conseils
salut le forum
Amuse-toi avec ceci
'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 SubMytå
Bon merci
moi je voulais juste bloquer excel en mode plein ecran par un moyen de protection s'il existe
Re le forum
Comment peut on désactiver les 3 icônes (réduire, restaurer,fermer)
Les trois icônes en haut à droite de la fenêtre Excel.
Pour ta demande du plein écran
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 SubSi tu n'essayes pas les codes, tu vas toujours poser des questions, et tu n'apprenderas jamais.
J'ai commencé comme cela en testant, modifiant et adaptant des codes pour comprendre leurs fonctionnement.
Mytå
merci , je vais examiner tout ca , c'est bien aimable à toi
Bonsoir,
Le code que tu présente m’intéresse, en le testant j'ai trouvé que l'on pouvais stopper le plein écran en double cliquant sur la barre en haut et/ou en cliquant dessus sur la barre des tache de windows.
Y a t'il un moyen de les bloquer aussi ?
Cordialement
Mytå a écrit :salut le forum
Amuse-toi avec ceci
'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 SubMytå