OVH Cloud OVH Cloud

Interdiction de renommer

7 réponses
Avatar
Pascal
Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros VBA etc
etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont sautées.

Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

7 réponses

Avatar
JB
Bonjour,

Paramétrer le pgm VBA en fonction du nom du classeur:

NomClasseur=ThisWorkBook.Name

JB

On 22 fév, 09:45, "Pascal" wrote:
Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros VBA etc
etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont saut ées.

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


Avatar
Pascal
Bonjour
Je comprends pas. Je le mets ou ce code et avec quelle syntaxe?
Merci

"JB" a écrit dans le message de news:

Bonjour,

Paramétrer le pgm VBA en fonction du nom du classeur:

NomClasseur=ThisWorkBook.Name

JB

On 22 fév, 09:45, "Pascal" wrote:
Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros VBA etc
etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont
sautées.

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:16:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:18:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Avatar
RGI
Bonjour
mettre dans le thisworkbook

Private Sub Workbook_Open()
monclasseur = ThisWorkbook.Name
If monclasseur <> "monsuperclasseur" Then
ThisWorkbook.SaveAs ("monsuperclasseur.xls")
End If
End Sub

salutations

RGI

Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros VBA etc
etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont sautées.

Merci




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Avatar
RGI
il faut mettre "monsuperclasseur.xls" au lieu de "monsuperclasseur"

RGI

Bonjour
mettre dans le thisworkbook

Private Sub Workbook_Open()
monclasseur = ThisWorkbook.Name
If monclasseur <> "monsuperclasseur" Then
ThisWorkbook.SaveAs ("monsuperclasseur.xls")
End If
End Sub

salutations

RGI

Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros
VBA etc etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont
sautées.

Merci



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








Avatar
Pascal
Bonjour
Je remplace "monsuperclasseur" par le nom de mon classeur??
Merci

"RGI" a écrit dans le message de
news:
Bonjour
mettre dans le thisworkbook

Private Sub Workbook_Open()
monclasseur = ThisWorkbook.Name
If monclasseur <> "monsuperclasseur" Then
ThisWorkbook.SaveAs ("monsuperclasseur.xls")
End If
End Sub

salutations

RGI

Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros VBA
etc etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont
sautées.

Merci



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com







---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:38:21
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:41:00
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Avatar
anonymousA
Bonjour,

D'abord, il n'existe pas de moyen d'empêcher de renommer ou de copier un
un classeur depuis Windows sauf à ce que les dictateurs de
l'informatique de ton boulot l'aient prévus et encore, je n'en suis même
pas certain.
Donc, pour eviter les soucis de renommage intempestif, ce que te
signalait JB et qui est une bonne pratique , la preuve, c'est de
désigner par une variable dans tes programmes, le nom en cours de ton
classeur.
Exemple, si dans tes programmes, tu as des instructions du style ( en
supposant que lors de la confection de ces programmes, ton classeur
s'appelle toto.xls et que son chemin s'appelle C:tatatiti),
variable=workbooks("toto.xls").sheets(1).range("A1").value et
Msgbox workbooks("toto.xls").path , alors il est clair que si l'on
renomme ton classeur cette instruction va se planter.

Mais si tu prends la précuation dans ce même programme d'écrire
une variable publique (déclarée dans un module standard) par exemple
appelée MonClasseur au tout début de l'ouverture du fichier ( dans le
workbook_Open par exemple) et que tu écris
MonClasseur=Thisworkbook.name et que tu remplaces les instructions
variable=workbooks("toto.xls").sheets(1).range("A1").value
Msgbox workbooks("toto.xls").path
par
variable=workbooks(MonClasseur).sheets(1).range("A1").value et
Msgbox workbooks(MonClasseur).path, alors
il ne peut plus y avoir de plantage même si des petits malins ont
renommé ton classeur voire changé de répertoire.

A+

Bonjour
Je comprends pas. Je le mets ou ce code et avec quelle syntaxe?
Merci

"JB" a écrit dans le message de news:

Bonjour,

Paramétrer le pgm VBA en fonction du nom du classeur:

NomClasseur=ThisWorkBook.Name

JB

On 22 fév, 09:45, "Pascal" wrote:
Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros VBA etc
etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont
sautées.

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:16:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:18:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






Avatar
Pascal
merci
"anonymousA" a écrit dans le message de news:
45dd6bb0$0$25924$
Bonjour,

D'abord, il n'existe pas de moyen d'empêcher de renommer ou de copier un
un classeur depuis Windows sauf à ce que les dictateurs de l'informatique
de ton boulot l'aient prévus et encore, je n'en suis même pas certain.
Donc, pour eviter les soucis de renommage intempestif, ce que te signalait
JB et qui est une bonne pratique , la preuve, c'est de désigner par une
variable dans tes programmes, le nom en cours de ton classeur.
Exemple, si dans tes programmes, tu as des instructions du style ( en
supposant que lors de la confection de ces programmes, ton classeur
s'appelle toto.xls et que son chemin s'appelle C:tatatiti),
variable=workbooks("toto.xls").sheets(1).range("A1").value et
Msgbox workbooks("toto.xls").path , alors il est clair que si l'on renomme
ton classeur cette instruction va se planter.

Mais si tu prends la précuation dans ce même programme d'écrire
une variable publique (déclarée dans un module standard) par exemple
appelée MonClasseur au tout début de l'ouverture du fichier ( dans le
workbook_Open par exemple) et que tu écris
MonClasseur=Thisworkbook.name et que tu remplaces les instructions
variable=workbooks("toto.xls").sheets(1).range("A1").value
Msgbox workbooks("toto.xls").path
par
variable=workbooks(MonClasseur).sheets(1).range("A1").value et
Msgbox workbooks(MonClasseur).path, alors
il ne peut plus y avoir de plantage même si des petits malins ont renommé
ton classeur voire changé de répertoire.

A+

Bonjour
Je comprends pas. Je le mets ou ce code et avec quelle syntaxe?
Merci

"JB" a écrit dans le message de news:

Bonjour,

Paramétrer le pgm VBA en fonction du nom du classeur:

NomClasseur=ThisWorkBook.Name

JB

On 22 fév, 09:45, "Pascal" wrote:
Bonjour,
Existe t'il un moyen d'interdire de renommer un classeur.
Cela fait un mois que je transpire à faire un classeur avec macros VBA
etc
etc etc..
Ces C.... viennent de renommer le classeur et toutes mes macros ont
sautées.

Merci

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 09:45:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:16:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000715-1, 21/02/2007
Analyse le : 22/02/2007 10:18:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000716-0, 22/02/2007
Analyse le : 22/02/2007 14:10:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000716-0, 22/02/2007
Analyse le : 22/02/2007 14:20:48
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com