XL 2010 Mode protégé - Activer les macros

Ternoise · 2 Janvier 2020

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

sylvanu · 2 Janvier 2020

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.

Ternoise · 2 Janvier 2020

Bonjour Sylvanu

Cool, j'avais pas pensé à agir à l'envers !

Bien cordialement

Ternoise · 2 Janvier 2020

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

Ternoise · 3 Janvier 2020

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

XL 2010 Mode protégé - Activer les macros

Ternoise

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Ternoise

XLDnaute Occasionnel

Ternoise

XLDnaute Occasionnel

Ternoise

XLDnaute Occasionnel

Discussions similaires