غیرفعال شدن ماکرو در هنگام protect workbookprotect workbook

[mfr]

با سلام
اکسلی دارم که دکمه ای با vb در اون تعبیه شده متاسفانه بعد از protect workbook کردن شیت اجرای دگمه خطای vb میده که قابل اجرا نیست .. چکار باید بکنم از این حالت در بیاد.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[abootorab]

با درود
اگر فایلتون رو ضمیمه میکردین و یا نوع خطایی که میداد ذکر میکردین بهتر میشد نظر داد اما به احتمال زیاد اون دکمه میخواد تو فایلتون تغییراتی ایجاد کنه که این protect شدنش مانع از انجام عملیات مربوطه میشه و باعث میشه این خطا رو دریافت کنین.
اگر مشکل از همین باشه میتونید در ابتدای کدی که واسه اون دکمه نوشتین ActiveWorkbook.Unprotect کنید و در انتهای کدتون دوباره ActiveWorkbook.Protect کنید.

[mfr]

اینم فایل پروتکت شده ... رمزشم عدد 1 هست ... واسه جستجو همراه با فیلتر ستون

[abootorab]

اینم فایل پروتکت شده ... رمزشم عدد 1 هست ... واسه جستجو همراه با فیلتر ستون

درود
فایلتونو گرفتم دوست عزیز ولی منوی protect و unprotect واسه من غیر فعال بود و نتونستم unprotect کنم!!!!!!!!!!!

[mfr]

درود
فایلتونو گرفتم دوست عزیز ولی منوی protect و unprotect واسه من غیر فعال بود و نتونستم unprotect کنم!!!!!!!!!!!

اول باید فایلو از share خارج کنی تا بتونی unprotect کنی

[mohamadali110]

با درود
اگر فایلتون رو ضمیمه میکردین و یا نوع خطایی که میداد ذکر میکردین بهتر میشد نظر داد اما به احتمال زیاد اون دکمه میخواد تو فایلتون تغییراتی ایجاد کنه که این protect شدنش مانع از انجام عملیات مربوطه میشه و باعث میشه این خطا رو دریافت کنین.
اگر مشکل از همین باشه میتونید در ابتدای کدی که واسه اون دکمه نوشتین ActiveWorkbook.Unprotect کنید و در انتهای کدتون دوباره ActiveWorkbook.Protect کنید.

اين روشتون جواب ميده براي جايي كه رمزي تعريف نكنيم

آيا راهي هست كه رمزي رو هم براي پروتكت كردن تعريف كنيم و تو وي بي اونو بصورت اتومات بده

[majid_mx4]

با سلام
اکسلی دارم که دکمه ای با vb در اون تعبیه شده متاسفانه بعد از protect workbook کردن شیت اجرای دگمه خطای vb میده که قابل اجرا نیست .. چکار باید بکنم از این حالت در بیاد.

با سلام

احتراما کد زیر را تست کنید کد اجرایی خود را میان فضای خالی بگذارید

Application.DisplayAlerts = False
ActiveWorkbook.UnprotectSharing sharingpassword:="1234"


ActiveWorkbook.ProtectSharing , sharingpassword:="1234"
Application.DisplayAlerts = True

با تشکر میر

[mfr]

فکر نکنم راه حل مناسبی باشه از اونجایی که این فایل به اشتراک گذاشته شده ... اگه همزمان کاربر دیگه ای مشغول کار باشه و پسورد برداشته بشه کار درستی نیست

[abootorab]

فکر نکنم راه حل مناسبی باشه از اونجایی که این فایل به اشتراک گذاشته شده ... اگه همزمان کاربر دیگه ای مشغول کار باشه و پسورد برداشته بشه کار درستی نیست

درود
فقط زمانیکه کدهای مربوط به دکمه مورد نظرتون اجرا میشه از حالت پروتکت خارج میشه تا بشه عملیات مورد نظرتون اجرا بشه و بعد از اون دوباره به حالت پروتکت برمیگرده و فک نکنم مشکلی داشته باشه.

[majid_mx4]

فکر نکنم راه حل مناسبی باشه از اونجایی که این فایل به اشتراک گذاشته شده ... اگه همزمان کاربر دیگه ای مشغول کار باشه و پسورد برداشته بشه کار درستی نیست

با سلام

همانطور که دوست خوبم جناب آقای Abootroab فرمودند

کد بالا فقط برای اجرای دستوارت یک لحظه پسورد را برداشته و بعد از خاتمه پسورد مجددا فعال میشود ودسترسی به قسمت های قفل شده برای یوزر دیگه در چند ثانیه اجرای دستورات معقول بنظر نمی رسد.
با تشکر میر