Bonjour à tous
j'ai trouvé sur le net une macro qui permet à l'ouverture (d'un fichier contenant une macro) d'afficher si on désactive les macro (car niveau de sécurité trop haut ou la personne qui ouvre le classeur désactive les macro par peur du message) sur la feuille "Alerte macro" un message comme quoi il faut activer les macro pour pouvoir utiliser le classeur et en l'occurrence la Feuill1.
Cependant comme j'ai d'autre feuille que la feuille 1 si à l'ouverture du classeur on désactive les macros on voit toujours les feuille 2, 3 etc... (pas forcément feuill avec un chiffre).
j'aimerai qu'il y ait uniquement la feuille "Alerte macro" qui apparaisse et que les autre soit masquer et peut être même si possible que ne puisse pas y accédé (vérouillage) puisque en passant par ce chemin on peut démasquer la feuill1 :
cliquez sur le menu Format, sur Feuille puis sur Afficher.
C'est je pourrai répéter Sheets("").Visible = True mais c'est trop lourd.
1/ Avez une solution à mon problème ?
La macro est la suivante :
Merci d'avance de votre aide
Ps : Il y a aussi dans le fichier une macro de vérouillage des cellules remplies à l'enregistrements du classeur.
Voici un fichier contenant un les macros :
j'ai trouvé sur le net une macro qui permet à l'ouverture (d'un fichier contenant une macro) d'afficher si on désactive les macro (car niveau de sécurité trop haut ou la personne qui ouvre le classeur désactive les macro par peur du message) sur la feuille "Alerte macro" un message comme quoi il faut activer les macro pour pouvoir utiliser le classeur et en l'occurrence la Feuill1.
Cependant comme j'ai d'autre feuille que la feuille 1 si à l'ouverture du classeur on désactive les macros on voit toujours les feuille 2, 3 etc... (pas forcément feuill avec un chiffre).
j'aimerai qu'il y ait uniquement la feuille "Alerte macro" qui apparaisse et que les autre soit masquer et peut être même si possible que ne puisse pas y accédé (vérouillage) puisque en passant par ce chemin on peut démasquer la feuill1 :
cliquez sur le menu Format, sur Feuille puis sur Afficher.
C'est je pourrai répéter Sheets("").Visible = True mais c'est trop lourd.
1/ Avez une solution à mon problème ?
La macro est la suivante :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("AlerteMacro").Visible = True
Sheets("Feuil1").Select 'ou autre page
ActiveWindow.SelectedSheets.Visible = False
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
End Sub
Code:
Private Sub Workbook_Open()
Sheets("Feuil1").Visible = True 'ou autre page
Sheets("AlerteMacro").Visible = False
End Sub
Merci d'avance de votre aide
Ps : Il y a aussi dans le fichier une macro de vérouillage des cellules remplies à l'enregistrements du classeur.
Voici un fichier contenant un les macros :
Pièces jointes
Dernière édition: