Excel: Mon code est désactivé à l'ouverture.

Bonjour,

Ton code doit être une macro, exemple:

Sub mamacro()
'blablabla
End Sub

Ensuite dans ThisWorkBook en haut à gauche tu mets ceci:

Option Explicit

Private Sub Workbook_Open()
mamacro
End Sub

Voilà ce que j'ai pour l'instant: (Feuil1)

Dim skip as Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If skip = True Then
skip = False
Exit Sub
End If
skip = True
Application.Undo
UserForm1.Show
End Sub

UserForm1 est une fenêtre toute simple

Comment le transformer en macro?
(Désolé, le VBA, je ne connais pas trop)

Mettre dans un module:

Option Explicit
Public Sub modif()
Dim Skip As Boolean
If Skip = True Then
Skip = False
Exit Sub
End If
Skip = True
UserForm1.Show
End Sub

Dans la feuille concernée:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
modif
End Sub

Et dans ThisWorkBook:

Option Explicit
Private Sub Workbook_Open()
modif
End Sub

Mais je ne comprends pas trop le processus, où est la macro pour rétablir la saisie?

Je n'ai pas fait de macro pour rétablir la saisie. J'aurais pu mais je n'en ai pas besoin.

Après avoir fait les modifications indiquées, le message "Les macros sont désactivées" s'affiche. Je clique sur "Activer pour ce document", et un message d'erreur (erreur 1004) s'affiche. A part ça, une fois que j'ai fermé le message d'erreur, le code fonctionne.
Maintenant je voudrais savoir:

-Comment supprimer ce message d'erreur
-Comment faire pour que la macro s'exécute automatiquement (si possible)

-Comment supprimer ce message d'erreur

cliquer sur Developpeur dans le ruban en haut

Sécurités des macros

Paramètres des macros: Activer toutes les macros

-Comment faire pour que la macro s'exécute automatiquement (si possible)

Et dans ThisWorkBook mettre:

Option Explicit
Private Sub Workbook_Open()
modif
End Sub

Elle est opérationnelle à l'ouverture du classeur!!!

On s'est mal compris:

La cause de l'erreur est la suivante:

Dès l'ouverture du classeur, on lance le sub modif.
Or, le sub modif annule la dernière modification effectuée (Application.Undo). Seulement, à l'ouverture du classeur, il n'y a rien à annuler, puisqu'aucune modification n'a encore été faite. Il faudrait donc que l'on sorte du sub si aucune modification n'est présente dans l'historique.

Pour l'exécution automatique, je souhaiterais qu'elle se fasse sur n'importe quel ordinateur, sans avoir besoin d'activer toutes les macros.
Sinon, quelqu'un qui veut modifier la feuille n'a qu'à ne pas activer les macros, et tout mon code sera neutralisé.

Dès l'ouverture du classeur, on lance le sub modif.

Tu ne la lances pas à l'ouverture, elle va se lancer d'elle même au changement de saisie sur la feuille

Pour l'exécution automatique, je souhaiterais qu'elle se fasse sur n'importe quel ordinateur, sans avoir besoin d'activer toutes les macros.

C'est impossible, il faut trouver une autre solution sans macro. Les macros ne peuvent fonctionner que si elles sont activées

J'ai supprimé le code dans ThisWorkBook, effectivement il n'y a plus d'erreur, et le code fonctionne toujours.

Si quelqu'un sait comment faire ce que je cherche sans macro, je suis preneur.

Sinon, est-il possible d'interdire l'ouverture du classeur si les macros sont désactivées?

OUI

A mettre dans ThisWorBook:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'on rétabli à la fermeture
 ThisWorkbook.IsAddin = True
End Sub
Private Sub Workbook_Open()
 '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
End Sub

Merci beaucoup, ça marche

Je viens de voir que mon code n'était pas parfait:
Par exemple, il ne protège pas contre la suppression des graphiques.

Quelqu'un aurait un meilleur code?

En fait,

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'on rétabli à la fermeture
 ThisWorkbook.IsAddin = True
End Sub
Private Sub Workbook_Open()
 '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
End Sub

Cela oblige à enregistrer sous xlam. Comment le garder sous xlsm?

Tu peux enregistrer en .xls (Excel97-2003)

J'enregistre personnellement tous mes fichiers pouvant être partagés dans ce format, pour les personnes n'ayant pas les récentes versions

a propos des graphiques lire ceci pour empêcher leur modification

https://argyronet.developpez.com/office/access/makecharts/#L2-5-4