Comment interdire de renommer un ficher excel ?

[Malka]

Bonsoir,

Je cherche un moyen d'interdire de renommer un fichier excel en vba ?
Le fichier excel en question est un fichier de saisie, j'ai donc une feuille avec des cellules ouvertes et d'autres avec des cellules verrouillées par mot de passe.
Je ne veux pas que les utilisateurs puissent le renommer mais qu'il est la possibilité de l'enregistrer dans n'importe quel dossier de leur choix (en retour, je le recois par email)
Si quelqu'un a une piste je suis preneuse
Merci

Malka

 

[Compte Supprimé 979]

Re : Comment interdire de renommer un ficher excel ?

Bonsoir Malka,

Essaye ceci

Sub Essai()
Dim VPath As String, NomFic As String
VPath = ChoixDossier(ThisWorkbook.Path)
NomFic = "Toto"
ThisWorkbook.SaveAs VPath & "\" & NomFic
End Sub
 
Function ChoixDossier(Racine)
Dim objShell, objFolder, Chemin, SecuriteSlash, Msg$
Msg = "Choisissez votre dossier de sauvegarde :"
' Création de l'objet
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Racine)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
Chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
Chemin = ""
End If
' Vérifier du slash
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoixDossier = Chemin
End Function

A+

 

[Malka]

Re : Comment interdire de renommer un ficher excel ?

Merci pour ta réponse BrunoM45 !
Je teste ca !

Malka

 

[alicejjjk]

Pour éviter les perssone de modifier le nom de votre fichiers et vous ne pouvez pas les retrouver, comment faire, vous devez interdire renommer fichier à d'autres avec protect de dossier.