Microsoft 365 Macro vba excel

Option Explicit
#If Win64 Then
Private Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr
Private Declare PtrSafe Function SetWindowsHookExA Lib "user32" (ByVal idHook As LongPtr, ByVal lpfn As Long, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As Long
Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long
Private Declare PtrSafe Function SendDlgItemMessageA Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare PtrSafe Function GetClassNameA Lib "user32" (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long
#Else
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
Private Declare Function SetWindowsHookExA Lib "user32" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function SendDlgItemMessageA Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetClassNameA Lib "user32" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
#End If

Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0
Private hHook As Long

Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim RetVal
Dim strClassName As String, lngBuffer As Long
If lngCode < HC_ACTION Then
    NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
    Exit Function
End If
strClassName = String$(256, " ")
lngBuffer = 255
 If lngCode = HCBT_ACTIVATE Then
    RetVal = GetClassNameA(wParam, strClassName, lngBuffer)
        If Left$(strClassName, RetVal) = "#32770" Then
        SendDlgItemMessageA wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
        End If
 End If
CallNextHookEx hHook, lngCode, wParam, lParam
End Function

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional Context) As String
Dim lngModHwnd As Long, lngThreadID As Long
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandleA(vbNullString)
hHook = SetWindowsHookExA(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
UnhookWindowsHookEx hHook
End Function

Private Sub CommandButton7_Click()
Dim userCode As String
userCode = InputBoxDK("Entrez le mot de passe...", "Password")
' Vérifier si le code entré est correct
If userCode = "BARTIB@1234" Then
' Si le code est correct, déverrouiller la feuille
ThisWorkbook.Unprotect
'ThisWorkbook.Application.Visible = True
Application.Visible = True
Unload Me
Else
' Si le code est incorrect, afficher un message d'erreur
MsgBox "Code incorrect. Veuillez réessayer.", vbExclamation
End If
End Sub

ThisWorkbook.Application.Visible = True'!!!!??????????????

Private Sub Workbook_Open()
Sheets("Feuil1").Visible = True
Application.ScreenUpdating = False
For Each F In Worksheets
    If F.Name <> "Feuil1" Then Sheets(F.Name).Visible = xlVeryHidden
Next F
Application.ScreenUpdating = True
UserForm1.Show
End Sub

Private Sub b_ok_Click()
If Me.TextBox1 = "BARTIB@1234" Then
    Application.ScreenUpdating = False
    For Each F In Worksheets
        If F.Name <> "Feuil1" Then Sheets(F.Name).Visible = True
    Next F
    Sheets("Feuil1").Visible = xlVeryHidden
    Unload UserForm1
Else
    Me.TextBox1 = ""
    MsgBox "Mot de passe érroné."
End If
End Sub

Public Property Get MdP(Optional message$ = "Tapez une valeur", Optional titre$ = "inputboxUF")
    With inputBoxUF
        .Caption = titre: .ctmessage = message: .Show
        MdP = IIf(.txtMDP = "Faux", False, txtMDP)
        Unload inputBoxUF
    End With
End Property

Private Sub btcancel_Click(): txtMDP = "Faux": Me.Hide: End Sub
Private Sub btValider_Click(): Me.Hide: End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True: btcancel_Click
End Sub

Private Sub Workbook_Open()
    Sheets("Feuil1").Visible = True
    Application.ScreenUpdating = False
    For Each F In Worksheets
        If F.Name <> "Feuil1" Then Sheets(F.Name).Visible = xlVeryHidden
    Next F

re:
    Dim MdP, X
    MdP = inputBoxUF.MdP("veuillez entrer votre mot de passe", "Authentification")
    Select Case True
    Case CStr(MdP) = "BARTIB@1234"
    MsgBox "Bienvenue": démasquage
    Case CStr(MdP) = "Faux"
        MsgBox "Authentification annulée"
        With Application: .DisplayAlerts = False: .Quit: End With
    Case CStr(MdP) <> "BARTIB@1234"
        X = MsgBox("Mot de passe invalide" & vbCrLf & "Echec de l'authentification" & vbCrLf & "Voulez vous éssayer  à  nouveau", vbYesNo)
        If X = vbYes Then
            GoTo re
        Else
            With Application: .DisplayAlerts = False: .Quit: End With
        End If
    End Select
End Sub