problème activation macro + blocage sauvegarde et impression

  • Initiateur de la discussion Initiateur de la discussion messteck
  • 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 !

messteck

XLDnaute Nouveau
bonjour à tous,

toujours le même problème d'activation de macros:
lorsque l'utilisateur ouvre le fichier excel et qu'il active les macros, les feuilles 2 et 3 sont affichées, si les macros ne sont pas activées, seule la feuille 1 est affichée avec un message d'erreur, ca pas de problème ca marche.
Mais lorsque les macros sont activées et que la cellule BC11 n'est pas égale à 11, l'impression et la sauvegarde doivent être bloqués, et là ca ne marche plus. Même si la cellule BC11 est égale à 11, j'ai le message "Not completely filled out !" et la sauvegarde et l'impression sont quand même bloqués.
Etant novice, je ne sais pas comment faire.
Si quelqu'une âme charitable avait une solution..

Voici mon code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets(1).Visible = True

For i = Sheets.Count To 2 Step -1
Sheets(i).Visible = xlVeryHidden
Next i
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each sh In Sheets
sh.Visible = True
Next sh

Sheets(1).Visible = xlVeryHidden
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("BC11").Value <> "11" Then
Cancel = True
MsgBox "Not completely filled out !"
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveSheet.Range("BC11").Value <> "11" Then
Cancel = True
MsgBox "Not completely filled out !"
End If
End Sub

D'avance merci à tous
 
Re : problème activation macro + blocage sauvegarde et impression

Bonjour,

A vérifier quelle est la feuille active à ce moment...; peut être remplacer par le nom de la feuille :
Code:
If Sheets("NomFeuille").Range("BC11").Value <> "11" Then
bon après midi
@+
 
- 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

Réponses
4
Affichages
243
Retour