Mot de passe dans un userform

Bonjour

J'ai un fichier qui s'ouvre par mot de passe "MOI" dans un use forme

(Je remercie son auteur "sylvanu" pour cette macro)

Fichier ci-joint

Actuellement après 3 essais négatifs le fichier se ferme

Est il possible de le supprimer au lieu de le fermer

Merci de votre aide

"Use forme 1

Sub CommandButton1_Click()

R = TextBox1.Value

Nb = Nb + 1

If R <> "MOI" Then

If Nb = 4 Then ActiveWorkbook.Close Savechanges:=False

Else

Unload UserForm1

End If

End Sub

"Workbook

Sub Workbook_Open()

R = "": Nb = 1: N = 1

Sheets("A").Visible = True

UserForm1.Show

If R <> "MOI" Then ActiveWorkbook.Close Savechanges:=False

For Each F In Worksheets

If F.Name <> "A" Then

If Sheets("A").Cells(N, "B") <> 0 Then

Sheets(F.Name).Visible = True

End If

N = N + 1

End If

Next

Sheets("A").Visible = False

ActiveWindow.DisplayWorkbookTabs = True

ActiveWindow.DisplayHorizontalScrollBar = True

ActiveWindow.DisplayVerticalScrollBar = True

End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Page d'acceuil").Visible = True

Sheets("Page d'acceuil").Select

[A1].Select: N = 1

Sheets("A").Visible = True

For Each F In Worksheets

If F.Name <> "A" Then

Sheets("A").Cells(N, "A") = F.Name

If Sheets(F.Name).Visible = True Then

Sheets("A").Cells(N, "B") = 1

Else

Sheets("A").Cells(N, "B") = 0

End If

Sheets(F.Name).Visible = xlSheetVeryHidden

N = N + 1

End If

Next

ActiveWindow.DisplayWorkbookTabs = False ' Masque le nom des onglets

ActiveWindow.DisplayHorizontalScrollBar = False ' Masque les scrollbars

ActiveWindow.DisplayVerticalScrollBar = False

ActiveWorkbook.Save

End Sub

edit Modo : mis code entre balises. Merci d'utiliser l'icone </> disponible dans la barre de menu lorsque vous postez un code

Bonjour à tous,

Est il possible de le supprimer au lieu de le fermer

Avez-vous réfléchie un peu avant de poser cette question ?

Bonjour

C'est pour cela que je demandais si c'était possible

suite au vol d'un de nos ordinateur

Actuellement au club nous avons un fichier avec noms /adresses/numéros de téléphone et autres et je pensais pouvoir le sécuriser un peu plus

Merci a vous

Bonjour

Excuser moi J'ai oublié de préciser qu'il se ferme au bout de quatre essais avec le mauvais code

Merci

Bonjour,

Si le disque contenant le fichier a été volé, vous ne pouvez plus en modifier les macros puisque vous n'avez plus accès au PC en question. De fait mettre à jour la macro (pour vous) ne sert à rien.

Pour info, il suffit d'ouvrir votre fichier en bloquant les macros pour pouvoir aller y lire le code VBA et le mot de passe. Donc encore une fois, passer par VBA pour de la sécurité est une mauvaise idée.

Bonjour

le fichier était en double sur un autre disque dur

c'était pour ultérieurement en cas

Merci a vous

Je pense que vous auriez intérêt à travailler dans le Cloud pour cela. Malgré ce qu'on en dit, pour des utilisateurs novices comme vous c'est vraiment le plus simple en matière de sécurité.

Quoique vous faisiez en VBA ou autre dans votre classeur en local, tant qu'il contiendra la liste de vos clients elle sera très facilement récupérable par un pirate. A l'inverse, si le fichier est sur un GoogleDrive/OneDrive/autre, sans vos ID il ne pourra jamais y accéder.