XL 2010 Mode protégé - Activer les macros

  • Initiateur de la discussion Initiateur de la discussion Ternoise
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Ternoise

XLDnaute Occasionnel
Bonjours à tous

A l'ouverture d'un classeur, est-il possible de détecter si l'utilisateur à activer les macros (mode protégé)?

Si le mode "protégé" n'est pas activer, inscrire dans A1 "Mode protégé activé - Activez le pour modification"
Si le mode "protégé" est activer, ne rien inscrire

Merci de votre aide

David
 
Bonjour Ternoise,
Si le mode "protégé" n'est pas activer on ne peut pas activer une macro pour écrire "Mode protégé activé - Activez le pour modification"
Il faut faire le contraire.
A la fermeture, écrire en A1 "Mode protégé activé - Activez le pour modification"
A l'ouverture, par macro effacer A1.
Si le mode est protégé, A1 n'est pas effacé et il y est écrit Mode protégé activé.
Si le mode est activé alors la cellule A1 est effacée.
 
Re

En fait, je préfère cacher les lignes mais ça fonctionne pas vraiment quand j'active "désactiver toutes les macros avec notification"!
Ou est mon erreur ?
Merci

VB:
Private Sub Workbook_Open()

ActiveWorkbook.Worksheets("MENU").Rows("5:14").Select
    Selection.EntireRow.Hidden = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next

ActiveWorkbook.Worksheets("MENU").Rows("5:14").Select
    Selection.EntireRow.Hidden = False
    Range("B2").Select
End Sub
 
Bonjour à tous - Meilleurs Vœux !

Cette procédure est-elle la meilleurs des solutions pour une sortie/entrée dans un classeur protégé par l'activation des macros ?
Merci pour vos lumières !

Sur la feuille "MENU", un bouton Quitter et ce code dans un Module
VB:
Sub Quitter()
        
Sheets("SECURITE").Visible = xlSheetVisible
Sheets("SECURITE").Activate

ActiveWorkbook.Worksheets("SECURITE").Range("C8").Value = " Tu essaies d'ouvrir ce programme en [ mode protégé ] "
ActiveWorkbook.Worksheets("SECURITE").Range("C13").Value = " Avertissement de sécurité : Les macros ont été désactivés. "
ActiveWorkbook.Worksheets("SECURITE").Range("C15").Value = " Pour utiliser ce programme il faut cliquer sur [ Activer le contenu ] "

Sheets("MENU").Visible = xlSheetVeryHidden
Sheets("BD").Visible = xlSheetVeryHidden
Sheets("RESULTAT").Visible = xlSheetVeryHidden
            
Application.DisplayAlerts = 0
ActiveWorkbook.Save
Application.Quit

End Sub

Puis dans "ThisWorkBook

Code:
Private Sub Workbook_Open()

Sheets("MENU").Visible = xlSheetVisible
Sheets("BD").Visible = xlSheetVisible
Sheets("RESULTAT").Visible = xlSheetVisible

Sheets("SECURITE").Visible = xlSheetVeryHidden
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("SECURITE").Visible = xlSheetVisible

ActiveWorkbook.Worksheets("SECURITE").Range("C8").Value = " Tu essaies d'ouvrir ce programme en [ mode protégé ] "
ActiveWorkbook.Worksheets("SECURITE").Range("C13").Value = " Avertissement de sécurité : Les macros ont été désactivés. "
ActiveWorkbook.Worksheets("SECURITE").Range("C15").Value = " Pour utiliser ce programme il faut cliquer sur [ Activer le contenu ] "

Sheets("MENU").Visible = xlSheetVeryHidden
Sheets("BD").Visible = xlSheetVeryHidden
Sheets("RESULTAT").Visible = xlSheetVeryHidden

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
7
Affichages
324
Réponses
3
Affichages
609
Réponses
11
Affichages
248
T
  • Résolu(e)
Microsoft 365 pb effacement macro
Réponses
8
Affichages
573
Themax
T
Retour