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

[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]

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