XL VBA "Sécurité" Résolu/Fermé

Question

Bonjour, 

Je reviens vers vous à la suite du poste ci dessous qui date de l'année dernière
https://forums.commentcamarche.net/forum/affich-34839603-information-securite-mots-de-passe-feuilles-classeur-et-vba
pour ceux qui ne veulent pas tout lire je cherchais à sécuriser un fichier et cs_Le Pivert m'a généreusement fournit quelques exemples de code.
Mon problème c'est que j'ai essayé de m'en servir et que depuis toutes mes procedures sont systématiquement interrompues et je n'arrive pas à rétablir ce phénomène
J'ai essayé de trouver les ordres contraires sans grand succès, j'ai contrôlé les options excel mais rien n'y fait..
voici le code utilisé :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

' 'on rétabli à la fermeture
 ThisWorkbook.IsAddin = True
'et à la fin de ta macro : remettre raccourci clavier Ctrl Pause
Application.EnableCancelKey = xlInterrupt 'Ou xlErrorHandler

End Sub

Private Sub Workbook_Open()
    Dim tmpmsgbx As Integer
    
''empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
''des macros est désactivée dans les options de sécurité
    ThisWorkbook.IsAddin = True
''au début de ta macro
    Application.EnableCancelKey = xlDisabled 'empeche raccourci clavier Ctrl Pause

Names("EditDevis").Visible = False
    Worksheets("BDD devis").Visible = 0
    Worksheets("Statistiques").Visible = 0
    Worksheets("bddCPVA").Visible = 0
    Worksheets("tmptarif").Visible = 0
    Worksheets("Fiche Contact").Visible = 0
    Worksheets("PERGOLA VERANDA").Visible = 1
    Worksheets("PERGOLA VERANDA").Activate
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    Application.DisplayFormulaBar = False
       
    tmpmsgbx = MsgBox("Merci de vous assurer de ne pas avoir d'autre fichier Excel ouvert" & vbCrLf & vbCrLf & _
    "Assurez vous d'enregistrer et fermer vos différents fichiers Excel avant de lancer l'aplication de chiffrage XXX", vbCritical + vbOKCancel, "XXX")
    
    If tmpmsgbx = vbOK Then
        Application.WindowState = xlMinimized
        Application.Visible = False
        ufLoggin.Show 0
    Else
        ThisWorkbook.Close savechanges:=False
    End If

End Sub

Merci d'avance pour vos conseils avisés

Configuration: Windows / Chrome 68.0.3440.106

cs_Le Pivert · Answer

Bonjour,

a la place de cela

Private Sub Workbook_Open()
    Dim tmpmsgbx As Integer
    
''empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
''des macros est désactivée dans les options de sécurité
    ThisWorkbook.IsAddin = True 

il faut mettre 

Private Sub Workbook_Open()
    Dim tmpmsgbx As Integer
    
''empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
''des macros est désactivée dans les options de sécurité
    ThisWorkbook.IsAddin = False

par ailleurs, je n'ai jamais vu cela:

  Names("EditDevis").Visible = False

A consulter:

https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

XL VBA "Sécurité"

1 réponse

Discussions similaires