Excel - IF Function Problem - Expert Solution

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.

Get instant expert help with Excel and Google Sheets

Post your problem and you’ll get expert help in seconds.

Your message must be at least 40 characters
Your privacy is guaranteed. Your session will not be used for blog unless you give us persmission.