problème activation macro + blocage sauvegarde et impression

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
 

Pierrot93

XLDnaute Barbatruc
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
@+
 
Haut Bas