Code VBA qui ne marche pas

[remib]

Bonsoir a tous,

Je vous sollicite car j'ai un problème avec un code VBA :
en combinant plusieurs fichiers trouvés sur le net j'ai un fichier qui permet de :
- Mettre un mot de passe sur les feuilles qui est égal à azerty et attaché a azerty "les 2 derniers chiffres de l'adresse MAC de l'ordinateur sur lequel est ouvert le fichier
- Verrouiller le copier coller
- Verrouiller le clique droit
- Désactive l'impression
- Désactive la croix pour fermer excel (Valeur mise à false volontairement pour faciliter la résolution de ce problème)
- Creer un journal de suivi des ouverture/fermeture du fichier
- Vérifie si les macros sont activées ou pas si elles ne le sont pas seule la feuille 1 est afficher et si elles sont activées ceux sont les feuilles 2 et 3 qui sont affichées

Le problème est que je ne suis pas très doué en VBA et que ces codes ne marchent pas

PS : j'ai laissé tous les codes tels quels comme trouvé sur internet. Je vous joint ce fichier

Merci d'avance

 

[phlaurent55]

Re : Code VBA qui ne marche pas

Bonjour remib

en regardant ton code dans ThisWorkbook, je constate qu'il y a 3 Private Sub Workbook_Open() et 2 Private Sub Workbook_BeforeClose

je ne suis pas certain que cela puisse fonctionner.....................essaie de regrouper

 

[GCFRG]

Re : Code VBA qui ne marche pas

salut, tu as 3
Private Sub Workbook_BeforeClose(Cancel As Boolean)

commence par mettre de l'ordre la dedans, et reviens vers nous

Cordialement Gilbert

 

[remib]

Re : Code VBA qui ne marche pas

Merci beaucoup de vos réponses rapides

J'ai fait ce que vous m'avez demandé et je vous renvoie le "nouveau fichier"

Merci beaucoup

 

[remib]

Re : Code VBA qui ne marche pas

Bonjour à tous,

Je crois que j'ai réussi je vous transmet le fichier qui ,je pense, marche

Merci de votre interet

 

[Dull]

Re : Code VBA qui ne marche pas

Salut remib, GCFRG, phlaurent55, le Forum

J'ai ouvert ton classeur pour voir

c'estunbor...monstre
Rarement vu un tel désordre mêmedanslachambredemonfils😀

Les déclarations de variables sont mal définies ou inexistantes
Option Explicit doit être en tête de Module en non à la fin
Tu met s as WorkSheet et on trouve des Sh...
Bref il-y-a du ménage à faire

Après un coup de Balai dit moi si c'est ce que tu cherche

Bonne Journée

 

[remib]

Re : Code VBA qui ne marche pas

merci de ta réponse,

Je viens d'étider mon dernier message regarde le fichier en PJ j'ai supprimer option explicit et sa a l'air de marcher

 

[Dull]

Re : Code VBA qui ne marche pas

Re remib, le Fil

Néanmoins je te conseil Option Explicit en tête de module cela te permettra de bien déclarer tes variables tu verra les erreurs plus facilement, notamment la variable i n'est pas déclarée, sh n'a rien n'a faire dans ton code remplace le par s puisque elle,(cette variable) est déclarée. Tu apprendra beaucoup plus d'un code qu'un simple copier/coller trouvé ici et là et cela te servira pour tes futurs projets...

Maismoicequej'endis...😕

Bonne Journée

 

[GCFRG]

Re : Code VBA qui ne marche pas

salut remib.

Ton code modifié, voit si çà te convient

GC

Private Sub Workbook_Open()

Dim s As Worksheet, Chemin As String, fichier As String
Chemin = "c:\dossier\"
fichier = "journal.txt"
lancerm
For Each s In ThisWorkbook.Worksheets
s.Protect mdps
Next
Dim Cible As Integer

Cible = FreeFile
If Dir(Chemin, 16) = "" Then MkDir Chemin
Open Chemin & fichier For Output Shared As #Cible
Print #Cible, Now & ";Ouverture;" & Environ("UserName")
Close #Cible

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

 

[remib]

Re : Code VBA qui ne marche pas

Bonsoir,

Merci beaucoup pour vos réponses tout marche nikel