نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: قفل کردن و باز کردن همه شیت ها

  1. #1


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    قفل کردن و باز کردن همه شیت ها

    سلام با استفاده از ماکروی زیر میشه تمام شیت ها را همزمان قفل کرد ولی آیا میشه برعکس این کار را هم انجام داد و با یک دکمه قفل کرد و با یک دکمه پس از وارد کردن پسوورد مورد نظر باز کرد چه تغیراتی باید در ماکرو داد؟
    کد PHP:
    Sub Protect_All_Sheets()
        
    Dim sh As Worksheet
        
    For Each sh In ActiveWorkbook.Worksheets
            sh
    .Protect "123"
        
    Next
    End Sub 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/05/10
    تاریخ عضویت
    January 2017
    محل سکونت
    کرمانشاه
    نوشته ها
    360
    امتیاز
    571
    سپاس
    98
    سپاس شده
    550 در 269 پست
    سطح اکسل
    80.00 %

    با کمی تغییرات در کد خودتون
    کد PHP:
    Sub UnProtect_All_Sheets()
        
    Dim sh As Worksheet
        
    For Each sh In ActiveWorkbook.Worksheets
            sh
    .Unprotect "123"
        
    Next
    End Sub 

  4. #3


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط rasools13 نمایش پست ها
    با کمی تغییرات در کد خودتون
    کد PHP:
    Sub UnProtect_All_Sheets()
        
    Dim sh As Worksheet
        
    For Each sh In ActiveWorkbook.Worksheets
            sh
    .Unprotect "123"
        
    Next
    End Sub 
    سلام ممنونم
    فقط موقع باز کردن پسوورد نمیخواد بدون اینکه پسوورد را بپرسه باز میکنه

  5. #4


    آخرین بازدید
    2023/05/10
    تاریخ عضویت
    January 2017
    محل سکونت
    کرمانشاه
    نوشته ها
    360
    امتیاز
    571
    سپاس
    98
    سپاس شده
    550 در 269 پست
    سطح اکسل
    80.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    سلام ممنونم
    فقط موقع باز کردن پسوورد نمیخواد بدون اینکه پسوورد را بپرسه باز میکنه
    بله بدون درخواست پسورد باز میشه.. در کد هم نگاه کنید پسورد وارد شده و نیازی به پرسیدن نیست

  6. #5


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    خوب من میخوام موقع باز کردن پسوورد بپرسه چکار باید کرد؟

  7. #6


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    ببینید این کد مد نظرتون هست
    کد PHP:
    Sub sbUnProtectAll()
    On Error GoTo ErrorOccured
    Dim pwd1 
    As String
    pwd1 
    InputBox("Please Enter the password")
    If 
    pwd1 "" Then Exit Sub
    For Each ws In Worksheets
    ws
    .Unprotect Password:=pwd1
    Next
    MsgBox 
    "All sheets UnProtected."
    Exit Sub
    ErrorOccured
    :
    MsgBox "Sheets could not be UnProtected - Password Incorrect"
    Exit Sub
    End Sub 



  8. سپاس ها (1)


  9. #7


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط generalsamad نمایش پست ها
    با سلام
    ببینید این کد مد نظرتون هست
    کد PHP:
    Sub sbUnProtectAll()
    On Error GoTo ErrorOccured
    Dim pwd1 
    As String
    pwd1 
    InputBox("Please Enter the password")
    If 
    pwd1 "" Then Exit Sub
    For Each ws In Worksheets
    ws
    .Unprotect Password:=pwd1
    Next
    MsgBox 
    "All sheets UnProtected."
    Exit Sub
    ErrorOccured
    :
    MsgBox "Sheets could not be UnProtected - Password Incorrect"
    Exit Sub
    End Sub 
    بله ممنونم


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

قفل یکجای شیت ها

راه حل باز کزدن قفل اکسل

بازکردن سیت اکسل

باز کردن اکسل بدون قفل

کد قفل و باز کردن شیت

باز کردن قفل شیت اکسل بدون رمز

قفل تمام شیت ها

باز‌کردن‌قفل تمام شیت‌ها

بازکردن قفل شیفت اکس

باز کردن قفل sheet در اکسل

باز کردن قفل شیت ها در اکسل

unprotect کردن فایل اکسل ماکرو

قفل شیت در اکسل

بازکردن شیت ها

قفل شیت های اکسل

اکسل. قفل کردن

قفل گذاری همه شیت های اکسل

آموزش باز کردن تاپیک قفل شده در فروم سایت

تغییر در صفحات اکسل قفل شده

باز کردن قفل فایل اکسل

نحوه شکستن قفل شیت ها در اکسل

نحوه فعال کردن ویرایش برنامه اکسل قفل شده

دستور قفل باز کردن در vbn

دانلود دستور قفل باز کردن در اکسلvba

https:forum.exceliran.comshowthread.php10710-قفل-کردن-و-باز-کردن-همه-شیت-ها

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است