Option Explicit
Private VariableBooleanSave As Boolean
Private Sub Workbook_Open()
Dim Question As Byte
Dim Code As String
VariableBooleanSave = True
If Application.UserName = 'Thierry' Then
Question = MsgBox('Bonjour Thierry, voulez vous pouvoir sauver ce classeur ?', vbQuestion + vbYesNo)
If Question = vbYes Then
Code = Application.InputBox('Indiquer votre Code Pin à 4 Chiffres', Type:=1)
If Code = '1234' Then
VariableBooleanSave = False
End If
End If
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If VariableBooleanSave = True Then
Cancel = VariableBooleanSave
MsgBox 'Vous n'êtes pas logé en administrateur', vbCritical, 'Non Sauvé...'
Else
MsgBox 'Fichier Sauvé', vbInformation, 'Sauvé'
End If
End Sub