Reply to this topicStart new topic
> Макрос за заключване на клетки в Excel
deniral
публикация 9.03.2017г. в 11:37ч.
Коментар: #1


Новак
*

Група: Потребители
Съобщения: 4
Дата на регистрация: 9.03.2017г.
Потребител # 24 966





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

Това съобщение е било редактирано от deniral на 9.03.2017г. в 11:53ч.
Go to the top of the page
 
+Quote Post
naskobk
публикация 9.03.2017г. в 18:25ч.
Коментар: #2


Редовен потребител
***

Група: Потребители
Съобщения: 114
Дата на регистрация: 7.09.2006г.
Потребител # 964




ЦИТАТ
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"

Лек ден и късмет
Go to the top of the page
 
+Quote Post
deniral
публикация 10.03.2017г. в 09:45ч.
Коментар: #3


Новак
*

Група: Потребители
Съобщения: 4
Дата на регистрация: 9.03.2017г.
Потребител # 24 966




Здравей.Пробвах го и работи, много благодаря.
Имам само един въпрос. Заключва целия лист, може ли да се коригира да заключва само клетките с формули а другите, без формули да остават редактируеми.
Много благодаря!
Go to the top of the page
 
+Quote Post
deniral
публикация 10.03.2017г. в 10:22ч.
Коментар: #4


Новак
*

Група: Потребители
Съобщения: 4
Дата на регистрация: 9.03.2017г.
Потребител # 24 966




Вързах ги с бутони, обаче като дам unprotect и не въведа парола а дам само ок пак ми отключва шийтовете.
Go to the top of the page
 
+Quote Post
naskobk
публикация 11.03.2017г. в 13:04ч.
Коментар: #5


Редовен потребител
***

Група: Потребители
Съобщения: 114
Дата на регистрация: 7.09.2006г.
Потребител # 964




ЦИТАТ(deniral @ 10.03.2017г. в 11:22ч.) *
Вързах ги с бутони, обаче като дам unprotect и не въведа парола а дам само ок пак ми отключва шийтовете.


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


Go to the top of the page
 
+Quote Post
deniral
публикация 13.03.2017г. в 09:08ч.
Коментар: #6


Новак
*

Група: Потребители
Съобщения: 4
Дата на регистрация: 9.03.2017г.
Потребител # 24 966




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


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

Това съобщение е било редактирано от deniral на 13.03.2017г. в 09:17ч.
Go to the top of the page
 
+Quote Post
naskobk
публикация 13.03.2017г. в 11:34ч.
Коментар: #7


Редовен потребител
***

Група: Потребители
Съобщения: 114
Дата на регистрация: 7.09.2006г.
Потребител # 964




ЦИТАТ(deniral @ 13.03.2017г. в 10:08ч.) *
Благодаря за помощта, но не можах да се оправя. Изтеглих линка, но не мога да видя кода за да го взема. Като дам View code пише само Private Sub и на мога да го копирам в моя файл.


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

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

Go to the top of the page
 
+Quote Post



Reply to this topicStart new topic
1 потребители преглеждат тази тема в момента (1 гости, 0 анонимни потребители)
Потребители, преглеждащи темата в момента:

 

RSS Олекотена Версия Сега е: 03:54 - 17.08.2017г.

Калдейта ЕООД - © 2003-2009. Всички права запазени.