Bonjour,
Pour sécuriser mon classeur à l'ouverture, j'aimerais faire en sorte de supprimer toutes les feuilles d'un classeur excel, sauvegarder et quitter l'application si le Domain de l'utilisateur ne correspond pas à celui de mon entreprise.
J'arrive à supprimer les feuilles et les feuilles Hidden (en ôtant en dur la protection du workbook dans le code), puis sauvegarder et fermer
Mais je n'arrive pas à trouver l'équivalent pour ôter la protection du projetVB et supprimer les feuilles VeryHidden.
Quelqu'un aurait une idée ?
Ci-dessous mon code :
Private Sub Workbook_Open()
Dim i As Integer
ActiveWorkbook.Unprotect Password:="azerty2"
If Not (Environ("USERDOMAIN") Like "*aaa*" Or Environ("USERDOMAIN") Like "*AAAA*") Then
Application.DisplayAlerts = False
'Création d'une nouvelle feuille vierge "Suppr" en première position
Sheets.Add.Move before:=Sheets(1)
Sheets(1).Name = "Suppr"
'Supprimer toutes les feuilles sauf "Suppr"
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next i
'Sauvegarde automatique
ActiveWorkbook.Save
'Fermeture d'excel
Application.Quit
End If
ActiveWorkbook.Protect Password:="azerty2"
ActiveWorkbook.Protect Structure:=True
End Sub