تالانت
8.81K subscribers
631 photos
267 videos
565 files
1.31K links
پست اول t.me/Talant_ir/3

اولین کانال اکسل در ایران
"بامدیریت اساتیدحسابداری وکامپیوتر"

@AtaeiTalant تبادل و درج تبلیغ

سایت Talant.ir

گروه ۱
@Excel4Acc

گروه ۲
https://t.me/joinchat/PBnkH22ExGp5_-iS

اینستاگرام instagram.com/talant.ir
Download Telegram
Forwarded from حسین صابری
#ترفند
#کد_نویسی
#VBA

برای قفل کردن همزمان همه برگه های یک فایل اکسل میتوانید از کد VBA زیر استفاده کنید

Sub protectAllSheet()

Dim sht As Worksheet
Dim pass As String

pass = "123"

For Each sht In ActiveWorkbook.Worksheets
sht.Protect Password:=pass
Next sht

End Sub

شرح:
در این کد هر برگه فایل در یک متغیر Sht از نوع Worksheet قرار گرفته و کلمه عبور نیز در یک متغیر رشته ای String با نام Pass قرار میگیرد. در ابتدای کار کلمه عبور را برابر با 123 قرار میدهیم که میتوانید براحتی در کد مقدار آن را تغییر دهید.
در نهایت توسط یک حلقه For Each ...Next هر برگه موجود در ورک بوک فعال (فایلی که باز است) با پسورد pass قفل میشود.

حسین صابری
@ExcelRoom کانال اکسل
@HSExcel_Bot ربات اکسل
@talant_ir
#اکسل
#ترفند
#کد_نویسی
#VBA
برای قفل کردن همزمان همه برگه های یک فایل اکسل میتوانید از کد VBA زیر استفاده کنید

Sub protectAllSheet()

Dim sht As Worksheet
Dim pass As String

pass = "123"

For Each sht In ActiveWorkbook.Worksheets
sht.Protect Password:=pass
Next sht

End Sub

شرح:
در این کد هر برگه فایل در یک متغیر Sht از نوع Worksheet قرار گرفته و کلمه عبور نیز در یک متغیر رشته ای String با نام Pass قرار میگیرد. در ابتدای کار کلمه عبور را برابر با 123 قرار میدهیم که میتوانید براحتی در کد مقدار آن را تغییر دهید.
در نهایت توسط یک حلقه For Each ...Next هر برگه موجود در ورک بوک فعال (فایلی که باز است) با پسورد pass قفل میشود.

حسین صابری
@talant_ir کانال اکسل
@HSExcel_Bot ربات اکسل
talant.ir سایت تالانت
@talant_ir
#اکسل
#ترفند
#کد_نویسی
#VBA
برای قفل کردن همزمان همه برگه های یک فایل اکسل میتوانید از کد VBA زیر استفاده کنید

Sub protectAllSheet()

Dim sht As Worksheet
Dim pass As String

pass = "123"

For Each sht In ActiveWorkbook.Worksheets
sht.Protect Password:=pass
Next sht

End Sub

شرح:
در این کد هر برگه فایل در یک متغیر Sht از نوع Worksheet قرار گرفته و کلمه عبور نیز در یک متغیر رشته ای String با نام Pass قرار میگیرد. در ابتدای کار کلمه عبور را برابر با 123 قرار میدهیم که میتوانید براحتی در کد مقدار آن را تغییر دهید.
در نهایت توسط یک حلقه For Each ...Next هر برگه موجود در ورک بوک فعال (فایلی که باز است) با پسورد pass قفل میشود.

حسین صابری
@talant_ir کانال تالانت
@Talant_Bot. ربابت تالانت
talant.ir سایت تالانت