درخواست پسورد هنگام بستن اکسل

[ali.b]

سلام خدمت دوستان
برای بستن باید پسورد بدین

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim pword As String
        pword = InputBox("Please enter the password", "Password Required")
        
        If pword <> "123" Then


If myFlg = True Then Exit Sub


Application.DisplayAlerts = False
Cancel = True
        Else
            MsgBox "proceed"
        
        End If
End Sub

[jalal1362]

اینو باید کجا وارد کنم مسیرش لطف میکنید

[amir_ts]

اینو باید کجا وارد کنم مسیرش لطف میکنید

با سلام
کلید Alt+F11 رو بزنید و داخل ThisWorkbook قرار بدید.

[jalal1362]

بعد که اینو وارد کنم برای یه فایل خاص اعمال میشه یا کلا اکسل که باز کنم برای بستن پسوورد میخواد ؟؟

[amir_ts]

فقط فایلی که کد را داخلش قرار دادید.