Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Confirming password
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 5
Default Confirming password
Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 226
Default Confirming password
Sub protection()
Dim PW As String
Dim PWC As String
Dim S As Integer
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
End If
End Sub

Regards
Rowan

"Michael" wrote:

Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson
Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 5
Default Confirming password
Thanks Rowan
That's perfect.......one more question ??
Can we now loop back to the first input box again, so the OP has to re-input
the passwords.

Many thanks
Michael Mitchelson


"Rowan" wrote:

Sub protection()
Dim PW As String
Dim PWC As String
Dim S As Integer
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
End If
End Sub

Regards
Rowan

"Michael" wrote:

Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson
Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 226
Default Confirming password
This will exit if the user hits cancel when asked for the password.

Sub Protection()
Dim PW As String
Dim PWC As String
PW = ""
PWC = ""
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW < "" Then
Call SetProtect(PW, PWC)
Else
MsgBox "Protectiion not set"
End If
End Sub


Sub SetProtect(PW As String, PWC As String)
Dim S As Integer
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
Call Protection
End If
End Sub

Regards
Rowan

"Michael" wrote:

Thanks Rowan
That's perfect.......one more question ??
Can we now loop back to the first input box again, so the OP has to re-input
the passwords.

Many thanks
Michael Mitchelson


"Rowan" wrote:

Sub protection()
Dim PW As String
Dim PWC As String
Dim S As Integer
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
End If
End Sub

Regards
Rowan

"Michael" wrote:

Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson
Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 226
Default Confirming password
PS you might want to correct the typo in:

MsgBox "Protectiion not set"

:)

"Rowan" wrote:

This will exit if the user hits cancel when asked for the password.

Sub Protection()
Dim PW As String
Dim PWC As String
PW = ""
PWC = ""
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW < "" Then
Call SetProtect(PW, PWC)
Else
MsgBox "Protectiion not set"
End If
End Sub


Sub SetProtect(PW As String, PWC As String)
Dim S As Integer
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
Call Protection
End If
End Sub

Regards
Rowan

"Michael" wrote:

Thanks Rowan
That's perfect.......one more question ??
Can we now loop back to the first input box again, so the OP has to re-input
the passwords.

Many thanks
Michael Mitchelson


"Rowan" wrote:

Sub protection()
Dim PW As String
Dim PWC As String
Dim S As Integer
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
End If
End Sub

Regards
Rowan

"Michael" wrote:

Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson
Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 5
Default Confirming password
Rowan
Thanks again for the prompt reponse.
Works perfectly !!
I just wish I could get my head around VBA as efficiently as some of you guys.
and god knows I keep trying.

Regards
Michael Mitchelson


"Rowan" wrote:

This will exit if the user hits cancel when asked for the password.

Sub Protection()
Dim PW As String
Dim PWC As String
PW = ""
PWC = ""
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW < "" Then
Call SetProtect(PW, PWC)
Else
MsgBox "Protectiion not set"
End If
End Sub


Sub SetProtect(PW As String, PWC As String)
Dim S As Integer
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
Call Protection
End If
End Sub

Regards
Rowan

"Michael" wrote:

Thanks Rowan
That's perfect.......one more question ??
Can we now loop back to the first input box again, so the OP has to re-input
the passwords.

Many thanks
Michael Mitchelson


"Rowan" wrote:

Sub protection()
Dim PW As String
Dim PWC As String
Dim S As Integer
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
End If
End Sub

Regards
Rowan

"Michael" wrote:

Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson
Reply With QuoteReply With Quote
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 226
Default Confirming password
Your'e welcome.

Hanging around this newsgroup is where I picked up most of my VBA so you're
making a good start. <g

Regards
Rowan

"Michael" wrote:

Rowan
Thanks again for the prompt reponse.
Works perfectly !!
I just wish I could get my head around VBA as efficiently as some of you guys.
and god knows I keep trying.

Regards
Michael Mitchelson


"Rowan" wrote:

This will exit if the user hits cancel when asked for the password.

Sub Protection()
Dim PW As String
Dim PWC As String
PW = ""
PWC = ""
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW < "" Then
Call SetProtect(PW, PWC)
Else
MsgBox "Protectiion not set"
End If
End Sub


Sub SetProtect(PW As String, PWC As String)
Dim S As Integer
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
Call Protection
End If
End Sub

Regards
Rowan

"Michael" wrote:

Thanks Rowan
That's perfect.......one more question ??
Can we now loop back to the first input box again, so the OP has to re-input
the passwords.

Many thanks
Michael Mitchelson


"Rowan" wrote:

Sub protection()
Dim PW As String
Dim PWC As String
Dim S As Integer
PW = InputBox("Enter password:")
PWC = InputBox("Confirm password:")
If PW = PWC Then
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
Else
MsgBox "Password not correctly confirmed"
End If
End Sub

Regards
Rowan

"Michael" wrote:

Hi all
This code was posted in answer to my original question some time ago.
However, the OP now wants the password to be confirmed to eliminate mistakes.
Can someone help with the appropriate lines please

Sub protection()
Dim PW As String
Dim S As Integer
PW = InputBox("Enter password:")
For S = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(S).Protect Password:=PW
Next
End Sub

Regards
Michael Mitchelson
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Confirming a deletion Crazy[_2_] Excel Programming 1 June 28th 05 12:37 AM
Macro for Confirming Delete COG Excel Programming 7 July 3rd 04 05:51 PM
Confirming existence of dependents Mike[_65_] Excel Programming 4 January 14th 04 12:25 AM
Confirming existence of dependents Mike[_65_] Excel Programming 0 January 12th 04 09:11 AM
Confirming existence of dependents Mike[_65_] Excel Programming 0 January 11th 04 02:50 PM


All times are GMT +1. The time now is 12:27 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement