Question description:
This user has given permission to use the problem statement for this
blog.
I need help in below code
ub sbProtectAllSheets()
Dim pwd1 As String, pwd2 As String
pwd1 = InputBox("Please Enter the password")
If pwd1 = "" Then Exit Sub
pwd2 = InputBox("Please re-enter the password")
If pwd2 = "" Then Exit Sub
'Check if both the passwords are identical
If InStr(1, pwd2, pwd1, 0) = 0 Or _
InStr(1, pwd1, pwd2, 0) = 0 Then
MsgBox "You entered different passwords. No action taken"
Exit Sub
End If
For Each ws In Worksheets
ws.Protect Password:=pwd1
Next
MsgBox "All sheets Protected."
Exit Sub
End Sub
Solved by C. W. in 13 mins
This is the chat thread from the real Excelchat help session. It contains no private user
information.
Excelchat Expert
10/12/2017 - 03:59
thank you and welcome for selecting excelchat
Excelchat Expert
10/12/2017 - 03:59
please tell me sir which kind of help do you need?
User
10/12/2017 - 04:00
please help me to understand this coding
Excelchat Expert
10/12/2017 - 04:00
yes
Excelchat Expert
10/12/2017 - 04:00
1) sub is sub procedure where we have to write the function
Excelchat Expert
10/12/2017 - 04:01
and it applicable to a specific sheet of work book we have to define
Excelchat Expert
10/12/2017 - 04:01
2) then we have to define the variable
Excelchat Expert
10/12/2017 - 04:01
and give variable to datarange
Excelchat Expert
10/12/2017 - 04:02
then we give a value to variable
Excelchat Expert
10/12/2017 - 04:02
pwd1 = InputBox("Please Enter the password")
Excelchat Expert
10/12/2017 - 04:02
then if condition
Excelchat Expert
10/12/2017 - 04:03
If pwd1 = "" Then Exit Sub
pwd2 = InputBox("Please re-enter the password")
If pwd2 = "" Then Exit Sub
'Check if both the passwords are identical
If InStr(1, pwd2, pwd1, 0) = 0 Or _
InStr(1, pwd1, pwd2, 0) = 0 Then
Excelchat Expert
10/12/2017 - 04:03
and then msg box
Excelchat Expert
10/12/2017 - 04:03
for display the message
Excelchat Expert
10/12/2017 - 04:03
is it mae sence
User
10/12/2017 - 04:07
yes thanks go ahead
Excelchat Expert
10/12/2017 - 04:08
then sir
User
10/12/2017 - 04:08
we writw msg box
User
10/12/2017 - 04:08
MsgBox "You entered different passwords. No action taken"
Exit Sub
Excelchat Expert
10/12/2017 - 04:09
yes we have to write what we have to display in msg box
Excelchat Expert
10/12/2017 - 04:09
MsgBox "You entered different passwords. No action taken"
Exit Sub
Excelchat Expert
10/12/2017 - 04:09
then we have to close all the
Excelchat Expert
10/12/2017 - 04:09
sub
Excelchat Expert
10/12/2017 - 04:09
if
Excelchat Expert
10/12/2017 - 04:09
are you satisfied with this solution?
User
10/12/2017 - 04:10
yes
Excelchat Expert
10/12/2017 - 04:10
can i close this sesssion?
User
10/12/2017 - 04:10
yes
User
10/12/2017 - 04:10
thanks
Excelchat Expert
10/12/2017 - 04:10
please rate me 5 star
User
10/12/2017 - 04:10
yes
User
10/12/2017 - 04:10
you deserve
This is the output file from the real Excelchat help session:
This is an example of the expert help you can get. It contains no private user
information.
