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