OVH Cloud OVH Cloud

plein ecran

7 réponses
Avatar
PHIL
bonjour,

mon code en plein ecran est:
Application.DisplayFullScreen
= True

que je met dans le thisworkbook,mais à l'ouverture du classeur , il se met
bien en plein ecran,avec une boite de dialogue qui m'indique fermer le plein
ecran, je voudrai que celle ci soit désactiver, et que je ne puisse pas voir
egalement qand je suis en plein écran le menu(fichier, edition, insrtion....)

merci

7 réponses

Avatar
LSteph
Bonsoir,
Si tu veux tout cacher
tu peux creer un userform et mettre ceci dedans

Private Sub UserForm_Initialize()

With Me
.StartUpPosition = 1
.Width = Application.Width
.Height = Application.Height
End With
End Sub

lSteph

"PHIL" a écrit dans le message de news:

bonjour,

mon code en plein ecran est:
Application.DisplayFullScreen
= True

que je met dans le thisworkbook,mais à l'ouverture du classeur , il se met
bien en plein ecran,avec une boite de dialogue qui m'indique fermer le
plein
ecran, je voudrai que celle ci soit désactiver, et que je ne puisse pas
voir
egalement qand je suis en plein écran le menu(fichier, edition,
insrtion....)

merci


Avatar
PHIL
je peux pas mettre un userform,
je veux juste maquer fichier insertion supprimer.....
ou tout mettre en plein ecran

merci


Bonsoir,
Si tu veux tout cacher
tu peux creer un userform et mettre ceci dedans

Private Sub UserForm_Initialize()

With Me
.StartUpPosition = 1
.Width = Application.Width
.Height = Application.Height
End With
End Sub

lSteph

"PHIL" a écrit dans le message de news:

bonjour,

mon code en plein ecran est:
Application.DisplayFullScreen
= True

que je met dans le thisworkbook,mais à l'ouverture du classeur , il se met
bien en plein ecran,avec une boite de dialogue qui m'indique fermer le
plein
ecran, je voudrai que celle ci soit désactiver, et que je ne puisse pas
voir
egalement qand je suis en plein écran le menu(fichier, edition,
insrtion....)

merci







Avatar
ChrisV
Bonjour Phil,

Dans la feuille de code de ThisWorkbook...

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.DisplayFormulaBar = False
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFormulaBar = True
End With
End Sub


ChrisV


"PHIL" a écrit dans le message de news:

bonjour,

mon code en plein ecran est:
Application.DisplayFullScreen
= True

que je met dans le thisworkbook,mais à l'ouverture du classeur , il se met
bien en plein ecran,avec une boite de dialogue qui m'indique fermer le
plein
ecran, je voudrai que celle ci soit désactiver, et que je ne puisse pas
voir
egalement qand je suis en plein écran le menu(fichier, edition,
insrtion....)

merci


Avatar
Modeste
Haué Chris !!
hépela !
itokaghata wichasha, yé shni yo kiphi "PHIL" !!!
@+
-----Message d'origine-----
Bonjour Phil,

Dans la feuille de code de ThisWorkbook...

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
With Application
.DisplayFormulaBar = False
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFormulaBar = True
End With
End Sub


ChrisV


"PHIL" a écrit dans le
message de news:


bonjour,

mon code en plein ecran est:
Application.DisplayFullScreen
= True

que je met dans le thisworkbook,mais à l'ouverture du
classeur , il se met


bien en plein ecran,avec une boite de dialogue qui
m'indique fermer le


plein
ecran, je voudrai que celle ci soit désactiver, et que
je ne puisse pas


voir
egalement qand je suis en plein écran le menu(fichier,
edition,


insrtion....)

merci



.




Avatar
AV
Pffff...
Mais qu'est ce tu fais là toi ?
T'aurais pu envoyer un sms ! ;-)

AV
Avatar
ChrisV
Salut Alain,

J'ai bien essayé durant décembre...
mais apparemment, il y avait des perturbations sur MPFE !!!
Pfff... :-(


ChrisV


"AV" a écrit dans le message de news:
uW%23SMAY%
Pffff...
Mais qu'est ce tu fais là toi ?
T'aurais pu envoyer un sms ! ;-)

AV




Avatar
Monique Brunel
Hau ChrisV :-)
tokeske yaun he ?

--
Amicalement,
Monique
en campagne pour des sites conformes aux standards et accessibles...
http://www.webmaster-hub.com/ et http://www.opquast.org/
avec des navigateurs évolutifs http://www.mozilla-europe.org/
Pour les amateurs d'athlétisme : http://users.skynet.be/osga/

Salut Alain,

J'ai bien essayé durant décembre...
mais apparemment, il y avait des perturbations sur MPFE !!!
Pfff... :-(


ChrisV