OVH Cloud OVH Cloud

Autoexec

5 réponses
Avatar
YANN24
Bonjour,

je voudrais savoir où dois-je insérer ma macro pour qu'elle s'éxécute au
démarage de mon fichier? Je voudrais éxécuter 2 macro (une de protection du
classeur, et l'autre pour rendre invisible 2 onglets). Quelle est la syntaxe
à mettre ?

Merci d'avance.
YANN

5 réponses

Avatar
anomymousA
bonjour,

il me semble que tu as déjà eu ces infos.A mettre dans le module
Thisworkbook du classeur

'la procédure Workbook_BeforeClose n'est pas obligatoire. C'est seulement si
tu veux enregistrer le classeur et lui donner un mot de passe à
l'ouverture.Elle est aussi là pour te permettre de voir quels sont les 2
moyens de protéger un classeur.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.FullName, password:="toto",
writerespassword:="toto"
Application.DisplayAlerts = True

End Sub

Private Sub Workbook_Open()

ThisWorkbook.Unprotect password:="toto"
On Error Resume Next
tbl = Array("Feuil1", "Feuil2") 'tu mets le nom des feuilles que tu
souhaites cacher
Sheets(tbl).Visible = False
ThisWorkbook.Protect password:="toto"

End Sub

A+

si tu veux unmot de passe à l'ouverture

Bonjour,

je voudrais savoir où dois-je insérer ma macro pour qu'elle s'éxécute au
démarage de mon fichier? Je voudrais éxécuter 2 macro (une de protection du
classeur, et l'autre pour rendre invisible 2 onglets). Quelle est la syntaxe
à mettre ?

Merci d'avance.
YANN


Avatar
YANN24
Re Bonjour,

j'ai essayé de mettre ma macro pour rendre invisble mes feuilles au
démarage, mais maintenant, je ne peux plus "définir la propriété visible de
la classe Worksheet" selon le message d'erreur sous VBA.
Pourtant, j'ai viré toutes mes macros!!

Comment faire, Au secours.
Merci.
YANN



bonjour,

il me semble que tu as déjà eu ces infos.A mettre dans le module
Thisworkbook du classeur

'la procédure Workbook_BeforeClose n'est pas obligatoire. C'est seulement si
tu veux enregistrer le classeur et lui donner un mot de passe à
l'ouverture.Elle est aussi là pour te permettre de voir quels sont les 2
moyens de protéger un classeur.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.FullName, password:="toto",
writerespassword:="toto"
Application.DisplayAlerts = True

End Sub

Private Sub Workbook_Open()

ThisWorkbook.Unprotect password:="toto"
On Error Resume Next
tbl = Array("Feuil1", "Feuil2") 'tu mets le nom des feuilles que tu
souhaites cacher
Sheets(tbl).Visible = False
ThisWorkbook.Protect password:="toto"

End Sub

A+

si tu veux unmot de passe à l'ouverture

Bonjour,

je voudrais savoir où dois-je insérer ma macro pour qu'elle s'éxécute au
démarage de mon fichier? Je voudrais éxécuter 2 macro (une de protection du
classeur, et l'autre pour rendre invisible 2 onglets). Quelle est la syntaxe
à mettre ?

Merci d'avance.
YANN




Avatar
YANN24
Ok, un grand merci pour ta macro, mais à chaque fois que je lance mon
fichier, il me demande le mot de passe.
J'ai supprimé la macro du Workbook, mais il me demande tjs le mot de passe
!! Comment celà se fait-il ?
Quoi faire pour y remédier?
Merci.
YANN


bonjour,

il me semble que tu as déjà eu ces infos.A mettre dans le module
Thisworkbook du classeur

'la procédure Workbook_BeforeClose n'est pas obligatoire. C'est seulement si
tu veux enregistrer le classeur et lui donner un mot de passe à
l'ouverture.Elle est aussi là pour te permettre de voir quels sont les 2
moyens de protéger un classeur.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.FullName, password:="toto",
writerespassword:="toto"
Application.DisplayAlerts = True

End Sub

Private Sub Workbook_Open()

ThisWorkbook.Unprotect password:="toto"
On Error Resume Next
tbl = Array("Feuil1", "Feuil2") 'tu mets le nom des feuilles que tu
souhaites cacher
Sheets(tbl).Visible = False
ThisWorkbook.Protect password:="toto"

End Sub

A+

si tu veux unmot de passe à l'ouverture

Bonjour,

je voudrais savoir où dois-je insérer ma macro pour qu'elle s'éxécute au
démarage de mon fichier? Je voudrais éxécuter 2 macro (une de protection du
classeur, et l'autre pour rendre invisible 2 onglets). Quelle est la syntaxe
à mettre ?

Merci d'avance.
YANN




Avatar
anomymousA
re,

c'es parce que le fichier a été enregistré une 1er fois avec un mdp à
l'ouverture. Pour revenir à l'état initial, élimine la macro
workbook_BeforeClose et enregistres à la main ton ficher en faisant
Enregistrer sous puis dans la boite de dialogue cliques sur Outils/Options
puis dans la boite de dialogue de 'Options d'neregistrement' enlève les mots
de passe.

Je t'avais dit qu'il nétait pas absolument necessaire de faire exécuter le
workbook_beforeClose.

A+



Ok, un grand merci pour ta macro, mais à chaque fois que je lance mon
fichier, il me demande le mot de passe.
J'ai supprimé la macro du Workbook, mais il me demande tjs le mot de passe
!! Comment celà se fait-il ?
Quoi faire pour y remédier?
Merci.
YANN


bonjour,

il me semble que tu as déjà eu ces infos.A mettre dans le module
Thisworkbook du classeur

'la procédure Workbook_BeforeClose n'est pas obligatoire. C'est seulement si
tu veux enregistrer le classeur et lui donner un mot de passe à
l'ouverture.Elle est aussi là pour te permettre de voir quels sont les 2
moyens de protéger un classeur.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.FullName, password:="toto",
writerespassword:="toto"
Application.DisplayAlerts = True

End Sub

Private Sub Workbook_Open()

ThisWorkbook.Unprotect password:="toto"
On Error Resume Next
tbl = Array("Feuil1", "Feuil2") 'tu mets le nom des feuilles que tu
souhaites cacher
Sheets(tbl).Visible = False
ThisWorkbook.Protect password:="toto"

End Sub

A+

si tu veux unmot de passe à l'ouverture

Bonjour,

je voudrais savoir où dois-je insérer ma macro pour qu'elle s'éxécute au
démarage de mon fichier? Je voudrais éxécuter 2 macro (une de protection du
classeur, et l'autre pour rendre invisible 2 onglets). Quelle est la syntaxe
à mettre ?

Merci d'avance.
YANN






Avatar
YANN24
OK, ça marche.
Le workbook_before, je pensait que ça permettait la protection des feuilles
avec un mot de passe.
MERCI bocou.
yann


re,

c'es parce que le fichier a été enregistré une 1er fois avec un mdp à
l'ouverture. Pour revenir à l'état initial, élimine la macro
workbook_BeforeClose et enregistres à la main ton ficher en faisant
Enregistrer sous puis dans la boite de dialogue cliques sur Outils/Options
puis dans la boite de dialogue de 'Options d'neregistrement' enlève les mots
de passe.

Je t'avais dit qu'il nétait pas absolument necessaire de faire exécuter le
workbook_beforeClose.

A+



Ok, un grand merci pour ta macro, mais à chaque fois que je lance mon
fichier, il me demande le mot de passe.
J'ai supprimé la macro du Workbook, mais il me demande tjs le mot de passe
!! Comment celà se fait-il ?
Quoi faire pour y remédier?
Merci.
YANN


bonjour,

il me semble que tu as déjà eu ces infos.A mettre dans le module
Thisworkbook du classeur

'la procédure Workbook_BeforeClose n'est pas obligatoire. C'est seulement si
tu veux enregistrer le classeur et lui donner un mot de passe à
l'ouverture.Elle est aussi là pour te permettre de voir quels sont les 2
moyens de protéger un classeur.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.FullName, password:="toto",
writerespassword:="toto"
Application.DisplayAlerts = True

End Sub

Private Sub Workbook_Open()

ThisWorkbook.Unprotect password:="toto"
On Error Resume Next
tbl = Array("Feuil1", "Feuil2") 'tu mets le nom des feuilles que tu
souhaites cacher
Sheets(tbl).Visible = False
ThisWorkbook.Protect password:="toto"

End Sub

A+

si tu veux unmot de passe à l'ouverture

Bonjour,

je voudrais savoir où dois-je insérer ma macro pour qu'elle s'éxécute au
démarage de mon fichier? Je voudrais éxécuter 2 macro (une de protection du
classeur, et l'autre pour rendre invisible 2 onglets). Quelle est la syntaxe
à mettre ?

Merci d'avance.
YANN