Bonjour,
Depuis que j'utilise le code suivant pour obliger les utilisateurs à passer par mon userform:
Sub No_Record()
ActiveWorkbook.Protect Windows:=True
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = False
End With
'desactive le raccourci clavier Ctrl+S
Application.OnKey "^s", ""
End Sub
Sub Yes_Record()
ActiveWorkbook.Protect Windows:=False
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = True
End With
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = True
End With
'desactive le raccourci clavier Ctrl+S
Application.OnKey "^s"
End Sub
les icones croix, réduire et plain écran du classeur disparaissent aléatoirement tout en n'affichant pas les feuilles pleine fenêtre, et je n'ai plus la possibilité de modifier leurs taille (plus d'icones !).
Quel est le problème ?
Merci d'avance.
Depuis que j'utilise le code suivant pour obliger les utilisateurs à passer par mon userform:
Sub No_Record()
ActiveWorkbook.Protect Windows:=True
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = False
End With
'desactive le raccourci clavier Ctrl+S
Application.OnKey "^s", ""
End Sub
Sub Yes_Record()
ActiveWorkbook.Protect Windows:=False
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = True
End With
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = True
End With
'desactive le raccourci clavier Ctrl+S
Application.OnKey "^s"
End Sub
les icones croix, réduire et plain écran du classeur disparaissent aléatoirement tout en n'affichant pas les feuilles pleine fenêtre, et je n'ai plus la possibilité de modifier leurs taille (plus d'icones !).
Quel est le problème ?
Merci d'avance.