Salut,
J'ai enfin touv=E9 une solution simple =E0 notre probl=E8me:
Mettre au niveau WorkBook
Private Sub Workbook_SheetActivate(ByVal NomFeuille As=20
Object)
If NomFeuille.Name =3D "Titi" Thet
Worksheets("Titi").EnableSelection =3D xlNoSelection
End If
End Sub
Il y a plusieurs valeurs pour EnableSelection, va voir dans
l'aide.
Cela s'applique uniquement avec une feuille prot=E9g=E9.
Alors en utilisant ton id=E9e de masquer les feuilles et de=20
les afficher dans une macro, pour =E9viter que=20
l'uitilisateur ne d=E9sactive les macros, tout marche !!!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel HOLDERITH
Salut, Merci du conseil..... Attention car si qqu'un crer un fichier parallel au tiens avec un acces sur ta fauille puis mets : Worksheets("Titi").EnableSelection = xlNoRestrictions il aura tout loisir de copier/coller ta feuille donc je ne crois pas que cela soit la solution.... qu'en penses tu ? Autre chose que j'ai remarque : si tu ouvres ton fichier sans macro puis tu creer un cadre se ratachant a une macro d'un autres fichier pour retablir les barres outils ou autres tout ce qu'on a fait ne sert a rien, donc la solution c'est lors de la fermeture du fichier (before save) regarder si la premiere page d'accueil est active ou non. si oui alors fermer le fichier sans sauvegrder, sinon le suver) Qu'en penses-tu ? @+ Michel.
"Joseph" wrote in message news:0b0e01c39ed8$19a71250$ Salut, J'ai enfin touvé une solution simple à notre problème:
Mettre au niveau WorkBook Private Sub Workbook_SheetActivate(ByVal NomFeuille As Object)
If NomFeuille.Name = "Titi" Thet Worksheets("Titi").EnableSelection = xlNoSelection End If End Sub
Il y a plusieurs valeurs pour EnableSelection, va voir dans l'aide. Cela s'applique uniquement avec une feuille protégé.
Alors en utilisant ton idée de masquer les feuilles et de les afficher dans une macro, pour éviter que l'uitilisateur ne désactive les macros, tout marche !!!
Ciao et a+
Salut,
Merci du conseil.....
Attention car si qqu'un crer un fichier parallel au tiens avec un acces sur
ta fauille puis mets :
Worksheets("Titi").EnableSelection = xlNoRestrictions
il aura tout loisir de copier/coller ta feuille donc je ne crois pas que
cela soit la solution.... qu'en penses tu ?
Autre chose que j'ai remarque :
si tu ouvres ton fichier sans macro puis tu creer un cadre se ratachant a
une macro d'un autres fichier pour retablir les barres outils ou autres tout
ce qu'on a fait ne sert a rien, donc la solution c'est lors de la fermeture
du fichier (before save) regarder si la premiere page d'accueil est active
ou non. si oui alors fermer le fichier sans sauvegrder, sinon le suver)
Qu'en penses-tu ?
@+
Michel.
"Joseph" <Joseph.Sciretta@Manpower.CH> wrote in message
news:0b0e01c39ed8$19a71250$a101280a@phx.gbl...
Salut,
J'ai enfin touvé une solution simple à notre problème:
Mettre au niveau WorkBook
Private Sub Workbook_SheetActivate(ByVal NomFeuille As
Object)
If NomFeuille.Name = "Titi" Thet
Worksheets("Titi").EnableSelection = xlNoSelection
End If
End Sub
Il y a plusieurs valeurs pour EnableSelection, va voir dans
l'aide.
Cela s'applique uniquement avec une feuille protégé.
Alors en utilisant ton idée de masquer les feuilles et de
les afficher dans une macro, pour éviter que
l'uitilisateur ne désactive les macros, tout marche !!!
Salut, Merci du conseil..... Attention car si qqu'un crer un fichier parallel au tiens avec un acces sur ta fauille puis mets : Worksheets("Titi").EnableSelection = xlNoRestrictions il aura tout loisir de copier/coller ta feuille donc je ne crois pas que cela soit la solution.... qu'en penses tu ? Autre chose que j'ai remarque : si tu ouvres ton fichier sans macro puis tu creer un cadre se ratachant a une macro d'un autres fichier pour retablir les barres outils ou autres tout ce qu'on a fait ne sert a rien, donc la solution c'est lors de la fermeture du fichier (before save) regarder si la premiere page d'accueil est active ou non. si oui alors fermer le fichier sans sauvegrder, sinon le suver) Qu'en penses-tu ? @+ Michel.
"Joseph" wrote in message news:0b0e01c39ed8$19a71250$ Salut, J'ai enfin touvé une solution simple à notre problème:
Mettre au niveau WorkBook Private Sub Workbook_SheetActivate(ByVal NomFeuille As Object)
If NomFeuille.Name = "Titi" Thet Worksheets("Titi").EnableSelection = xlNoSelection End If End Sub
Il y a plusieurs valeurs pour EnableSelection, va voir dans l'aide. Cela s'applique uniquement avec une feuille protégé.
Alors en utilisant ton idée de masquer les feuilles et de les afficher dans une macro, pour éviter que l'uitilisateur ne désactive les macros, tout marche !!!
