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 ربات اکسل
#کد_نویسی
#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 سایت تالانت
#اکسل
#ترفند
#کد_نویسی
#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 سایت تالانت
#اکسل
#ترفند
#کد_نویسی
#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 سایت تالانت