activation obligatiore macros + blocage impression ou sauvegarde

[messteck]

bonjour à tous les passionnés d'Excel,

un problème:

j'ai besoin d'un code qui oblige à activer les macros lors de l'ouverture d'un fichier. Si les macros ne sont pas activées, il est alors impossible d'imprimer ou de sauvegarder.
J'ai trouvé un code sur ce forum mais il ne fonctionne pas, j'ai une erreur à cette ligne:

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("V11").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("V11").Value <> "11" Then
Cancel = True
MsgBox "Not completely filled out !"
End If
End Sub

Merci à tous pour votre aide

 

[phlaurent55]

Re : activation obligatiore macros + blocage impression ou sauvegarde

Bonjour messteck,

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

ce code bout de fonctionne chez moi

mais il ne peut pas fonctionner si il n'y a q'une feuille
serait-ce ton cas ???

+à
Philippe

 

[messteck]

Re : activation obligatiore macros + blocage impression ou sauvegarde

oui c'est vrai quel idiot, je vais réessayer, merci