Макрос за заключване на клетки в Excel Опции

Здравейте. Необходима ми е малко помощ.
Искам да направя макрос с който да заключвам таблици. Имам няколко на брой работни книги с много шийтове. Всички таблици са по един модел. Трябва да защитя определени клетки с формули и да оставя други за редакция, но трябва да извърша едни и същи действия в много на брой шийтове, което ще ми отнеме много време затова ми трябва нещо такова.
Приемам и други варианти.

Това съобщение е било редактирано от deniral на 9.03.2017г. в 11:53ч.

Sub Protect_sheets()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
For Each wSheet In Worksheets
wSheet.Protect Password:=123
Next wSheet

End Sub



Sub Unprotect_sheets()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=123
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error GoTo 0

End Sub

Изпращам ти два макроса, с парола 123, може да ги вградиш с бутони,
заключват всички работни листове.
Прикачвам линк към примерен файл:
"http://infosoftbg.com/forum/download/file.php?id=215&sid=6ee8ff933be576f1bda4537f2463f52e"

Лек ден и късмет

Здравей.Пробвах го и работи, много благодаря.
Имам само един въпрос. Заключва целия лист, може ли да се коригира да заключва само клетките с формули а другите, без формули да остават редактируеми.
Много благодаря!

Вързах ги с бутони, обаче като дам unprotect и не въведа парола а дам само ок пак ми отключва шийтовете.

Вързах ги с бутони, обаче като дам unprotect и не въведа парола а дам само ок пак ми отключва шийтовете.

Изтегли от посочения линк този файл select_protection.zip
и следвай инструкциите, макроса работи правилно
"http://infosoftbg.com/forum/download/file.php?id=216&sid=ac6b1e2abb082b4dd5187ade3e51acc0"

Изтегли от посочения линк този файл select_protection.zip
и следвай инструкциите, макроса работи правилно
"http://infosoftbg.com/forum/download/file.php?id=216&sid=ac6b1e2abb082b4dd5187ade3e51acc0"

Благодаря за помощта, но не можах да се оправя. Изтеглих линка, но не мога да видя кода за да го взема. Като дам View code пише само Private Sub и на мога да го копирам в моя файл.

Това съобщение е било редактирано от deniral на 13.03.2017г. в 09:17ч.

Благодаря за помощта, но не можах да се оправя. Изтеглих линка, но не мога да видя кода за да го взема. Като дам View code пише само Private Sub и на мога да го копирам в моя файл.

влез във макросите със alt + F11
паролата е 100
там ги има всички кодове
просто макросите са заключени и затова ти излиза съобщението

Лек ден ти желая